diff options
| -rw-r--r-- | trace.arc.t | 8 | ||||
| -rw-r--r-- | trace.mu | 2 |
2 files changed, 2 insertions, 8 deletions
diff --git a/trace.arc.t b/trace.arc.t index a4389e04..acef6f80 100644 --- a/trace.arc.t +++ b/trace.arc.t @@ -318,10 +318,6 @@ schedule: done with routine") "+ main/ 1 : 3 => ((2 integer)) " "+ main/ 2 : (((3 integer)) <- ((add)) ((1 integer)) ((2 integer))) " "- main/ 2 : 4 => ((3 integer)) " - " mem : ((1 integer)): 1 <= 1 " - " mem : ((2 integer)): 2 <= 3 " - " mem : ((1 integer)) => 1 " - " mem : ((2 integer)) => 3 " " mem : ((3 integer)): 3 <= 4 " " schedule : done with routine ")) (prn "F - process-key expands current trace segment on <enter>")) @@ -339,10 +335,6 @@ schedule: done with routine") "+ main/ 2 : (((3 integer)) <- ((add)) ((1 integer)) ((2 integer))) " "* main/ 2 : 4 => ((3 integer)) " ;^cursor - " mem : ((1 integer)): 1 <= 1 " - " mem : ((2 integer)): 2 <= 3 " - " mem : ((1 integer)) => 1 " - " mem : ((2 integer)) => 3 " " mem : ((3 integer)): 3 <= 4 " " schedule : done with routine ")) (prn "F - process-key positions cursor on top of trace after expanding")) diff --git a/trace.mu b/trace.mu index 295d0f24..3444d053 100644 --- a/trace.mu +++ b/trace.mu @@ -46,6 +46,8 @@ (break-unless curr-tail:instruction-trace-address) (c:trace-address-array-address-address <- get-address curr-tail:instruction-trace-address/deref children:offset) (c:trace-address-array-address-address/deref <- to-array ch:buffer-address) + ; clear 'ch' + (ch:buffer-address <- init-buffer 5:literal) } ; append a new curr-tail to result (curr-tail:instruction-trace-address <- parse-instruction-trace f:trace-address) |