Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-12 15:27:36 +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"
"#define return_funcall" n "(cfn" args ") \\\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"
" GC(cfn,buf," n "); return; \\\n"
" } else {funcall" n "((closure) (cfn)" args "); return;}}\n")))
@ -164,7 +164,7 @@
"/* Evaluate an expression after checking for stack overflow. */\n"
"#define return_check" n "(_fn" args ") { \\\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"
" mclosure0(c1, _fn); \\\n"
" GC(&c1, buf, " n "); return; \\\n"