sambuc/retrobsd
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed .equ syntax in assembler.

Browse Source
This commit is contained in:
Sergey
2015-06-21 17:05:04 -07:00
parent 76832ba217
commit 57b3ba3506
1 changed files with 19 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
src/cmd/as/as.c
View File

@@ -1987,7 +1987,7 @@ void pass1 ()
stab[cval].n_type &= ~N_TYPE;
stab[cval].n_type |= segmtype [segm];
continue;
} else if (clex=='=' || clex==LEQU) {
} else if (clex=='=') {
/* Symbol definition. */
cval = lookname();
stab[cval].n_value = getexpr (&csegm);
@@ -1996,22 +1996,6 @@ void pass1 ()
stab[cval].n_type &= N_EXT;
stab[cval].n_type |= segmtype [csegm];
break;
} else if (clex==LCOMM) {
/* name .comm len */
cval = lookname();
if (stab[cval].n_type != N_UNDF &&
stab[cval].n_type != N_LOC &&
(stab[cval].n_type & N_TYPE) != N_COMM)
uerror ("name already defined");
if (stab[cval].n_type & N_LOC)
stab[cval].n_type = N_COMM;
else
stab[cval].n_type = N_EXT | N_COMM;
getexpr (&tval);
if (tval != SABS)
uerror ("bad .comm length");
stab[cval].n_value = intval;
break;
}
/* Machine instruction. */
if (cval < 0)
@@ -2165,6 +2149,24 @@ void pass1 ()
}
}
break;
case LEQU:
/* .equ name,value */
if (getlex (&cval) != LNAME)
uerror ("bad parameter of .equ");
cval = lookname();
if (stab[cval].n_type != N_UNDF &&
stab[cval].n_type != N_LOC &&
(stab[cval].n_type & N_TYPE) != N_COMM)
uerror ("name already defined");
clex = getlex (&tval);
if (clex != ',')
uerror ("bad value of .equ");
stab[cval].n_value = getexpr (&csegm);
if (csegm == SEXT)
uerror ("indirect equivalence");
stab[cval].n_type &= N_EXT;
stab[cval].n_type |= segmtype [csegm];
break;
case LCOMM:
/* .comm name,len[,alignment] */
if (getlex (&cval) != LNAME)