etc/uxn
0
0
Fork 0
mirror of https://git.sr.ht/~rabbits/uxn synced 2024-11-30 01:33:01 +00:00
Code Issues Projects Releases Wiki Activity

Added file name to asma error printout.

Browse source
This commit is contained in:
Andrew Alderwick 2021-10-07 22:58:50 +01:00
parent 5aca7e5070
commit 3967d27173
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
projects/library/asma.tal
View file

@ -60,17 +60,20 @@
) )
@asma-print-error ( -- ) @asma-print-error ( -- )
.File/name DEI2 ;asma-print-string JSR2
;&line ;asma-print-string JSR2
;asma/line LDA2 ;asma-print-short JSR2
#3a .Console/error DEO
#20 .Console/error DEO
;asma/error LDA2 ;asma-print-string JSR2 ;asma/error LDA2 ;asma-print-string JSR2
#3a .Console/error DEO #3a .Console/error DEO
#20 .Console/error DEO #20 .Console/error DEO
;asma/orig-token LDA2 ;asma-print-string JSR2 ;asma/orig-token LDA2 ;asma-print-string JSR2
;&line ;asma-print-string JSR2
;asma/line LDA2 ;asma-print-short JSR2
#2e .Console/error DEO #2e .Console/error DEO
#0a .Console/error DEO #0a .Console/error DEO
JMP2r JMP2r
&line 20 "on 20 "line 20 00 &line 20 "line 20 00
@asma-print-line-count ( -- ) @asma-print-line-count ( -- )
;asma/log-level LDA #01 AND #00 EQU ,&skip JCN ;asma/log-level LDA #01 AND #00 EQU ,&skip JCN