Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-21 14:49:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Cleanup

Browse source
This commit is contained in:
Justin Ethier 2019-06-06 13:30:43 -04:00
parent bcea7ce1ef
commit 80daff6dd4
1 changed files with 13 additions and 34 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

43
runtime.c
View file

@ -5519,7 +5519,8 @@ object Cyc_trigger_minor_gc(void *data, object cont)
} }
/** /**
* Do a minor GC * Do a minor GC, tracing all of the live objects from the calling thread's
* stack and moving them to the heap.
* \ingroup gc_minor * \ingroup gc_minor
*/ */
int gc_minor(void *data, object low_limit, object high_limit, closure cont, int gc_minor(void *data, object low_limit, object high_limit, closure cont,
@ -5590,6 +5591,8 @@ int gc_minor(void *data, object low_limit, object high_limit, closure cont,
} }
clear_mutations(data); // Reset for next time clear_mutations(data); // Reset for next time
// Collect globals but only if a change was made. This avoids traversing a
// long list of objects unless absolutely necessary.
if (((gc_thread_data *) data)->globals_changed) { if (((gc_thread_data *) data)->globals_changed) {
((gc_thread_data *) data)->globals_changed = 0; ((gc_thread_data *) data)->globals_changed = 0;
// Transport globals // Transport globals
@ -5707,37 +5710,13 @@ void Cyc_make_shared_object(void *data, object k, object obj)
// primitive_tag = 17 // primitive_tag = 17
// Copy stack-allocated objects with no children to the heap: // Copy stack-allocated objects with no children to the heap:
case string_tag:{ case string_tag:
string_type *hp = gc_alloc(heap, case double_tag:
sizeof(string_type) + ((string_len(obj) + 1)), case bytevector_tag:
obj, thd, heap_grown); case port_tag:
return_closcall1(data, k, hp); case c_opaque_tag:
} case complex_num_tag: {
case double_tag:{ object hp = gc_alloc(heap, gc_allocated_bytes(obj, NULL, NULL), obj, thd, heap_grown);
double_type *hp =
gc_alloc(heap, sizeof(double_type), obj, thd, heap_grown);
return_closcall1(data, k, hp);
}
case bytevector_tag:{
bytevector_type *hp = gc_alloc(heap,
sizeof(bytevector_type) +
sizeof(char) * (((bytevector) obj)->len),
obj, thd, heap_grown);
return_closcall1(data, k, hp);
}
case port_tag:{
port_type *hp =
gc_alloc(heap, sizeof(port_type), obj, thd, heap_grown);
return_closcall1(data, k, hp);
}
case c_opaque_tag:{
c_opaque_type *hp =
gc_alloc(heap, sizeof(c_opaque_type), obj, thd, heap_grown);
return_closcall1(data, k, hp);
}
case complex_num_tag:{
complex_num_type *hp =
gc_alloc(heap, sizeof(complex_num_type), obj, thd, heap_grown);
return_closcall1(data, k, hp); return_closcall1(data, k, hp);
} }
// Objs w/children force minor GC to guarantee everything is relocated: // Objs w/children force minor GC to guarantee everything is relocated: