diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2014-11-26 23:23:44 -0800 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2014-11-27 00:31:50 -0800 |
commit | b3898dc5c455cfd6ccf71e3b52bf4759f162b04d (patch) | |
tree | 337e692eb388f3a950e07b2245b47deb0b9661d6 /mu.arc.t | |
parent | 11193608cbbcc206b5061d676be584faa4e636b3 (diff) | |
download | mu-b3898dc5c455cfd6ccf71e3b52bf4759f162b04d.tar.gz |
341 - standardize traces again
Diffstat (limited to 'mu.arc.t')
-rw-r--r-- | mu.arc.t | 49 |
1 files changed, 49 insertions, 0 deletions
diff --git a/mu.arc.t b/mu.arc.t index 94d9fd44..609498fe 100644 --- a/mu.arc.t +++ b/mu.arc.t @@ -1223,6 +1223,7 @@ (reset) (new-trace "convert-braces") +(= traces* (queue)) ;? (= dump-trace* (obj whitelist '("c{0" "c{1"))) (if (~iso (convert-braces '(((1 integer) <- copy (4 literal)) @@ -1246,6 +1247,7 @@ (reset) (new-trace "convert-braces-empty-block") +(= traces* (queue)) ;? (= dump-trace* (obj whitelist '("c{0" "c{1"))) (if (~iso (convert-braces '(((1 integer) <- copy (4 literal)) @@ -1265,6 +1267,7 @@ (reset) (new-trace "convert-braces-nested-break") +(= traces* (queue)) (if (~iso (convert-braces '(((1 integer) <- copy (4 literal)) ((2 integer) <- copy (2 literal)) @@ -1288,6 +1291,7 @@ (reset) (new-trace "convert-braces-repeated-jump") +(= traces* (queue)) ;? (= dump-trace* (obj whitelist '("c{0" "c{1"))) (if (~iso (convert-braces '(((1 integer) <- copy (4 literal)) @@ -1311,6 +1315,7 @@ (reset) (new-trace "convert-braces-nested-loop") +(= traces* (queue)) (if (~iso (convert-braces '(((1 integer) <- copy (4 literal)) ((2 integer) <- copy (2 literal)) @@ -1334,6 +1339,7 @@ (reset) (new-trace "convert-braces-label") +(= traces* (queue)) (if (~iso (convert-braces '(((1 integer) <- copy (4 literal)) foo @@ -1346,6 +1352,7 @@ (reset) (new-trace "convert-braces-label-increments-offset") +(= traces* (queue)) (if (~iso (convert-braces '(((1 integer) <- copy (4 literal)) { begin @@ -1362,6 +1369,7 @@ (reset) (new-trace "convert-braces-label-increments-offset2") +(= traces* (queue)) ;? (= dump-trace* (obj whitelist '("c{0" "c{1"))) (if (~iso (convert-braces '(((1 integer) <- copy (4 literal)) @@ -1463,6 +1471,7 @@ (reset) (new-trace "convert-names") +(= traces* (queue)) (if (~iso (convert-names '(((x integer) <- copy (4 literal)) ((y integer) <- copy (2 literal)) @@ -1474,6 +1483,7 @@ (reset) (new-trace "convert-names-compound") +(= traces* (queue)) (if (~iso (convert-names '(((x integer-boolean-pair) <- copy (4 literal)) ((y integer) <- copy (2 literal)))) @@ -1483,6 +1493,7 @@ (reset) (new-trace "convert-names-nil") +(= traces* (queue)) (if (~iso (convert-names '(((x integer) <- copy (4 literal)) ((y integer) <- copy (2 literal)) @@ -1494,6 +1505,7 @@ (reset) (new-trace "convert-names-global") +(= traces* (queue)) (if (~iso (convert-names '(((x integer) <- copy (4 literal)) ((y integer global) <- copy (2 literal)) @@ -1506,6 +1518,7 @@ ; kludgy support for 'fork' below (reset) (new-trace "convert-names-functions") +(= traces* (queue)) (if (~iso (convert-names '(((x integer) <- copy (4 literal)) ((y integer) <- copy (2 literal)) @@ -1517,6 +1530,7 @@ (reset) (new-trace "convert-names-record-fields") +(= traces* (queue)) (if (~iso (convert-names '(((x integer) <- get (34 integer-boolean-pair) (bool offset)))) '(((1 integer) <- get (34 integer-boolean-pair) (1 offset)))) @@ -1524,6 +1538,7 @@ (reset) (new-trace "convert-names-record-fields-ambiguous") +(= traces* (queue)) (if (errsafe (convert-names '(((bool boolean) <- copy (t literal)) ((x integer) <- get (34 integer-boolean-pair) (bool offset))))) @@ -1531,6 +1546,7 @@ (reset) (new-trace "convert-names-record-fields-ambiguous-2") +(= traces* (queue)) (if (errsafe (convert-names '(((x integer) <- get (34 integer-boolean-pair) (bool offset)) ((bool boolean) <- copy (t literal))))) @@ -1538,6 +1554,7 @@ (reset) (new-trace "convert-names-record-fields-indirect") +(= traces* (queue)) (if (~iso (convert-names '(((x integer) <- get (34 integer-boolean-pair-address deref) (bool offset)))) '(((1 integer) <- get (34 integer-boolean-pair-address deref) (1 offset)))) @@ -1545,6 +1562,7 @@ (reset) (new-trace "convert-names-record-fields-multiple") +(= traces* (queue)) (if (~iso (convert-names '(((2 boolean) <- get (1 integer-boolean-pair) (bool offset)) ((3 boolean) <- get (1 integer-boolean-pair) (bool offset)))) @@ -1555,6 +1573,7 @@ (reset) (new-trace "convert-names-label") +(= traces* (queue)) (if (~iso (convert-names '(((1 integer) <- copy (4 literal)) foo)) @@ -1710,6 +1729,7 @@ (reset) (new-trace "convert-names-default-scope") +(= traces* (queue)) (if (~iso (convert-names '(((x integer) <- copy (4 literal)) ((y integer) <- copy (2 literal)) @@ -1867,6 +1887,7 @@ (reset) (new-trace "scheduler") +(= traces* (queue)) (add-code '((def f1 [ ((1 integer) <- copy (3 literal)) @@ -1892,6 +1913,7 @@ (reset) (new-trace "scheduler-alternate") +(= traces* (queue)) (add-code '((def f1 [ ((1 integer) <- copy (3 literal)) @@ -1912,6 +1934,7 @@ (reset) (new-trace "scheduler-sleep") +(= traces* (queue)) (add-code '((def f1 [ ((1 integer) <- copy (3 literal)) @@ -1936,6 +1959,7 @@ (reset) (new-trace "scheduler-wakeup") +(= traces* (queue)) (add-code '((def f1 [ ((1 integer) <- copy (3 literal)) @@ -1958,6 +1982,7 @@ (reset) (new-trace "scheduler-sleep-location") +(= traces* (queue)) (add-code '((def f1 [ ((1 integer) <- copy (3 literal)) @@ -1989,6 +2014,7 @@ (reset) (new-trace "scheduler-wakeup-location") +(= traces* (queue)) (add-code '((def f1 [ ((1 integer) <- copy (3 literal)) @@ -2012,6 +2038,7 @@ (reset) (new-trace "scheduler-skip") +(= traces* (queue)) (add-code '((def f1 [ ((1 integer) <- copy (3 literal)) @@ -2031,6 +2058,7 @@ (reset) (new-trace "scheduler-deadlock") +(= traces* (queue)) (add-code '((def f1 [ ((1 integer) <- copy (3 literal)) @@ -2053,6 +2081,7 @@ (reset) (new-trace "scheduler-deadlock2") +(= traces* (queue)) (add-code '((def f1 [ ((1 integer) <- copy (3 literal)) @@ -2553,6 +2582,7 @@ (reset) (new-trace "convert-quotes-defer") +(= traces* (queue)) (if (~iso (convert-quotes '(((1 integer) <- copy (4 literal)) (defer [ @@ -2566,6 +2596,7 @@ (reset) (new-trace "convert-quotes-label") +(= traces* (queue)) (if (~iso (convert-quotes '(((1 integer) <- copy (4 literal)) foo @@ -2577,6 +2608,7 @@ (reset) (new-trace "before") +(= traces* (queue)) (add-code '((before label1 [ ((2 integer) <- copy (0 literal)) ]))) @@ -2598,6 +2630,7 @@ (reset) (new-trace "before-multiple") +(= traces* (queue)) (add-code '((before label1 [ ((2 integer) <- copy (0 literal)) ]) @@ -2625,6 +2658,7 @@ (reset) (new-trace "before-scoped") +(= traces* (queue)) (add-code '((before f/label1 [ ; label1 only inside function f ((2 integer) <- copy (0 literal)) ]))) @@ -2641,6 +2675,7 @@ (reset) (new-trace "before-scoped2") +(= traces* (queue)) (add-code '((before f/label1 [ ; label1 only inside function f ((2 integer) <- copy (0 literal)) ]))) @@ -2655,6 +2690,7 @@ (reset) (new-trace "after") +(= traces* (queue)) (add-code '((after label1 [ ((2 integer) <- copy (0 literal)) ]))) @@ -2676,6 +2712,7 @@ (reset) (new-trace "after-multiple") +(= traces* (queue)) (add-code '((after label1 [ ((2 integer) <- copy (0 literal)) ]) @@ -2703,6 +2740,7 @@ (reset) (new-trace "before-after") +(= traces* (queue)) (add-code '((before label1 [ ((2 integer) <- copy (0 literal)) ]) @@ -2732,6 +2770,7 @@ (reset) (new-trace "before-after-multiple") +(= traces* (queue)) (add-code '((before label1 [ ((2 integer) <- copy (0 literal)) ((3 integer) <- copy (0 literal)) @@ -2777,7 +2816,9 @@ ((8 integer) <- copy (0 literal)))) (prn "F - 'insert-code' can insert multiple fragments around label - 2")) +(reset) (new-trace "before-after-independent") +(= traces* (queue)) (if (~iso (do (reset) (add-code '((before label1 [ @@ -2812,6 +2853,8 @@ (reset) (new-trace "before-after-braces") +(= traces* (queue)) +(= function* (table)) (add-code '((after label1 [ ((1 integer) <- copy (0 literal)) ]) @@ -2828,6 +2871,8 @@ (reset) (new-trace "before-after-any-order") +(= traces* (queue)) +(= function* (table)) (add-code '((def f1 [ { begin label1 @@ -2844,6 +2889,8 @@ (reset) (new-trace "multiple-defs") +(= traces* (queue)) +(= function* (table)) (add-code '((def f1 [ ((1 integer) <- copy (0 literal)) ]) @@ -2858,6 +2905,8 @@ (reset) (new-trace "def!") +(= traces* (queue)) +(= function* (table)) (add-code '((def f1 [ ((1 integer) <- copy (0 literal)) ]) |