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

Added prim/c-var-pointer

Browse source
This commit is contained in:
Justin Ethier 2016-10-14 22:02:37 -04:00
parent 2019937b97
commit d456658077
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
scheme/cyclone/primitives.sld
View file

@ -18,6 +18,7 @@
prim-call? prim-call?
prim->c-func prim->c-func
prim/data-arg? prim/data-arg?
prim/c-var-pointer
prim/c-var-assign prim/c-var-assign
prim/cvar? prim/cvar?
prim:inline-convert-prim-call prim:inline-convert-prim-call
@ -602,6 +603,12 @@
procedure? procedure?
set-cell!))) set-cell!)))
;; Determine if primitive receives a pointer to a local C variable
(define (prim/c-var-pointer p)
(cond
((eq? p 'Cyc-fast-plus) "common_type")
(else #f)))
;; Determine if primitive assigns (allocates) a C variable ;; Determine if primitive assigns (allocates) a C variable
;; EG: int v = prim(); ;; EG: int v = prim();
(define (prim/c-var-assign p) (define (prim/c-var-assign p)
@ -611,7 +618,7 @@
((eq? p 'Cyc-stderr) "port_type") ((eq? p 'Cyc-stderr) "port_type")
((eq? p 'open-input-file) "port_type") ((eq? p 'open-input-file) "port_type")
((eq? p 'open-output-file) "port_type") ((eq? p 'open-output-file) "port_type")
((eq? p 'Cyc-fast-plus) "common_type") ((eq? p 'Cyc-fast-plus) "object")
((eq? p '+) "object") ((eq? p '+) "object")
((eq? p '-) "object") ((eq? p '-) "object")
((eq? p '*) "object") ((eq? p '*) "object")