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

Fix compiler errors

Browse source
This commit is contained in:
Justin Ethier 2020-01-20 10:38:35 -05:00
parent d4479d5ee7
commit cc16d6ca49
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
runtime.c
View file

@ -472,8 +472,8 @@ void Cyc_set_globals_changed(gc_thread_data *thd)
object share_object(gc_thread_data *data, object var, object value) object share_object(gc_thread_data *data, object var, object value)
{ {
char tmp; char tmp;
int inttmp, *heap_grown = &inttmp;
gc_heap_root *heap = data->heap; gc_heap_root *heap = data->heap;
int tmp, *heap_grown = &tmp;
// Nothing needs to be done unless we are mutating // Nothing needs to be done unless we are mutating
// a heap variable to point to a stack var. // a heap variable to point to a stack var.
@ -492,11 +492,10 @@ object share_object(gc_thread_data *data, object var, object value)
// Safe to transport // Safe to transport
object hp = gc_alloc(heap, gc_allocated_bytes(value, NULL, NULL), value, data, heap_grown); object hp = gc_alloc(heap, gc_allocated_bytes(value, NULL, NULL), value, data, heap_grown);
return hp; return hp;
} }
// Need to GC if obj is mutable, EG: a string could be mutated so we can't // Need to GC if obj is mutable, EG: a string could be mutated so we can't
// have multiple copies of the object running around // have multiple copies of the object running around
return boolean_f return boolean_f;
case double_tag: case double_tag:
case port_tag: case port_tag:
case c_opaque_tag: case c_opaque_tag:
@ -512,6 +511,7 @@ object share_object(gc_thread_data *data, object var, object value)
case vector_tag: case vector_tag:
return boolean_f; return boolean_f;
default: default:
// Other object types are not stack-allocated so should never get here
printf("Invalid shared object type %d\n", type_of(value)); printf("Invalid shared object type %d\n", type_of(value));
exit(1); exit(1);
} }