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

Removed unused globals

Browse source
This commit is contained in:
Justin Ethier 2015-11-05 22:17:26 -05:00
parent 8da3b29e89
commit 23453d264b
3 changed files with 0 additions and 46 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
include/cyclone/runtime-main.h
View file

@ -43,22 +43,6 @@ static void Cyc_main (stack_size,heap_size,stack_base)
Cyc_thread->gc_ans[0] = &clos_halt;
Cyc_thread->gc_num_ans = 1;
// JAE TODO: clean up below (and all of this old code, really)
bottom = calloc(1,heap_size);
allocp = (char *) ((((long) bottom)+7) & -8);
alloc_end = allocp + heap_size - 8;
dhallocp = dhbottom = calloc(1, heap_size);
dhalloc_limit = dhallocp + (long)((heap_size - 8) * 0.90);
dhalloc_end = dhallocp + heap_size - 8;
#if DEBUG_SHOW_DIAG
printf("main: heap_size=%ld allocp=%p alloc_end=%p\n",
(long) heap_size,(void *)allocp,(void *)alloc_end);
printf("main: Try a larger heap_size if program bombs.\n");
printf("Starting...\n");
#endif
start = clock(); /* Start the timing clock. */
/* Tank, load the jump program... */
setjmp(*(Cyc_thread->jmp_start));
#if DEBUG_GC

11
include/cyclone/runtime.h
View file

@ -209,17 +209,6 @@ void do_dispatch(void *data, int argc, function_type func, object clo, object *b
/* Global variables. */
extern gc_heap *Cyc_heap;
extern gc_thread_data *Cyc_thread;
extern clock_t start; /* Starting time. */
extern char *bottom; /* Bottom of tospace. */
extern char *allocp; /* Cheney allocate pointer. */
extern 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 */
extern char *dhbottom; /* Bottom of data heap */
extern char *dhallocp; /* Current place in data heap */
extern char *dhalloc_limit; /* GC beyond this limit */
extern char *dhalloc_end;
extern long no_gcs; /* Count the number of GC's. */
extern long no_major_gcs; /* Count the number of GC's. */

19
runtime.c
View file

@ -81,28 +81,9 @@ void Cyc_check_bounds(void *data, const char *label, int len, int index) {
/* Global variables. */
gc_heap *Cyc_heap;
gc_thread_data *Cyc_thread;
//TODO: get rid of globals below that are not needed
clock_t start; /* Starting time. */
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_limit; /* GC beyond this limit */
char *dhalloc_end;
long no_gcs = 0; /* Count the number of GC's. */
long no_major_gcs = 0; /* Count the number of GC's. */
//TODO: after previous change, move these to thread data structure
//object gc_cont; /* GC continuation closure. */
//object gc_ans[NUM_GC_ANS]; /* argument for GC continuation closure. */
//int gc_num_ans;
object Cyc_global_variables = nil;
int _cyc_argc = 0;
char **_cyc_argv = NULL;