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

Full bug fix

This commit is contained in:
~d6 2025-02-21 23:52:59 -05:00
parent 7a3ee46dae
commit 3d0a9f6228
2 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
fix32.tal
View File

@ -284,7 +284,7 @@
INC2 GTH2k ?&fraction !&round ( limit* pos+1 [wlo* whi* 10s+digit*] )
&dotend ( limit* pos* [wlo* whi* s*] )
LIT2r 000a MUL2r ( limit* pos* [wlo* whi* 10s*] )
INC2 GTH2k ?&fraction !&finish ( limit* pos+1* [wlo* whi* 10s*] )
INC2 GTH2k ?&dotend !&finish ( limit* pos+1* [wlo* whi* 10s*] )
&round ( limit* limit* [wlo* whi* s*] )
LDAk #00 EQU ?&finish ( limit* limit* [wlo* whi* s*] )
LDAk #30 LTH ?&error2 ( limit* limit* [wlo* whi* s*] )

12
test-fix32.tal
View File

@ -92,6 +92,11 @@
LIT "$ #18 DEO #0a18 DEO
;data/str17 x32-parse x32-emit #0a18 DEO
;data/str18 x32-parse x32-emit #0a18 DEO
;data/str19 x32-parse x32-emit #0a18 DEO
;data/str20 x32-parse x32-emit #0a18 DEO
;data/str21 x32-parse x32-emit #0a18 DEO
;data/str22 x32-parse x32-emit #0a18 DEO
#800f DEO BRK
@ -140,4 +145,9 @@
&str14 "0.1245 00
&str15 "0.1255 00
&str16 "0.1265 00
&str17 "1.5 00
&str17 "1.500 00
&str18 "1.5 00
&str19 "0.5 00
&str20 ".5 00
&str21 "1.000 00
&str22 "1. 00