neauoire
/
drifblim
mirror of https://git.sr.ht/~rabbits/drifblim
1
1
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Housekeeping

This commit is contained in:
Devine Lu Linvega 2023-04-20 13:28:08 -07:00
parent c6a7755aea
commit e23c5c6a52
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
examples/hello.tal
View File

@ -16,6 +16,7 @@ BRK
JMP2r
( .what ) ( reference )
( @1234 ) ( invalid )
( ,label2 ) ( distance err )
( @label2 ) ( duplicate )

8
src/drifblim.tal
View File

@ -285,7 +285,8 @@ JMP2r
&no-sub
find-symbol
INC2k ORA ?&found
POP2 ;err/reference !on-error
POP2 ;&fill
;err/reference !set-error
&found
( count )
INC2k INC2 LDAk INC ROT ROT STA
@ -309,8 +310,9 @@ JMP2r
( stats ) [ LIT2 &count $2 ] INC2 ,&count STR2
JMP2r
&invalid ;err/invalid set-error POP2 JMP2r
&not-unique ;err/duplicate set-error &skip POP2 JMP2r
&invalid POP2 ;err/invalid !set-error
&not-unique POP2 ;err/duplicate !set-error
&skip POP2 JMP2r
@make-sublabel ( name* -- sublabel* )