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

fixed a few comments to refer to scheme.c rather than main.c

Browse Source 
externs.h, globals.h, thread.c

original commit: 1a05b09f421fb19d38f3fdfa1f8485fc7943068b
This commit is contained in:
dybvig 2017-03-13 11:25:25 -04:00
parent 6cacbb61c5
commit aa6a006e39
4 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
LOG
View File

@ -368,3 +368,5 @@
now treated essentially like fxvectors, strings, and bytevectors. now treated essentially like fxvectors, strings, and bytevectors.
cmacros.ss, cpnanopass.ss, prims.ss, mkheader.ss, cmacros.ss, cpnanopass.ss, prims.ss, mkheader.ss,
alloc.c, gc.c, scheme.c alloc.c, gc.c, scheme.c
- fixed a few comments to refer to scheme.c rather than main.c
externs.h, globals.h, thread.c

2
c/externs.h
View File

@ -206,7 +206,7 @@ extern s_thread_cond_t *S_make_condition PROTO((void));
extern void S_condition_wait PROTO((s_thread_cond_t *c, scheme_mutex_t *m)); extern void S_condition_wait PROTO((s_thread_cond_t *c, scheme_mutex_t *m));
#endif #endif
/* main.c */ /* scheme.c */
extern void S_generic_invoke PROTO((ptr tc, ptr code)); extern void S_generic_invoke PROTO((ptr tc, ptr code));
/* number.c */ /* number.c */

4
c/globals.h
View File

@ -24,7 +24,7 @@ EXTERN uptr S_checkheap_errors;
EXTERN ptr S_child_processes[static_generation+1]; EXTERN ptr S_child_processes[static_generation+1];
#endif /* WIN32 */ #endif /* WIN32 */
/* main.c */ /* scheme.c */
EXTERN IBOOL S_boot_time; EXTERN IBOOL S_boot_time;
EXTERN IBOOL S_errors_to_console; EXTERN IBOOL S_errors_to_console;
EXTERN ptr S_threads; EXTERN ptr S_threads;
@ -64,7 +64,7 @@ EXTERN ptr S_foreign_dynamic;
/* globals that do need to be preserved in a saved heap */ /* globals that do need to be preserved in a saved heap */
EXTERN struct { EXTERN struct {
/* main.c */ /* scheme.c */
double thread_context[size_tc / sizeof(double)]; double thread_context[size_tc / sizeof(double)];
ptr active_threads_id; ptr active_threads_id;
ptr error_invoke_code_object; ptr error_invoke_code_object;

4
c/thread.c
View File

@ -28,7 +28,7 @@ void S_thread_init() {
S_G.threadno = FIX(0); S_G.threadno = FIX(0);
#ifdef PTHREADS #ifdef PTHREADS
/* this is also reset in main.c after heap restoration */ /* this is also reset in scheme.c after heap restoration */
s_thread_mutex_init(&S_tc_mutex.pmutex); s_thread_mutex_init(&S_tc_mutex.pmutex);
S_tc_mutex.owner = s_thread_self(); S_tc_mutex.owner = s_thread_self();
S_tc_mutex.count = 0; S_tc_mutex.count = 0;
@ -44,7 +44,7 @@ void S_thread_init() {
when there is no current thread. we have to avoid thread-local when there is no current thread. we have to avoid thread-local
allocation in at least the latter case, so we call vector_in and allocation in at least the latter case, so we call vector_in and
cons_in and arrange for S_thread to use find_room rather than cons_in and arrange for S_thread to use find_room rather than
thread_find_room. main.c does part of the initialization of the thread_find_room. scheme.c does part of the initialization of the
base thread (e.g., parameters, current input/output ports) in one base thread (e.g., parameters, current input/output ports) in one
or more places. */ or more places. */
ptr S_create_thread_object(who, p_tc) const char *who; ptr p_tc; { ptr S_create_thread_object(who, p_tc) const char *who; ptr p_tc; {