Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-15 16:57:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Refactored globals

Browse source
This commit is contained in:
Justin Ethier 2015-05-06 18:20:24 -04:00
parent cf9fe25476
commit 1ddadac287
2 changed files with 38 additions and 26 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
runtime.c
View file

@ -1,6 +1,28 @@
#include "cyclone.h" #include "cyclone.h"
#include "runtime.h" #include "runtime.h"
/* Global variables. */
clock_t start; /* Starting time. */
char *stack_begin; /* Initialized by main. */
char *stack_limit1; /* Initialized by main. */
char *stack_limit2;
char *bottom; /* Bottom of tospace. */
char *allocp; /* Cheney allocate pointer. */
char *alloc_end;
/* TODO: not sure this is the best strategy for strings, especially if there
are a lot of long, later gen strings because that will cause a lot of
copying to occur during GC */
char *dhbottom; /* Bottom of data heap */
char *dhallocp; /* Current place in data heap */
char *dhalloc_end;
long no_gcs = 0; /* Count the number of GC's. */
long no_major_gcs = 0; /* Count the number of GC's. */
object gc_cont; /* GC continuation closure. */
object gc_ans[NUM_GC_ANS]; /* argument for GC continuation closure. */
int gc_num_ans;
jmp_buf jmp_main; /* Where to jump to. */
//static object test_exp1, test_exp2; /* Expressions used within test. */
object Cyc_global_variables = nil; object Cyc_global_variables = nil;
static symbol_type __EOF = {eof_tag, "", nil}; // symbol_type in lieu of custom type static symbol_type __EOF = {eof_tag, "", nil}; // symbol_type in lieu of custom type

42
runtime.h
View file

@ -156,36 +156,26 @@ void do_dispatch(int argc, function_type func, object clo, object *buffer);
} \ } \
} }
// JAE TODO: not sure how to refactor global section yet
/* Global variables. */ /* Global variables. */
extern clock_t start; /* Starting time. */
static clock_t start; /* Starting time. */ extern char *stack_begin; /* Initialized by main. */
extern char *stack_limit1; /* Initialized by main. */
static char *stack_begin; /* Initialized by main. */ extern char *stack_limit2;
static char *stack_limit1; /* Initialized by main. */ extern char *bottom; /* Bottom of tospace. */
static char *stack_limit2; extern char *allocp; /* Cheney allocate pointer. */
extern char *alloc_end;
static char *bottom; /* Bottom of tospace. */
static char *allocp; /* Cheney allocate pointer. */
static char *alloc_end;
/* TODO: not sure this is the best strategy for strings, especially if there /* TODO: not sure this is the best strategy for strings, especially if there
are a lot of long, later gen strings because that will cause a lot of are a lot of long, later gen strings because that will cause a lot of
copying to occur during GC */ copying to occur during GC */
static char *dhbottom; /* Bottom of data heap */ extern char *dhbottom; /* Bottom of data heap */
static char *dhallocp; /* Current place in data heap */ extern char *dhallocp; /* Current place in data heap */
static char *dhalloc_end; extern char *dhalloc_end;
extern long no_gcs; /* Count the number of GC's. */
static long no_gcs = 0; /* Count the number of GC's. */ extern long no_major_gcs; /* Count the number of GC's. */
static long no_major_gcs = 0; /* Count the number of GC's. */ extern object gc_cont; /* GC continuation closure. */
extern object gc_ans[NUM_GC_ANS]; /* argument for GC continuation closure. */
static object gc_cont; /* GC continuation closure. */ extern int gc_num_ans;
static object gc_ans[NUM_GC_ANS]; /* argument for GC continuation closure. */ extern jmp_buf jmp_main; /* Where to jump to. */
static int gc_num_ans;
static jmp_buf jmp_main; /* Where to jump to. */
//static object test_exp1, test_exp2; /* Expressions used within test. */
/* Define the Lisp atoms that we need. */ /* Define the Lisp atoms that we need. */
extern const object boolean_t; extern const object boolean_t;