bugfix: crash upon constant array access

Defining a var like DIM p = @A(3, 4) being var a an
array crashed the compiler. Fixed.

Author: boriel

arch/zx48k/translator.py

@@ -285,6 +285,9 @@ def traverse_const(node):
         if node.token == 'CONST':
             return Translator.traverse_const(node.expr)
 
+        if node.token == 'ARRAYACCESS':
+            return '({} + {})'.format(node.entry.mangled, node.offset)
+
         raise InvalidCONSTexpr(node)
 
     @staticmethod

tests/functional/arrconst.asm

@@ -0,0 +1,61 @@
+	org 32768
+__START_PROGRAM:
+	di
+	push ix
+	push iy
+	exx
+	push hl
+	exx
+	ld hl, 0
+	add hl, sp
+	ld (__CALL_BACK__), hl
+	ei
+	ld hl, (_p)
+	ld (_p), hl
+	ld hl, 0
+	ld b, h
+	ld c, l
+__END_PROGRAM:
+	di
+	ld hl, (__CALL_BACK__)
+	ld sp, hl
+	exx
+	pop hl
+	exx
+	pop iy
+	pop ix
+	ei
+	ret
+__CALL_BACK__:
+	DEFW 0
+
+ZXBASIC_USER_DATA:
+_p:
+	DEFW (_a + 5)
+_a:
+	DEFW 0001h
+	DEFW 0003h
+	DEFB 02h
+	DEFB 00h
+	DEFB 00h
+	DEFB 00h
+	DEFB 00h
+	DEFB 00h
+	DEFB 00h
+	DEFB 00h
+	DEFB 00h
+	DEFB 00h
+	DEFB 00h
+	DEFB 00h
+	DEFB 00h
+	DEFB 00h
+	DEFB 00h
+	DEFB 00h
+	DEFB 00h
+	DEFB 00h
+	DEFB 00h
+	; Defines DATA END --> HEAP size is 0
+ZXBASIC_USER_DATA_END EQU ZXBASIC_MEM_HEAP
+	; Defines USER DATA Length in bytes
+ZXBASIC_USER_DATA_LEN EQU ZXBASIC_USER_DATA_END - ZXBASIC_USER_DATA
+	END

tests/functional/arrconst.bas

@@ -0,0 +1,5 @@
+
+DIM a(2, 2) as UInteger
+DIM p = @a(0, 0)
+p = p
+