d6
/
uxn
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixed line numbers in asma error reports

This commit is contained in:
Andrew Alderwick 2021-10-06 06:58:30 +01:00
parent 0c6b607f91
commit 10a723f5d6
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
projects/software/asma.tal
View File

@ -311,8 +311,8 @@ include projects/library/file-read-chunks.tal
LDAk #0a NEQ ( end-chunk* ws-char* not-newline / line^ start-of-token* )
#00 OVR2 STA
STH2r ,asma-assemble-token JSR ( end-chunk* ws-char* not-newline / line^ )
JMP INC2r ( end-chunk* ws-char* / line^ )
asma-IF-ERROR ,&error JCN
JMP INC2r ( end-chunk* ws-char* / line^ )
;asma/break LDA ,&break JCN
INC2 STH2k ( end-chunk* start-of-token* / line^ start-of-token* )
,&loop JMP
@ -323,9 +323,11 @@ include projects/library/file-read-chunks.tal
INC2 NIP2 ( assembled-up-to-ptr* / line^ )
STH2r SWP2 JMP2r
&error ( end-chunk* ws-char* / line^ )
&error ( end-chunk* ws-char* not-newline / line^ )
( return no progress with assembly to make file-read-chunks exit )
POP2 POP2 STH2r ;asma-read-buffer
POP POP2 POP2
STH2kr ;asma/line STA2
STH2r ;asma-read-buffer
JMP2r
&eof ( end-chunk* ws-char* / line^ start-of-token* )