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

WIP - varargs

Browse source
This commit is contained in:
Justin Ethier 2021-02-10 17:49:12 -05:00
parent f7fe5dbf11
commit 95f8a17124
1 changed files with 15 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
scheme/cyclone/cgen.sld
View file

@ -1820,6 +1820,13 @@
(let ((i 0) (let ((i 0)
(cstr "") (cstr "")
(args (string-split formals #\,))) (args (string-split formals #\,)))
;; Strip off extra varargs since we will load them
;; up using a different technique
(when (ast:lambda-varargs? exp)
(set! args
(reverse
(cddr (reverse args)))))
;; Generate code to unpack args into locals w/expected names
(for-each (for-each
(lambda (arg) (lambda (arg)
(set! cstr (string-append (set! cstr (string-append
@ -1852,6 +1859,14 @@
"\n" "\n"
preamble preamble
(if (ast:lambda-varargs? exp) (if (ast:lambda-varargs? exp)
; TODO: varargs
; does it make more sense to write code here directly
; or modify load_varargs? basically want args[nx]...args[ny] to become a list
;;
;; TODO: is it possible to rewrite load_varargs to not use alloca?
;; should try this on master, because I would prefer to avoid alloca
;; here if at all possible
;;
;; Load varargs from C stack into Scheme list ;; Load varargs from C stack into Scheme list
(string-append (string-append
;; DEBUGGING: ;; DEBUGGING: