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

Fixed heap init

Browse source
This commit is contained in:
Justin Ethier 2015-11-13 02:39:22 -05:00
parent 149aea2c0a
commit df53ec99a6
3 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -27,7 +27,7 @@ static void Cyc_heap_init(long heap_size)
#if DEBUG_SHOW_DIAG #if DEBUG_SHOW_DIAG
printf("main: Allocating and initializing heap...\n"); printf("main: Allocating and initializing heap...\n");
#endif #endif
Cyc_heap = gc_heap_create(heap_size / 2, 0, 0); gc_init_heap();
gc_init_mutators(); gc_init_mutators();
gc_start_collector(); gc_start_collector();
} }

1
include/cyclone/runtime.h
View file

@ -84,6 +84,7 @@ object cell_get(object cell);
extern object Cyc_global_variables; extern object Cyc_global_variables;
int _cyc_argc; int _cyc_argc;
char **_cyc_argv; char **_cyc_argv;
void Cyc_init_heap(long heap_size);
object Cyc_get_global_variables(); object Cyc_get_global_variables();
object Cyc_get_cvar(object var); object Cyc_get_cvar(object var);
object Cyc_set_cvar(object var, object value); object Cyc_set_cvar(object var, object value);

5
runtime.c
View file

@ -90,6 +90,11 @@ char **_cyc_argv = NULL;
static symbol_type __EOF = {{0}, eof_tag, "", nil}; // symbol_type in lieu of custom type static symbol_type __EOF = {{0}, eof_tag, "", nil}; // symbol_type in lieu of custom type
const object Cyc_EOF = &__EOF; const object Cyc_EOF = &__EOF;
void Cyc_init_heap(long heap_size)
{
Cyc_heap = gc_heap_create(heap_size, 0, 0);
}
gc_heap *Cyc_get_heap() gc_heap *Cyc_get_heap()
{ {
return Cyc_heap; return Cyc_heap;