diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2015-02-13 20:07:46 -0800 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2015-02-15 21:19:05 -0800 |
| commit | e6bc2aa77130cbf44a349f2f1a0c1c1eb33f2def (patch) | |
| tree | 65ba71f1f5360e23cdc2d3541db2f90e02af3347 | |
| parent | 406fd3badcf06bcb358ca800bd2877ea4a3e629d (diff) | |
| download | mu-e6bc2aa77130cbf44a349f2f1a0c1c1eb33f2def.tar.gz | |
747
This bugfix is not tested yet, but that's in the works.
| -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) |