commit a09c4fb84109c2fb1b6cb1ef97e24c33590ba5c0 parent 511aa3c5a9f2700932a21ba9884783cff0cecf95 Author: Andrew Alderwick <andrew@alderwick.co.uk> Date: Wed, 20 Oct 2021 17:36:08 +0100 Added error message when label is redefined Diffstat:
| M | projects/library/asma.tal | | | 6 | +++++- |
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/projects/library/asma.tal b/projects/library/asma.tal @@ -598,7 +598,10 @@ include projects/library/heap.tal ,&new-label JCN ( 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 &new-label ( incoming-ptr* ) @@ -817,6 +820,7 @@ include projects/library/heap.tal @asma-msg-macro "Macro 20 "already 20 "exists 00 @asma-msg-rewound "Memory 20 "overwrite 00 @asma-msg-too-deep "Recursion 20 "level 20 "too 20 "deep 00 +@asma-msg-redefined "Label 20 "redefined 00 ( trees )