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

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

2
LOG
View File

@ -368,3 +368,5 @@
now treated essentially like fxvectors, strings, and bytevectors.
cmacros.ss, cpnanopass.ss, prims.ss, mkheader.ss,
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

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));
#endif
/* main.c */
/* scheme.c */
extern void S_generic_invoke PROTO((ptr tc, ptr code));
/* number.c */

View File

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

View File

@ -28,7 +28,7 @@ void S_thread_init() {
S_G.threadno = FIX(0);
#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_tc_mutex.owner = s_thread_self();
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
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
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
or more places. */
ptr S_create_thread_object(who, p_tc) const char *who; ptr p_tc; {