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

Do not use make_cell

Browse source
This commit is contained in:
Justin Ethier 2018-12-03 18:06:59 -05:00
parent df73875960
commit f7d76bd90a
1 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
scheme/cyclone/primitives.sld
View file

@ -468,7 +468,8 @@
Cyc-fast-list-2 Cyc-fast-list-2
Cyc-fast-list-3 Cyc-fast-list-3
Cyc-fast-list-4 Cyc-fast-list-4
cell)))) ;cell
))))
;; TODO: get rid of this function and replace this with the same type of pre-alloc that ;; TODO: get rid of this function and replace this with the same type of pre-alloc that
;; we do for fast numeric operations. That will allow us to prevent out-of-order ;; we do for fast numeric operations. That will allow us to prevent out-of-order
@ -486,7 +487,7 @@
((eq? p 'Cyc-fast-list-2) "alloca_list_2") ((eq? p 'Cyc-fast-list-2) "alloca_list_2")
((eq? p 'Cyc-fast-list-3) "alloca_list_3") ((eq? p 'Cyc-fast-list-3) "alloca_list_3")
((eq? p 'Cyc-fast-list-4) "alloca_list_4") ((eq? p 'Cyc-fast-list-4) "alloca_list_4")
((eq? p 'cell) "alloca_cell") ;((eq? p 'cell) "alloca_cell")
(else (else
(_prim->c-func p)))) (_prim->c-func p))))
(else (else
@ -646,7 +647,8 @@
((eq? p 'Cyc-fast-list-2) "make_list_2") ((eq? p 'Cyc-fast-list-2) "make_list_2")
((eq? p 'Cyc-fast-list-3) "make_list_3") ((eq? p 'Cyc-fast-list-3) "make_list_3")
((eq? p 'Cyc-fast-list-4) "make_list_4") ((eq? p 'Cyc-fast-list-4) "make_list_4")
((eq? p 'cell) "make_cell") ;((eq? p 'cell) "make_cell")
((eq? p 'cell) "set_cell_as_expr")
((eq? p 'cell-get) "car") ;; Unsafe as cell gets added by compiler ((eq? p 'cell-get) "car") ;; Unsafe as cell gets added by compiler
((eq? p 'set-cell!) "Cyc_set_cell") ((eq? p 'set-cell!) "Cyc_set_cell")
((eq? p 'set-global!) "global_set") ((eq? p 'set-global!) "global_set")
@ -754,6 +756,7 @@
(define (prim/c-var-pointer p) (define (prim/c-var-pointer p)
(cond (cond
((eq? p 'cons) "pair_type") ((eq? p 'cons) "pair_type")
((eq? p 'cell) "pair_type")
((eq? p 'Cyc-fast-plus) "complex_num_type") ((eq? p 'Cyc-fast-plus) "complex_num_type")
((eq? p 'Cyc-fast-sub) "complex_num_type") ((eq? p 'Cyc-fast-sub) "complex_num_type")
((eq? p 'Cyc-fast-mul) "complex_num_type") ((eq? p 'Cyc-fast-mul) "complex_num_type")
@ -872,7 +875,8 @@
Cyc-fast-list-3 Cyc-fast-list-3
Cyc-fast-list-4 Cyc-fast-list-4
;cons ;cons
cell)) ;cell
))
(member exp *udf-prims*)))) (member exp *udf-prims*))))
;; Pass continuation as the function's first parameter? ;; Pass continuation as the function's first parameter?