suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix scheme_current_thread schemef decl

Browse Source 
svn: r11233
This commit is contained in:
Matthew Flatt 2008-08-14 01:07:37 +00:00
parent 41d5c97ca9
commit a4c5239364
9 changed files with 27 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/mzscheme/include/mzscheme.exp
View File

@ -15,8 +15,10 @@ scheme_set_thread_param
scheme_get_env
scheme_inherit_cells
scheme_current_break_cell
Scheme_Thread
scheme_current_thread
scheme_fuel_counter
scheme_current_thread_ptr
scheme_fuel_counter_ptr
scheme_get_current_thread
scheme_start_atomic
scheme_end_atomic

4
src/mzscheme/include/mzscheme3m.exp
View File

@ -15,8 +15,10 @@ scheme_set_thread_param
scheme_get_env
scheme_inherit_cells
scheme_current_break_cell
Scheme_Thread
scheme_current_thread
scheme_fuel_counter
scheme_current_thread_ptr
scheme_fuel_counter_ptr
scheme_get_current_thread
scheme_start_atomic
scheme_end_atomic

3
src/mzscheme/include/mzwin.def
View File

@ -17,7 +17,10 @@ EXPORTS
scheme_get_env
scheme_inherit_cells
scheme_current_break_cell
scheme_current_thread DATA
scheme_fuel_counter DATA
scheme_current_thread_ptr DATA
scheme_fuel_counter_ptr DATA
scheme_get_current_thread
scheme_start_atomic
scheme_end_atomic

3
src/mzscheme/include/mzwin3m.def
View File

@ -17,7 +17,10 @@ EXPORTS
scheme_get_env
scheme_inherit_cells
scheme_current_break_cell
scheme_current_thread DATA
scheme_fuel_counter DATA
scheme_current_thread_ptr DATA
scheme_fuel_counter_ptr DATA
scheme_get_current_thread
scheme_start_atomic
scheme_end_atomic

3
src/mzscheme/src/makex
View File

@ -33,6 +33,9 @@ while (<>) {
if ($_ =~ /^MZ_EXTERN /) {
$_ = substr($_, 10);
}
if ($_ =~ /^THREAD_LOCAL /) {
$_ = substr($_, 13);
}
if ($_ =~ /^volatile /) {
$_ = substr($_, 9);

4
src/mzscheme/src/schemef.h
View File

@ -68,7 +68,9 @@ MZ_EXTERN Scheme_Object *scheme_current_break_cell();
/*========================================================================*/
#ifndef LINK_EXTENSIONS_BY_TABLE
extern THREAD_LOCAL Scheme_Thread *scheme_current_thread;
# ifndef MZ_USE_PLACES
MZ_EXTERN THREAD_LOCAL Scheme_Thread *scheme_current_thread;
# endif
MZ_EXTERN volatile int scheme_fuel_counter;
#else
MZ_EXTERN Scheme_Thread **scheme_current_thread_ptr;

4
src/mzscheme/src/schemex.h
View File

@ -54,7 +54,9 @@ Scheme_Object *(*scheme_current_break_cell)();
/* threads */
/*========================================================================*/
#ifndef LINK_EXTENSIONS_BY_TABLE
THREAD_LOCAL Scheme_Thread;
# ifndef MZ_USE_PLACES
Scheme_Thread *scheme_current_thread;
# endif
volatile int scheme_fuel_counter;
#else
Scheme_Thread **scheme_current_thread_ptr;

4
src/mzscheme/src/schemex.inc
View File

@ -19,7 +19,9 @@
scheme_extension_table->scheme_inherit_cells = scheme_inherit_cells;
scheme_extension_table->scheme_current_break_cell = scheme_current_break_cell;
#ifndef LINK_EXTENSIONS_BY_TABLE
scheme_extension_table->Scheme_Thread = Scheme_Thread;
# ifndef MZ_USE_PLACES
scheme_extension_table->scheme_current_thread = scheme_current_thread;
# endif
scheme_extension_table->scheme_fuel_counter = scheme_fuel_counter;
#else
scheme_extension_table->scheme_current_thread_ptr = scheme_current_thread_ptr;

4
src/mzscheme/src/schemexm.h
View File

@ -19,7 +19,9 @@
#define scheme_inherit_cells (scheme_extension_table->scheme_inherit_cells)
#define scheme_current_break_cell (scheme_extension_table->scheme_current_break_cell)
#ifndef LINK_EXTENSIONS_BY_TABLE
#define Scheme_Thread (scheme_extension_table->Scheme_Thread)
# ifndef MZ_USE_PLACES
#define scheme_current_thread (scheme_extension_table->scheme_current_thread)
# endif
#define scheme_fuel_counter (scheme_extension_table->scheme_fuel_counter)
#else
#define scheme_current_thread_ptr (scheme_extension_table->scheme_current_thread_ptr)