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

Staging initial cgen changes

Browse source
This commit is contained in:
Justin Ethier 2018-09-14 18:06:50 -04:00
parent 927856ec55
commit d4e3c65ca7
1 changed files with 25 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

35
scheme/cyclone/cgen.sld
View file

@ -912,16 +912,31 @@
");"))) ");")))
(else ;; CPS, IE normal behavior (else ;; CPS, IE normal behavior
(set-c-call-arity! num-cargs) (set-c-call-arity! num-cargs)
(c-code (with-fnc (ast:lambda-id (closure->lam fun)) (lambda (fnc)
(string-append (if (and #f (adbf:well-known fnc))
(c:allocs->str (c:allocs cfun) "\n") #f
(c:allocs->str (c:allocs cargs) "\n") ;;(c-code
"return_closcall" (number->string num-cargs) ;; (string-append
"(data," ;; (c:allocs->str (c:allocs cfun) "\n")
this-cont ;; (c:allocs->str (c:allocs cargs) "\n")
(if (> num-cargs 0) "," "") ;; "return_direct_with_clo" (number->string num-cargs)
(c:body cargs) ;; "(data,"
");")))))) ;; this-cont
;; ","
;; // TODO: fnc name, twice
;; (if (> num-cargs 0) "," "")
;; (c:body cargs)
;; ");"))
(c-code
(string-append
(c:allocs->str (c:allocs cfun) "\n")
(c:allocs->str (c:allocs cargs) "\n")
"return_closcall" (number->string num-cargs)
"(data,"
this-cont
(if (> num-cargs 0) "," "")
(c:body cargs)
");")))))))))
((equal? 'Cyc-seq fun) ((equal? 'Cyc-seq fun)
(let ((exps (foldr (let ((exps (foldr