d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages 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); va_start(ap);
{ {
_error(DO_DEBUG, dot.tk_file, dot.tk_line, ap); _error(DO_DEBUG, dot.tk_file, dot.tk_line, ap);
/* _error(DO_DEBUG, NILEXPR, ap);
*/
} }
va_end(ap); va_end(ap);
} }
@ -160,6 +162,8 @@ warning(va_alist)
va_start(ap); va_start(ap);
{ {
_error(WARNING, dot.tk_file, dot.tk_line, ap); _error(WARNING, dot.tk_file, dot.tk_line, ap);
/* _error(WARNING, NILEXPR, ap);
*/
} }
va_end(ap); va_end(ap);
} }

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

@ -35,7 +35,6 @@ int idfsize = IDFSIZE;
extern char options[]; extern char options[];
extern arith NewLocal(); extern arith NewLocal();
extern char *symbol2str(); extern char *symbol2str();
extern char *sprint();
char sp_occurred[SP_TOTAL+1]; /* indicate occurrence of special id */ 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; int lvl;
{ {
/* The full typed identifier or abstract type, described /* 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. a into parameter type list structure.
The parameters will be declared at level L_FORMAL2, 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. or actual declarations.
*/ */
register struct idf *idf = dc->dc_idf; 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_file = idf->id_file;
newdef->df_line = idf->id_line; newdef->df_line = idf->id_line;
#ifdef LINT #ifdef LINT
newdef->df_set = 0; newdef->df_set = (type->tp_fund == ARRAY);
/* newdef->df_firstbrace = 0; */ /* newdef->df_firstbrace = 0; */
#endif #endif
/* We can't put the idf onto the stack, since these kinds /* We can't put the idf onto the stack, since these kinds
@ -168,8 +168,8 @@ add_proto(pl, ds, dc, lvl)
struct tag * struct tag *
gettag(tp, idpp) gettag(tp, idpp)
struct type *tp; struct type *tp;
struct idf **idpp; struct idf **idpp;
{ {
struct tag *tg = (struct tag *)0; struct tag *tg = (struct tag *)0;
register int fund = tp->tp_fund; register int fund = tp->tp_fund;
@ -317,7 +317,7 @@ update_proto(tp, otp)
* remove them from the symbol-table * remove them from the symbol-table
*/ */
remove_proto_tag(tp) remove_proto_tag(tp)
struct type *tp; struct type *tp;
{ {
register struct idf *ident; register struct idf *ident;
register struct tag *tgp, **tgpp; register struct tag *tgp, **tgpp;
@ -389,7 +389,7 @@ call_proto(expp)
{ {
/* If the function specified by (*expp)->OP_LEFT has a prototype, /* If the function specified by (*expp)->OP_LEFT has a prototype,
the parameters are converted according the rules specified in 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 counter parts as if by assignment. For the parameters falling
under ellipsis clause the old parameters conversion stuff under ellipsis clause the old parameters conversion stuff
applies. applies.