Added error message when label is redefined

This commit is contained in:
Andrew Alderwick 2021-10-20 17:36:08 +01:00
parent 511aa3c5a9
commit a09c4fb841
1 changed files with 5 additions and 1 deletions

View File

@ -598,7 +598,10 @@ include projects/library/heap.tal
,&new-label JCN ,&new-label JCN
( label already exists ) ( label already exists )
( FIXME check label address hasn't changed (label defined twice) ) LDA2k ;asma/addr LDA2 EQU2 ,&address-match JCN
;asma-msg-redefined ;asma/error STA2
&address-match
#01 JMP2r #01 JMP2r
&new-label ( incoming-ptr* ) &new-label ( incoming-ptr* )
@ -817,6 +820,7 @@ include projects/library/heap.tal
@asma-msg-macro "Macro 20 "already 20 "exists 00 @asma-msg-macro "Macro 20 "already 20 "exists 00
@asma-msg-rewound "Memory 20 "overwrite 00 @asma-msg-rewound "Memory 20 "overwrite 00
@asma-msg-too-deep "Recursion 20 "level 20 "too 20 "deep 00 @asma-msg-too-deep "Recursion 20 "level 20 "too 20 "deep 00
@asma-msg-redefined "Label 20 "redefined 00
( trees ) ( trees )