Kaydet (Commit) 6c4f4a92 authored tarafından Guido van Rossum's avatar Guido van Rossum

Changes for THINK C 4.0.

Don't call inittime() and initmath(), let config_*.c decide about those.
üst 706eea8a
...@@ -59,19 +59,21 @@ initall() ...@@ -59,19 +59,21 @@ initall()
if (inited) if (inited)
return; return;
inited = 1;
initimport(); initimport();
/* Modules 'builtin' and 'sys' are initialized here,
they are needed by random bits of the interpreter.
All other modules are optional and should be initialized
by the initcalls() of a specific configuration. */
initbuiltin(); /* Also initializes builtin exceptions */ initbuiltin(); /* Also initializes builtin exceptions */
initsys(); initsys();
inittime();
initmath();
initcalls(); /* Configuration-dependent initializations */ initcalls(); /* Configuration-dependent initializations */
initintr(); /* For intrcheck() */ initintr(); /* For intrcheck() */
inited = 1;
} }
/* Parse input from a file and execute it */ /* Parse input from a file and execute it */
...@@ -340,14 +342,14 @@ goaway(sts) ...@@ -340,14 +342,14 @@ goaway(sts)
fprintf(stderr, "[%ld refs]\n", ref_total); fprintf(stderr, "[%ld refs]\n", ref_total);
#endif #endif
#ifdef THINK_C #ifdef THINK_C_3_0
if (sts == 0) if (sts == 0)
Click_On(0); Click_On(0);
#endif #endif
#ifdef TRACE_REFS #ifdef TRACE_REFS
if (askyesno("Print left references?")) { if (askyesno("Print left references?")) {
#ifdef THINK_C #ifdef THINK_C_3_0
Click_On(1); Click_On(1);
#endif #endif
printrefs(stderr); printrefs(stderr);
...@@ -364,9 +366,9 @@ finaloutput() ...@@ -364,9 +366,9 @@ finaloutput()
#ifdef TRACE_REFS #ifdef TRACE_REFS
if (!askyesno("Print left references?")) if (!askyesno("Print left references?"))
return; return;
#ifdef THINK_C #ifdef THINK_C_3_0
Click_On(1); Click_On(1);
#endif /* THINK_C */ #endif
printrefs(stderr); printrefs(stderr);
#endif /* TRACE_REFS */ #endif /* TRACE_REFS */
} }
...@@ -385,7 +387,7 @@ askyesno(prompt) ...@@ -385,7 +387,7 @@ askyesno(prompt)
return buf[0] == 'y' || buf[0] == 'Y'; return buf[0] == 'y' || buf[0] == 'Y';
} }
#ifdef THINK_C #ifdef THINK_C_3_0
/* Check for file descriptor connected to interactive device. /* Check for file descriptor connected to interactive device.
Pretend that stdin is always interactive, other files never. */ Pretend that stdin is always interactive, other files never. */
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment