suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

chased problem down to forgetting setting argcount

Browse Source
This commit is contained in:
Danny Yoo 2011-04-10 17:43:22 -04:00
parent b51858c524
commit cbc51a93be
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compile.rkt
View File

@ -842,6 +842,9 @@
linkage linkage
after-call)]) after-call)])
(append-instruction-sequences (append-instruction-sequences
(make-instruction-sequence `(,(make-AssignImmediateStatement
'argcount
(make-Const n))))
(compile-compiled-procedure-application (length extended-cenv) (compile-compiled-procedure-application (length extended-cenv)
(make-Label (StaticallyKnownLam-entry-point static-knowledge)) (make-Label (StaticallyKnownLam-entry-point static-knowledge))
n n
@ -871,7 +874,8 @@
(make-instruction-sequence (make-instruction-sequence
`(,(make-AssignPrimOpStatement 'val `(,(make-AssignPrimOpStatement 'val
(make-GetCompiledProcedureEntry)))) (make-GetCompiledProcedureEntry))))
(make-instruction-sequence `(,(make-PopEnvironment (make-Const num-slots-to-delete) (make-instruction-sequence `(,(make-PopEnvironment (make-SubtractArg (make-Const cenv-length-with-args)
(make-Reg 'argcount))
(make-Reg 'argcount)))) (make-Reg 'argcount))))
(make-instruction-sequence (make-instruction-sequence
`(;; Assign the proc value of the existing call frame `(;; Assign the proc value of the existing call frame