From 7a3ee46dae6c7148816ba379a07eec6a116931bb Mon Sep 17 00:00:00 2001 From: d_m Date: Fri, 21 Feb 2025 23:41:58 -0500 Subject: [PATCH] fix parsing bug with simple fractions --- fix32.tal | 2 +- test-fix32.tal | 4 ++++ 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/fix32.tal b/fix32.tal index b9abcb3..768da92 100644 --- a/fix32.tal +++ b/fix32.tal @@ -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*] ) diff --git a/test-fix32.tal b/test-fix32.tal index 538a67f..78cf80f 100644 --- a/test-fix32.tal +++ b/test-fix32.tal @@ -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