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

Fix stack imbalance

This commit is contained in:
~d6 2024-09-04 23:31:31 -04:00
parent 54fa407a68
commit dd517061e7
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
gui/m291/src/m291.tal
View File

@ -458,17 +458,17 @@
@min ( x^ y^ -- min^ )
LTHk JMP SWP POP JMP2r
@common-folder-prefix ( -- )
.lines/folders LDZ ?{ JMP2r }
@common-folder-prefix ( -- len^ )
.lines/folders LDZ ?{ #00 JMP2r }
;mem/folders DUP2 LIT2 [ 00 -lines/folders ] LDZ #70 SFT2 ADD2
!common-prefix-0
@common-track-prefix ( -- )
.lines/tracks LDZ ?{ JMP2r }
@common-track-prefix ( -- len^ )
.lines/tracks LDZ ?{ #00 JMP2r }
;mem/tracks DUP2 LIT2 [ 00 -lines/tracks ] LDZ #70 SFT2 ADD2
( >> )
@common-prefix-0 ( first* limit* -- )
@common-prefix-0 ( first* limit* -- len^ )
SWP2 DUP2k str-len STH ( limit* first* first* [len^] )
,&s0 STR2 #0080 ADD2 ( limit* first+128* [len^] )
&loop GTH2k ?&ok POP2 POP2 STHr JMP2r ( len^ )