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

continuing to try cleaning up

Browse Source
This commit is contained in:
Danny Yoo 2011-09-06 16:56:34 -04:00
parent 386b2575e2
commit 8d0df44458
2 changed files with 14 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/optimize-il.rkt
View File

@ -282,11 +282,11 @@
(let ([target (AssignImmediateStatement-target second-stmt)])
(cond
[(equal? target (make-EnvLexicalReference 0 #f))
(cons (make-PushImmediateOntoEnvironment
(adjust-oparg-depth
(AssignImmediateStatement-value second-stmt) -1)
#f)
(loop (rest (rest statements))))]
(loop (cons (make-PushImmediateOntoEnvironment
(adjust-oparg-depth
(AssignImmediateStatement-value second-stmt) -1)
#f)
(rest (rest statements))))]
[else
(default)]))]

14
js-assembler/assemble.rkt
View File

@ -268,7 +268,8 @@ EOF
[(Label? target)
(cond
[(set-contains? entry-points (Label-name target))
(default stmt)]
(display (assemble-statement stmt) op)
'ok]
[else
(log-debug (format "Assembling inlined jump into ~a" (Label-name target)) )
(assemble-block-statements (BasicBlock-name
@ -279,12 +280,15 @@ EOF
entry-points
op)])]
[(Reg? target)
(default stmt)]
(display (assemble-statement stmt) op)
'ok]
[(ModuleEntry? target)
(default stmt)]
(display (assemble-statement stmt) op)
'ok]
[(CompiledProcedureEntry? target)
(default stmt)])]
(display (assemble-statement stmt) op)
'ok])]
[(PushControlFrame/Generic? stmt)
(default stmt)]