uxn

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:
M
etc/asma-test.sh
 | 
3
+++
M
projects/library/asma.tal
 | 
1
+

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