undo modifications outside #ifdef LINT

diff --git a/lang/cem/cemcom.ansi/error.c b/lang/cem/cemcom.ansi/error.c
index d4280eb..6199891 100644 (file)
--- a/lang/cem/cemcom.ansi/error.c
+++ b/lang/cem/cemcom.ansi/error.c
@@ -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);
 }

diff --git a/lang/cem/cemcom.ansi/idf.c b/lang/cem/cemcom.ansi/idf.c
index 2e09236..1e0639c 100644 (file)
--- a/lang/cem/cemcom.ansi/idf.c
+++ b/lang/cem/cemcom.ansi/idf.c
@@ -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    */
 

diff --git a/lang/cem/cemcom.ansi/proto.c b/lang/cem/cemcom.ansi/proto.c
index af1f04c..44a25ee 100644 (file)
--- a/lang/cem/cemcom.ansi/proto.c
+++ b/lang/cem/cemcom.ansi/proto.c
@@ -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.