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

undo modifications outside #ifdef LINT

Browse source
This commit is contained in:
dick 1991-01-10 17:49:19 +00:00
parent 5aa72b23cf
commit 32eddf7846
3 changed files with 11 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lang/cem/cemcom.ansi/error.c
View file

@ -146,6 +146,8 @@ debug(va_alist)
va_start(ap);
{
_error(DO_DEBUG, dot.tk_file, dot.tk_line, ap);
/* _error(DO_DEBUG, NILEXPR, ap);
*/
}
va_end(ap);
}
@ -160,6 +162,8 @@ warning(va_alist)
va_start(ap);
{
_error(WARNING, dot.tk_file, dot.tk_line, ap);
/* _error(WARNING, NILEXPR, ap);
*/
}
va_end(ap);
}

1
lang/cem/cemcom.ansi/idf.c
View file

@ -35,7 +35,6 @@ int idfsize = IDFSIZE;
extern char options[];
extern arith NewLocal();
extern char *symbol2str();
extern char *sprint();
char sp_occurred[SP_TOTAL+1]; /* indicate occurrence of special id */

14
lang/cem/cemcom.ansi/proto.c
View file

@ -56,10 +56,10 @@ add_proto(pl, ds, dc, lvl)
int lvl;
{
/* The full typed identifier or abstract type, described
by the structures decspecs and declarator is turned
by the structures decspecs and declarator are turned
a into parameter type list structure.
The parameters will be declared at level L_FORMAL2,
later on it will decided whether they were prototypes
later on it's decided whether they were prototypes
or actual declarations.
*/
register struct idf *idf = dc->dc_idf;
@ -132,7 +132,7 @@ add_proto(pl, ds, dc, lvl)
newdef->df_file = idf->id_file;
newdef->df_line = idf->id_line;
#ifdef LINT
newdef->df_set = 0;
newdef->df_set = (type->tp_fund == ARRAY);
/* newdef->df_firstbrace = 0; */
#endif
/* We can't put the idf onto the stack, since these kinds
@ -168,8 +168,8 @@ add_proto(pl, ds, dc, lvl)
struct tag *
gettag(tp, idpp)
struct type *tp;
struct idf **idpp;
struct type *tp;
struct idf **idpp;
{
struct tag *tg = (struct tag *)0;
register int fund = tp->tp_fund;
@ -317,7 +317,7 @@ update_proto(tp, otp)
* remove them from the symbol-table
*/
remove_proto_tag(tp)
struct type *tp;
struct type *tp;
{
register struct idf *ident;
register struct tag *tgp, **tgpp;
@ -389,7 +389,7 @@ call_proto(expp)
{
/* If the function specified by (*expp)->OP_LEFT has a prototype,
the parameters are converted according the rules specified in
par. 3.3.2.2. I.e., the parameters are converted to the prototype
par. 3.3.2.2. E.i. the parameters are converted to the prototype
counter parts as if by assignment. For the parameters falling
under ellipsis clause the old parameters conversion stuff
applies.