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

Temporarily disable emitting new code

Browse source 
Need to debug lambda ID code first, before this change can hope to work.
This commit is contained in:
Justin Ethier 2018-09-20 13:12:39 -04:00
parent c531799663
commit dd82dba750
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
scheme/cyclone/cgen.sld
View file

@ -1226,7 +1226,8 @@
(with-fnc ast-id (lambda (fnc) (with-fnc ast-id (lambda (fnc)
(trace:info `(c-compile-closure-element-ref ,ast-id ,var ,idx ,fnc)) (trace:info `(c-compile-closure-element-ref ,ast-id ,var ,idx ,fnc))
(cond (cond
((and (adbf:well-known fnc) ((and #f ;; TODO: temporarily disabled
(adbf:well-known fnc)
(pair? (adbf:all-params fnc)) (pair? (adbf:all-params fnc))
(equal? (adbf:closure-size fnc) 1)) (equal? (adbf:closure-size fnc) 1))
(mangle (car (adbf:all-params fnc)))) (mangle (car (adbf:all-params fnc))))
@ -1327,8 +1328,9 @@
))))) )))))
;(trace:info (list 'JAE-DEBUG trace macro?)) ;(trace:info (list 'JAE-DEBUG trace macro?))
(cond (cond
(use-obj-instead-of-closure? ;; TODO: temporarily disabled
(create-object)) ;;(use-obj-instead-of-closure?
;; (create-object))
(else (else
(c-code/vars (c-code/vars
(string-append "&" cv-name) (string-append "&" cv-name)