date and time created 83/08/05 13:34:37 by sam
[unix-history] / usr / src / old / dbx / check.c
index 171fbbf..b85d7e9 100644 (file)
@@ -1,6 +1,6 @@
 /* Copyright (c) 1982 Regents of the University of California */
 
 /* Copyright (c) 1982 Regents of the University of California */
 
-static char sccsid[] = "@(#)@(#)check.c 1.1 %G%";
+static char sccsid[] = "@(#)check.c 1.4 %G%";
 
 /*
  * Check a tree for semantic correctness.
 
 /*
  * Check a tree for semantic correctness.
@@ -93,7 +93,7 @@ Node p;
            chkaddr(place);
        }
     } else {
            chkaddr(place);
        }
     } else {
-       if (exp->op != O_RVAL and exp->op != O_SYM) {
+       if (exp->op != O_RVAL and exp->op != O_SYM and exp->op != O_CALL) {
            error("can't trace expressions");
        }
        chkblock(place);
            error("can't trace expressions");
        }
        chkblock(place);
@@ -120,8 +120,6 @@ Node p;
            enderrmsg();
        }
        chkblock(place);
            enderrmsg();
        }
        chkblock(place);
-    } else if (cond != nil) {
-       chkblock(place);
     } else if (place->op == O_SYM) {
        chkblock(place);
     } else {
     } else if (place->op == O_SYM) {
        chkblock(place);
     } else {