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

continuing to isolate the bug. It looks like when we get the values back, we're somehow scrambling the order? Very strange

Browse Source
This commit is contained in:
Danny Yoo 2011-09-27 11:30:44 -04:00
parent e4f9481bc1
commit 40820a96b4
2 changed files with 15 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/compiler.rkt
View File

@ -397,7 +397,7 @@
(make-GotoStatement (ModuleEntry a-module-name))
on-return-multiple
(make-PopEnvironment (new-SubtractArg (make-Reg 'argcount)
(make-Const 1))
(make-Const 1))
(make-Const 0))
on-return))]))
@ -596,7 +596,7 @@
(compile (first seq) cenv 'val return-linkage/nontail)
on-return/multiple
(make-PopEnvironment (new-SubtractArg (make-Reg 'argcount)
(make-Const 1))
(make-Const 1))
(make-Const 0))
on-return
(compile-splice (rest seq) cenv target linkage)))]))
@ -660,7 +660,7 @@
(append-instruction-sequences
(make-PopEnvironment (make-Const (length cenv))
(new-SubtractArg (make-Reg 'argcount)
(make-Const 1)))
(make-Const 1)))
(make-AssignImmediateStatement 'proc (make-ControlStackLabel/MultipleValueReturn))
(make-PopControlFrame)
(make-GotoStatement (make-Reg 'proc)))]
@ -845,7 +845,7 @@
(make-UnspliceRestFromStack!
(make-Const (Lam-num-parameters exp))
(new-SubtractArg (make-Reg 'argcount)
(make-Const (Lam-num-parameters exp)))))
(make-Const (Lam-num-parameters exp)))))
empty-instruction-sequence)]
[maybe-install-closure-values : InstructionSequence
(if (not (empty? (Lam-closure-map exp)))
@ -1545,7 +1545,7 @@
nontail-jump-into-procedure
on-return/multiple
(make-PopEnvironment (new-SubtractArg (make-Reg 'argcount)
(make-Const 1))
(make-Const 1))
(make-Const 0))
on-return)])]
@ -1611,7 +1611,7 @@
on-return/multiple
;; if the wrong number of arguments come in, die
(make-TestAndJumpStatement (make-TestZero (new-SubtractArg (make-Reg 'argcount)
(make-Const context)))
(make-Const context)))
after-value-check)
on-return
(make-PerformStatement

5
tests/more-tests/isolating-bug.rkt
View File

@ -21,9 +21,12 @@
(define-struct name (fields ...) kw ...)
(let ([cnstr (lambda args
(apply cnstr args))])
(displayln names) ...
(values names ...))))))))]))
(my-define-struct swf (f) #:mutable)
(displayln "---")
struct:swf
make-swf
swf?
swf-f
set-swf-f!