From 1137dd2a997a271761c8da0b7e2be05d977909e1 Mon Sep 17 00:00:00 2001 From: Kartik Agaram Date: Sat, 24 Oct 2020 16:52:33 -0700 Subject: tile: process space at start of word This was very difficult to debug. We still need to process space in the middle of a word. --- apps/tile/data.mu | 12 ++++++++++++ 1 file changed, 12 insertions(+) (limited to 'apps/tile/data.mu') diff --git a/apps/tile/data.mu b/apps/tile/data.mu index 6310c8e8..03f66bd2 100644 --- a/apps/tile/data.mu +++ b/apps/tile/data.mu @@ -594,10 +594,22 @@ fn decrement-final-element list: (addr handle call-path-element) { var final/eax: (addr call-path-element) <- lookup *final-ah var val-ah/ecx: (addr handle word) <- get final, word var val/eax: (addr word) <- lookup *val-ah +#? print-string 0, "replacing " +#? { +#? var foo/eax: int <- copy val +#? print-int32-hex 0, foo +#? } var new-ah/edx: (addr handle word) <- get val, prev var target/eax: (addr word) <- lookup *new-ah compare target, 0 break-if-= + # val = val->prev +#? print-string 0, " with " +#? { +#? var foo/eax: int <- copy target +#? print-int32-hex 0, foo +#? } +#? print-string 0, "\n" copy-object new-ah, val-ah } -- cgit 1.4.1-2-gfad0