Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-23 20:15:05 +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
* Copyright (c) 2014, Justin Ethier
* All rights reserved.
*
* This file contains the C runtime used by compiled programs.
*/
// If this is set, GC is called every function call.
// Only turn this on for debugging!!!
#ifndef CYCLONE_RUNTIME_H
#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
// Debug GC flag
/* Debug GC flag */
#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
// Maximum number of args that GC will accept
/* Maximum number of args that GC will accept */
#define NUM_GC_ANS 100
/* 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(dval);}
#endif /* CYCLONE_RUNTIME_H */