-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);
-
- if (sy == NULL)
- {
- sy = NewSymbol(label, LABEL, j);
- sy->sattr = 0;
- sy->sattre = RISCSYM;
- }
- else if (sy->sattr & DEFINED)
- {
- errors("multiply-defined label '%s'", label);
- goto loop;
- }
-
- // 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 (labtyp == DCOLON)
- {
- if (j)
- {
- error(locgl_error);
- goto loop;
- }
-
- sy->sattr |= GLOBAL;
- }
-#else