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

Issue #55

Browse source
This commit is contained in:
Justin Ethier 2018-05-16 14:15:45 -04:00
parent 75e48f999f
commit df0f325c00
2 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
scheme/cyclone/primitives.sld
View file

@ -705,11 +705,11 @@
;; Determine if primitive receives a pointer to a local C variable
(define (prim/c-var-pointer p)
(cond
((eq? p 'Cyc-fast-plus) "double_type")
((eq? p 'Cyc-fast-sub) "double_type")
((eq? p 'Cyc-fast-mul) "double_type")
((eq? p 'Cyc-fast-div) "double_type")
((member p *udf-prims*) "double_type")
((eq? p 'Cyc-fast-plus) "complex_num_type")
((eq? p 'Cyc-fast-sub) "complex_num_type")
((eq? p 'Cyc-fast-mul) "complex_num_type")
((eq? p 'Cyc-fast-div) "complex_num_type")
((member p *udf-prims*) "complex_num_type")
(else #f)))
;; Determine if primitive assigns (allocates) a C variable

1
tests/debug/test-sizes.c
View file

@ -28,6 +28,7 @@ void main() {
print_stats("cond_var_type ", sizeof(cond_var_type ), gc_heap_align(sizeof(cond_var_type )) );
print_stats("cvar_type ", sizeof(cvar_type ), gc_heap_align(sizeof(cvar_type )) );
print_stats("double_type ", sizeof(double_type ), gc_heap_align(sizeof(double_type )) );
print_stats("complex_num_type ", sizeof(complex_num_type ), gc_heap_align(sizeof(complex_num_type )) );
print_stats("integer_type ", sizeof(integer_type ), gc_heap_align(sizeof(integer_type )) );
print_stats("macro_type ", sizeof(macro_type ), gc_heap_align(sizeof(macro_type )) );
print_stats("mutex_type ", sizeof(mutex_type ), gc_heap_align(sizeof(mutex_type )) );