}; // 0112 length
+// Function prototypes
+int HandleLabel(char *, int);
+
+
//
// Initialize Line Processor
//
SYM * sy, * sy2; // Symbol (temp usage)
char * opname = NULL; // Name of dirctve/mnemonic/macro
int listflag; // 0: Don't call listeol()
- int as68mode = 0; // 1: Handle multiple labels
+// int as68mode = 0; // 1: Handle multiple labels
WORD rmask; // Register list, for REG
int registerbank; // RISC register bank
int riscreg; // RISC register
// and come back at `as68label' above.
if (as68_flag)
{
- as68mode = 0;
+// as68mode = 0;
+ // Looks like another label follows the previous one, so handle
+ // the previous one
if (*tok == SYMBOL && tok[2] == ':')
{
- as68mode = 1;
- goto do_label;
+// as68mode = 1;
+// goto do_label;
+ if (HandleLabel(label, labtyp) != 0)
+ goto loop;
+
+ goto as68label;
}
}
}
case MN_ENDM: // .endm --- same as .exitm
if (!disabled)
{
+ // Label on a macro definition is bad mojo... Warn the user
if (label != NULL)
warn(lab_ignored);
case MN_REPT:
if (!disabled)
{
+#if 0
if (label != NULL)
warn(lab_ignored);
+#else
+ // Handle labels on REPT directive lines...
+ if (label)
+ {
+ if (HandleLabel(label, labtyp) != 0)
+ goto loop;
+ }
+#endif
defrept();
}
if (label != NULL)
{
do_label:
+#if 0
// Check for dot in front of label; means this is a local label if present
j = (*label == '.' ? curenv : 0);
sy = lookup(label, LABEL, j);
sy->sattr |= GLOBAL;
}
-
+#else
+ // Non-zero == error occurred
+ if (HandleLabel(label, labtyp) != 0)
+ goto loop;
+#endif
// If we're in as68 mode, and there's another label, go back and handle it
- if (as68_flag && as68mode)
- goto as68label;
+// if (as68_flag && as68mode)
+// goto as68label;
}
// Punt on EOL
}
+//
+// Handle the creation of labels
+//
+int HandleLabel(char * label, int labelType)
+{
+ // Check for dot in front of label; means this is a local label if present
+ int j = (*label == '.' ? curenv : 0);
+ SYM * sy = lookup(label, LABEL, j);
+
+ if (sy == NULL)
+ {
+ sy = NewSymbol(label, LABEL, j);
+ sy->sattr = 0;
+ sy->sattre = RISCSYM;
+ }
+ else if (sy->sattr & DEFINED)
+ return errors("multiply-defined label '%s'", label);
+
+ // Put symbol in "order of definition" list
+ if (!(sy->sattr & SDECLLIST))
+ sym_decl(sy);
+
+ if (orgactive)
+ {
+ sy->svalue = orgaddr;
+ sy->sattr |= ABS | DEFINED | EQUATED;
+ }
+ else
+ {
+ sy->svalue = sloc;
+ sy->sattr |= DEFINED | cursect;
+ }
+
+ lab_sym = sy;
+
+ if (!j)
+ curenv++;
+
+ // Make label global if it has a double colon
+ if (labelType == DCOLON)
+ {
+ if (j)
+ return error(locgl_error);
+
+ sy->sattr |= GLOBAL;
+ }
+
+ return 0;
+}
+
+
//
// .if, Start Conditional Assembly
//