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

Fixes for set-global in cps

Browse source
This commit is contained in:
Justin Ethier 2020-01-23 22:43:46 -05:00
parent 7a2531505d
commit e8e57484be
3 changed files with 12 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
scheme/cyclone/cps-opt-memoize-pure-fncs.scm
View file

@ -191,7 +191,7 @@
(new-var (cdr var/new-var)) (new-var (cdr var/new-var))
(body (body
`((Cyc-seq `((Cyc-seq
(set-global! ,var ,rsym) (set-global-unsafe! ,var ,rsym)
,acc))) ,acc)))
) )
`(Cyc-memoize `(Cyc-memoize

12
scheme/cyclone/primitives.sld
View file

@ -67,6 +67,7 @@
Cyc-spawn-thread! Cyc-spawn-thread!
Cyc-end-thread! Cyc-end-thread!
set-global! set-global!
set-global-unsafe!
set-cell! set-cell!
set-car! set-car!
set-cdr! set-cdr!
@ -132,6 +133,7 @@
Cyc-fast-list-4 Cyc-fast-list-4
cell-get cell-get
set-global! set-global!
set-global-unsafe!
set-cell! set-cell!
cell cell
eq? eq?
@ -278,6 +280,7 @@
(Cyc-fast-list-4 4 4) (Cyc-fast-list-4 4 4)
(cell-get 1 1) (cell-get 1 1)
(set-global! 2 2) (set-global! 2 2)
(set-global-unsafe! 2 2)
(set-cell! 2 2) (set-cell! 2 2)
(cell 1 1) (cell 1 1)
(eq? 2 2) (eq? 2 2)
@ -688,7 +691,8 @@
((eq? p 'cell) "set_cell_as_expr") ((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_set2")
((eq? p 'set-global-unsafe!) "global_set")
(else (else
(error "unhandled primitive: " p)))) (error "unhandled primitive: " p))))
@ -788,7 +792,8 @@
set-car! set-car!
set-cdr! set-cdr!
procedure? procedure?
set-cell!)) set-cell!
set-global!))
(memq p *udf-prims*))) (memq p *udf-prims*)))
;; Determine if primitive receives a pointer to a local C variable ;; Determine if primitive receives a pointer to a local C variable
@ -873,6 +878,7 @@
((eq? p 'set-car!) "object") ((eq? p 'set-car!) "object")
((eq? p 'set-cdr!) "object") ((eq? p 'set-cdr!) "object")
((eq? p 'vector-set!) "object") ((eq? p 'vector-set!) "object")
((eq? p 'set-global!) "object")
((eq? p 'Cyc-installation-dir) "object") ((eq? p 'Cyc-installation-dir) "object")
((eq? p 'Cyc-compilation-environment) "object") ((eq? p 'Cyc-compilation-environment) "object")
;((memq p *udf-prims*) "object") ;((memq p *udf-prims*) "object")
@ -906,6 +912,7 @@
set-car! set-car!
set-cdr! set-cdr!
vector-set! vector-set!
set-global!
;Cyc-fast-plus ;Cyc-fast-plus
;Cyc-fast-sub ;Cyc-fast-sub
;Cyc-fast-mul ;Cyc-fast-mul
@ -947,6 +954,7 @@
set-car! set-car!
set-cdr! set-cdr!
vector-set! vector-set!
set-global!
Cyc-list Cyc-list
Cyc-read-char Cyc-peek-char Cyc-read-char Cyc-peek-char
symbol->string list->string substring string-append string->number symbol->string list->string substring string-append string->number

1
scheme/cyclone/transforms.sld
View file

@ -431,6 +431,7 @@ if (acc) {
Cyc-current-exception-handler Cyc-current-exception-handler
cell-get cell-get
set-global! set-global!
set-global-unsafe!
set-cell! set-cell!
cell cell
cons cons