commit d5f3bc376e7f43f4453c886cf8d1b0009cc478b7
parent 80b4e4f88d9607348643c97b54ea5d044c1f79ff
Author: Andrew Alderwick <andrew@alderwick.co.uk>
Date: Sat, 30 Oct 2021 07:48:41 +0100
Raise errors on hex literals with zero length
Diffstat:
2 files changed, 4 insertions(+), 0 deletions(-)
diff --git a/etc/asma-test.sh b/etc/asma-test.sh
@@ -43,6 +43,9 @@ EOD
expect_failure 'Invalid hexadecimal: #defg' <<'EOD'
|1000 #defg
EOD
+expect_failure 'Invalid hexadecimal: #' <<'EOD'
+|1000 #
+EOD
expect_failure 'Address not in zero page: .hello' <<'EOD'
|1000 @hello
.hello
diff --git a/projects/library/asma.tal b/projects/library/asma.tal
@@ -376,6 +376,7 @@ include projects/library/file-read-chunks.tal
OR 00 otherwise )
;asma/token LDA2 DUP2 ,strlen JSR ( token* length^ )
DUP2 #0004 GTH2 ,&fail2 JCN
+ ORAk #00 EQU ,&fail2 JCN
&resume
#0002 GTH2 ROT ROT
LIT2r 0000