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

fix parsing bug with simple fractions

This commit is contained in:
~d6 2025-02-21 23:41:58 -05:00
parent d9efa9b5ba
commit 7a3ee46dae
2 changed files with 5 additions and 1 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 !&dotend ( limit* pos+1* [wlo* whi* 10s*] )
INC2 GTH2k ?&fraction !&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*] )

4
test-fix32.tal
View File

@ -90,6 +90,9 @@
;data/str15 x32-parse x32-emit #0a18 DEO
;data/str16 x32-parse x32-emit #0a18 DEO
LIT "$ #18 DEO #0a18 DEO
;data/str17 x32-parse x32-emit #0a18 DEO
#800f DEO BRK
~fix32.tal
@ -137,3 +140,4 @@
&str14 "0.1245 00
&str15 "0.1255 00
&str16 "0.1265 00
&str17 "1.5 00