Browse code

Added error message when label is redefined

Andrew Alderwick authored on 20/10/2021 16:36:08
Showing 1 changed files
... ...
@@ -598,7 +598,10 @@ include projects/library/heap.tal
598 598
 	,&new-label JCN
599 599
 
600 600
 	( label already exists )
601
-	( FIXME check label address hasn't changed (label defined twice) )
601
+	LDA2k ;asma/addr LDA2 EQU2 ,&address-match JCN
602
+	;asma-msg-redefined ;asma/error STA2
603
+
604
+	&address-match
602 605
 	#01 JMP2r
603 606
 
604 607
 	&new-label ( incoming-ptr* )
... ...
@@ -817,6 +820,7 @@ include projects/library/heap.tal
817 820
 @asma-msg-macro     "Macro 20 "already 20 "exists 00
818 821
 @asma-msg-rewound   "Memory 20 "overwrite 00
819 822
 @asma-msg-too-deep  "Recursion 20 "level 20 "too 20 "deep 00
823
+@asma-msg-redefined "Label 20 "redefined 00
820 824
 
821 825
 ( trees )
822 826