Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-12 23:37:38 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Removed DEBUG_ALWAYS_GC

Browse source
This commit is contained in:
Justin Ethier 2015-03-30 13:33:02 -04:00
parent 926d7b7881
commit c41608af7c
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
cgen.scm
View file

@ -151,7 +151,7 @@
"/* Return to continuation after checking for stack overflow. */\n" "/* Return to continuation after checking for stack overflow. */\n"
"#define return_funcall" n "(cfn" args ") \\\n" "#define return_funcall" n "(cfn" args ") \\\n"
"{char stack; \\\n" "{char stack; \\\n"
" if (DEBUG_ALWAYS_GC || check_overflow(&stack,stack_limit1)) { \\\n" " if (check_overflow(&stack,stack_limit1)) { \\\n"
" object buf[" n "]; " arry-assign "\\\n" " object buf[" n "]; " arry-assign "\\\n"
" GC(cfn,buf," n "); return; \\\n" " GC(cfn,buf," n "); return; \\\n"
" } else {funcall" n "((closure) (cfn)" args "); return;}}\n"))) " } else {funcall" n "((closure) (cfn)" args "); return;}}\n")))
@ -164,7 +164,7 @@
"/* Evaluate an expression after checking for stack overflow. */\n" "/* Evaluate an expression after checking for stack overflow. */\n"
"#define return_check" n "(_fn" args ") { \\\n" "#define return_check" n "(_fn" args ") { \\\n"
" char stack; \\\n" " char stack; \\\n"
" if (DEBUG_ALWAYS_GC || check_overflow(&stack,stack_limit1)) { \\\n" " if (check_overflow(&stack,stack_limit1)) { \\\n"
" object buf[" n "]; " arry-assign " \\\n" " object buf[" n "]; " arry-assign " \\\n"
" mclosure0(c1, _fn); \\\n" " mclosure0(c1, _fn); \\\n"
" GC(&c1, buf, " n "); return; \\\n" " GC(&c1, buf, " n "); return; \\\n"