fix a bug with caret
This commit is contained in:
parent
d42464b289
commit
0d138b5bee
|
@ -212,7 +212,7 @@
|
||||||
INC2 LDA2 STH2 ( load and stash next )
|
INC2 LDA2 STH2 ( load and stash next )
|
||||||
DUP2 ;string-start LDA2 EQU2 ,&at-start JCN ( at string start? )
|
DUP2 ;string-start LDA2 EQU2 ,&at-start JCN ( at string start? )
|
||||||
;match-multiline LDA ,&no-match JCN ( are we in multi-line mode? )
|
;match-multiline LDA ,&no-match JCN ( are we in multi-line mode? )
|
||||||
#0001 SUB2 LDAk #0a EQU ,&at-start JCN ( just after newline? )
|
DUP2 #0001 SUB2 LDA #0a EQU ,&at-start JCN ( just after newline? )
|
||||||
&no-match POP2r POP2 ;goto-backtrack JMP2 ( clear stacks and backtrack )
|
&no-match POP2r POP2 ;goto-backtrack JMP2 ( clear stacks and backtrack )
|
||||||
&at-start STH2r ;goto-next JMP2 ( go to next without advancing )
|
&at-start STH2r ;goto-next JMP2 ( go to next without advancing )
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue