d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

identifier pfd_type renamed to fdtpp

Browse source
This commit is contained in:
dick 1986-03-26 14:01:10 +00:00
parent 80155f7b4c
commit 8546fbe868
1 changed files with 11 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
lang/cem/cemcom/struct.c
View file

@ -353,10 +353,10 @@ uniq_selector(idf_sdef)
#ifndef NOBITFIELD #ifndef NOBITFIELD
arith arith
add_field(szp, fd, pfd_type, idf, stp) add_field(szp, fd, fdtpp, idf, stp)
arith *szp; /* size of struct upto here */ arith *szp; /* size of struct upto here */
struct field *fd; /* bitfield, containing width */ struct field *fd; /* bitfield, containing width */
struct type **pfd_type; /* type of selector */ struct type **fdtpp; /* type of selector */
struct idf *idf; /* name of selector */ struct idf *idf; /* name of selector */
struct type *stp; /* current struct descriptor */ struct type *stp; /* current struct descriptor */
{ {
@ -383,11 +383,11 @@ add_field(szp, fd, pfd_type, idf, stp)
fd->fd_width > bits_in_type fd->fd_width > bits_in_type
) { ) {
error("illegal field-width specified"); error("illegal field-width specified");
*pfd_type = error_type; *fdtpp = error_type;
return field_offset; return field_offset;
} }
switch ((*pfd_type)->tp_fund) { switch ((*fdtpp)->tp_fund) {
case CHAR: case CHAR:
case SHORT: case SHORT:
@ -395,10 +395,10 @@ add_field(szp, fd, pfd_type, idf, stp)
case ENUM: case ENUM:
case LONG: case LONG:
/* right type; size OK? */ /* right type; size OK? */
if ((*pfd_type)->tp_size > word_size) { if ((*fdtpp)->tp_size > word_size) {
error("bit field type %s does not fit in a word", error("bit field type %s does not fit in a word",
symbol2str((*pfd_type)->tp_fund)); symbol2str((*fdtpp)->tp_fund));
*pfd_type = error_type; *fdtpp = error_type;
return field_offset; return field_offset;
} }
break; break;
@ -406,8 +406,8 @@ add_field(szp, fd, pfd_type, idf, stp)
default: default:
/* wrong type altogether */ /* wrong type altogether */
error("illegal field type (%s)", error("illegal field type (%s)",
symbol2str((*pfd_type)->tp_fund)); symbol2str((*fdtpp)->tp_fund));
*pfd_type = error_type; *fdtpp = error_type;
return field_offset; return field_offset;
} }
@ -447,8 +447,8 @@ add_field(szp, fd, pfd_type, idf, stp)
Now we need a mask to use its value in expressions. Now we need a mask to use its value in expressions.
*/ */
*pfd_type = construct_type(FIELD, *pfd_type, (arith)0); *fdtpp = construct_type(FIELD, *fdtpp, (arith)0);
(*pfd_type)->tp_field = fd; (*fdtpp)->tp_field = fd;
/* Set the mask right shifted. This solution avoids the /* Set the mask right shifted. This solution avoids the
problem of having sign extension when using the mask for problem of having sign extension when using the mask for