Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 04:25:06 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Refactoring

Browse source
This commit is contained in:
Justin Ethier 2015-03-03 20:41:37 -05:00
parent 132f669659
commit e6aea0c388
1 changed files with 13 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
runtime.h
View file

@ -1,19 +1,25 @@
/* /**
* Cyclone Scheme * Cyclone Scheme
* Copyright (c) 2014, Justin Ethier
* All rights reserved.
*
* This file contains the C runtime used by compiled programs. * This file contains the C runtime used by compiled programs.
*/ */
// If this is set, GC is called every function call. #ifndef CYCLONE_RUNTIME_H
// Only turn this on for debugging!!! #define CYCLONE_RUNTIME_H
/* If this is set, GC is called every function call. */
/* Only turn this on for debugging!!! */
#define DEBUG_ALWAYS_GC 0 #define DEBUG_ALWAYS_GC 0
// Debug GC flag /* Debug GC flag */
#define DEBUG_GC 0 #define DEBUG_GC 0
// Show diagnostic information for the GC when program terminates /* Show diagnostic information for the GC when program terminate */
#define DEBUG_SHOW_DIAG 0 #define DEBUG_SHOW_DIAG 0
// Maximum number of args that GC will accept /* Maximum number of args that GC will accept */
#define NUM_GC_ANS 100 #define NUM_GC_ANS 100
/* STACK_GROWS_DOWNWARD is a machine-specific preprocessor switch. */ /* STACK_GROWS_DOWNWARD is a machine-specific preprocessor switch. */
@ -1900,3 +1906,4 @@ static long long_arg(argc,argv,name,dval)
return(atol(argv[j+1])); return(atol(argv[j+1]));
return(dval);} return(dval);}
#endif /* CYCLONE_RUNTIME_H */