+/*
+ * Check to see if a namelist entry refers to a variable.
+ * If not, create a variable for the entry. In any case,
+ * set the offset of the variable according to the value field
+ * in the entry.
+ */
+
+private check_var(np, n)
+struct nlist *np;
+register Name n;
+{
+ register Symbol t;
+
+ find(t, n) where
+ t->class == VAR and t->level == program->level
+ endfind(t);
+ if (t == nil) {
+ t = insert(n);
+ t->language = findlanguage(".s");
+ t->class = VAR;
+ t->type = t_int;
+ t->level = program->level;
+ }
+ t->block = curblock;
+ t->symvalue.offset = np->n_value;
+}
+