lint: retrieving string arguments from str_list

diff --git a/lang/cem/cemcom/arith.c b/lang/cem/cemcom/arith.c
index fa02fd4..5632e84 100644 (file)
--- a/lang/cem/cemcom/arith.c
+++ b/lang/cem/cemcom/arith.c
@@ -339,7 +339,6 @@ function2pointer(exp)
 string2pointer(ex)
        register struct expr *ex;
 {
-#ifndef        LINT
        /*      The expression, which must be a string constant, is converted
                to a pointer to the string-containing area.
        */
@@ -350,7 +349,6 @@ string2pointer(ex)
        ex->VL_CLASS = Label;
        ex->VL_LBL = lbl;
        ex->VL_VALUE = (arith)0;
-#endif LINT
 }
 
 opnd2integral(expp, oper)

diff --git a/lang/cem/cemcom/code.c b/lang/cem/cemcom/code.c
index 6a9b9f4..3bcd510 100644 (file)
--- a/lang/cem/cemcom/code.c
+++ b/lang/cem/cemcom/code.c
@@ -72,9 +72,8 @@ init_code(dst_file)
 }
 #endif LINT
 
-static struct string_cst *str_list = 0;
+struct string_cst *str_list = 0;
 
-#ifndef        LINT
 code_string(val, len, dlb)
        char *val;
        int len;
@@ -89,7 +88,6 @@ code_string(val, len, dlb)
        sc->sc_len = len;
        sc->sc_dlb = dlb;
 }
-#endif LINT
 
 def_strings(sc)
        register struct string_cst *sc;

diff --git a/lang/cem/cemcom/code.str b/lang/cem/cemcom/code.str
index f96b6e4..6fa088c 100644 (file)
--- a/lang/cem/cemcom/code.str
+++ b/lang/cem/cemcom/code.str
@@ -12,6 +12,8 @@ struct string_cst     {       /* storing string constants */
        label sc_dlb;
 };
 
+extern struct string_cst *str_list;
+
 /* ALLOCDEF "string_cst" 10 */
 
 #define        LVAL    0

diff --git a/lang/cem/cemcom/ival.g b/lang/cem/cemcom/ival.g
index 93ce434..3af7f14 100644 (file)
--- a/lang/cem/cemcom/ival.g
+++ b/lang/cem/cemcom/ival.g
@@ -489,12 +489,10 @@ check_ival(expp, tp)
                        else    /* e.g., int a; int *p = &a; */
                                C_con_dnam(idf->id_text, expr->VL_VALUE);
                }
-#ifndef        LINT
                else {
                        ASSERT(expr->VL_CLASS == Label);
                        C_con_dlb(expr->VL_LBL, expr->VL_VALUE);
                }
-#endif LINT
                break;
 #ifndef NOFLOAT
        case FLOAT: