"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "repl.c" between
scm-5f2.zip and scm-5f3.zip

About: SCM is a Scheme Language Interpreter.

repl.c  (scm-5f2):repl.c  (scm-5f3)
skipping to change at line 1255 skipping to change at line 1255
int scm_verbose = 1; /* Low so that monitor info won't be */ int scm_verbose = 1; /* Low so that monitor info won't be */
/* printed while in init_storage. (BOOM) */ /* printed while in init_storage. (BOOM) */
static int errjmp_recursive = 0; static int errjmp_recursive = 0;
static int errobj_codep; static int errobj_codep;
static SCM err_exp, err_env; static SCM err_exp, err_env;
static char *err_pos, *err_s_subr; static char *err_pos, *err_s_subr;
static cell tmp_errobj = {(SCM)UNDEFINED, (SCM)EOL}; static cell tmp_errobj = {(SCM)UNDEFINED, (SCM)EOL};
static cell tmp_loadpath = {(SCM)BOOL_F, (SCM)EOL}; static cell tmp_loadpath = {(SCM)BOOL_F, (SCM)EOL};
SCM *loc_errobj = (SCM *)&tmp_errobj; SCM *loc_errobj = (SCM *)&tmp_errobj;
SCM *loc_loadpath = (SCM *)&tmp_loadpath; SCM *loc_loadpath = (SCM *)&tmp_loadpath;
unsigned long mallocated = 0, lmallocated = 0;
long cells_allocated = 0, lcells_allocated = 0, long cells_allocated = 0, lcells_allocated = 0,
mallocated = 0, lmallocated = 0,
rt = 0, gc_rt, gc_time_taken; rt = 0, gc_rt, gc_time_taken;
long gc_cells_collected, gc_malloc_collected, gc_ports_collected; long gc_cells_collected, gc_malloc_collected, gc_ports_collected;
long gc_syms_collected; long gc_syms_collected;
long scm_env_work = 0, scm_gcs = 0, scm_egcs = 0, long scm_env_work = 0, scm_gcs = 0, scm_egcs = 0,
scm_stk_moved = 0, scm_clo_moved = 0, scm_egc_rt; scm_stk_moved = 0, scm_clo_moved = 0, scm_egc_rt;
static void def_err_response P((void)); static void def_err_response P((void));
int handle_it(i) int handle_it(i)
int i; int i;
{ {
 End of changes. 2 change blocks. 
1 lines changed or deleted 1 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)