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

flagging some things as no-ops

Browse Source
This commit is contained in:
Danny Yoo 2011-09-16 18:00:05 -04:00
parent b8cfd43a50
commit 22eb5fc187
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/optimize-il.rkt
View File

@ -180,10 +180,14 @@
(loop (rest stmts)))] (loop (rest stmts)))]
[(DebugPrint? a-stmt) [(DebugPrint? a-stmt)
(cons a-stmt (loop (rest stmts)))] ;(cons a-stmt (loop (rest stmts)))
(loop (rest stmts))
]
[(Comment? a-stmt) [(Comment? a-stmt)
(cons a-stmt (loop (rest stmts)))] (loop (rest stmts))
;(cons a-stmt (loop (rest stmts)))
]
[(AssignImmediateStatement? a-stmt) [(AssignImmediateStatement? a-stmt)
(cons (make-AssignImmediateStatement (rewrite-target (AssignImmediateStatement-target a-stmt)) (cons (make-AssignImmediateStatement (rewrite-target (AssignImmediateStatement-target a-stmt))
@ -332,7 +336,8 @@
#f] #f]
[(DebugPrint? stmt) [(DebugPrint? stmt)
#f] ;#f
#t]
[(AssignImmediateStatement? stmt) [(AssignImmediateStatement? stmt)
(equal? (AssignImmediateStatement-target stmt) (equal? (AssignImmediateStatement-target stmt)