... | ... |
@@ -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 |
|