dump-simpl.diff

181,188d180
-  let {
-    lvl3
-    lvl3
-      = uncheckedShiftL#
-          1## (andI# (word2Int# r#) 63#) } in
-  let {
-    lvl4
-    lvl4 = +# dt2 1# } in
191c183
-  joinrec {
---
+  letrec {
201c193
-                jump $wbuildTable
---
+                 $wbuildTable
210c202
-                jump $wbuildTable
---
+                 $wbuildTable
221,223c213,214
-            let {
-              ww3
-              ww3 = or# ww1 lvl3 } in
---
+            (# or# ww1 (uncheckedShiftL# 1## (andI# (word2Int# r#) 63#)), ww2 #)
+          }; } in
228a220,221
+          case $wbuildTable 0# 0## (-# dt2 2#) of
+          { (# ww3, ww2 #) ->
269c262
-                            $wscan (+# ww lvl4)
---
+                            $wscan (+# ww (+# dt2 1#))
285c278
-                            $wscan (+# ww lvl4)
---
+                            $wscan (+# ww (+# dt2 1#))
331c324
-
---
+          }
338,340d330
-  }; } in jump $wbuildTable 0# 0## (-# dt2 2#)