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

trying to eliminate stupid blocks

Browse Source
This commit is contained in:
Danny Yoo 2011-08-08 12:20:03 -04:00
parent 8d54e85f14
commit deb6c235ce
3 changed files with 29 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/optimize-il.rkt
View File

@ -47,6 +47,18 @@
(log-debug (format "merging label ~a and ~a" last-stmt next-stmt))
(ufind:union-set a-forest last-stmt next-stmt)
(loop (rest stmts) next-stmt)]
;; If there's a label, immediately followed by a direct Goto jump,
;; just equate the label and the jump.
[(and (symbol? last-stmt) (GotoStatement? next-stmt))
(define goto-target (GotoStatement-target next-stmt))
(cond
[(Label? goto-target)
(ufind:union-set a-forest last-stmt (Label-name goto-target))
(loop (rest stmts) next-stmt)]
[else
(loop (rest stmts) next-stmt)])]
[else
(loop (rest stmts) next-stmt)])]))

23
js-assembler/package.rkt
View File

@ -256,10 +256,10 @@ MACHINE.modules[~s] =
;; package-standalone-xhtml: X output-port -> void
(define (package-standalone-xhtml source-code op)
(display *header* op)
(log-debug "writing the runtime")
(display (quote-cdata (get-runtime)) op)
(log-debug "writing the source code")
(display (quote-cdata (get-code source-code)) op)
(display (quote-cdata
(string-append (get-runtime)
(get-code source-code)
invoke-main-module-code)) op)
(display *footer* op))
@ -330,10 +330,10 @@ MACHINE.modules[~s] =
<head>
<meta name="viewport" content="initial-scale=1.0, width=device-width, height=device-height, minimum-scale=1.0, maximum-scale=1.0, user-scalable=no" />
<meta charset="utf-8"/>
<title>Example</title>
<title></title>
</head>
<script>
"use strict";
EOF
)
@ -367,10 +367,9 @@ EOF
(define *footer*
#<<EOF
<![CDATA[
(define invoke-main-module-code
#<<EOF
var invokeMainModule = function() {
var MACHINE = plt.runtime.currentMachine;
invoke(MACHINE,
@ -403,7 +402,11 @@ var invokeMainModule = function() {
};
$(document).ready(invokeMainModule);
]]>
EOF
)
(define *footer*
#<<EOF
</script>
<body></body>
</html>

5
js-assembler/runtime-src/top.js
View File

@ -1 +1,4 @@
"use strict";
// The following contains the Whalesong runtime.