fix allocation bug

2022-04-15 14:17:10 -04:00 · 2022-04-15 14:17:10 -04:00 · b0730d0045
parent 77fa8081ff
commit b0730d0045
1 changed files with 1 additions and 0 deletions
--- a/regex.tal
+++ b/regex.tal
@ -484,6 +484,7 @@
        #0004 ADD2 SUB2 #0002 DIV2 NIP ( dst (dst-(a+4))/2 )
        ;arena-pos LDA2 STH2k #0003 ADD2 STA ( dst [a] )
        ;arena-pos STA2 STH2r ( a )
+        #0000 OVR2 INC2 STA2  ( a )
        DUP2 ;c-peek-and-finalize JMP2
    &error
        #abcd #0000 DIV ( TODO error here )