Bugfix: missing label err when no DATA is used

When no DATA sentence is used, but READ is, a missing
label error shows because a default one is not output
to signal the beginning of the DATA zone.

Author: boriel

arch/zx48k/translator.py

@@ -190,6 +190,9 @@ def emit_data_blocks(self):
                 else:
                     self.emit('data', self.TSUFFIX(d.value.type_), [self.traverse_const(d.value)])
 
+        if not gl.DATAS:  # The above loop was not executed, because there's no data
+            self.emit('label', '__DATA__0')
+
         self.emit('vard', '__DATA__END', ['00'])
 
     def emit_strings(self):

tests/functional/arrbase1.asm

@@ -56,6 +56,7 @@ __END_PROGRAM:
 	ret
 __CALL_BACK__:
 	DEFW 0
+__DATA__0:
 __DATA__END:
 	DEFB 00h
 #line 1 "array.asm"
@@ -257,7 +258,7 @@ __FNMUL2:
 
 		ENDP
 
-#line 47 "arrbase1.bas"
+#line 48 "arrbase1.bas"
 #line 1 "read_restore.asm"
 
 	;; This implements READ & RESTORE functions
@@ -1544,7 +1545,7 @@ __DATA_ADDR:  ;; Stores current DATA ptr
 
 
 
-#line 48 "arrbase1.bas"
+#line 49 "arrbase1.bas"
 
 ZXBASIC_USER_DATA:
 _k: