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