- Some added error/bounds detection all around.

2004-08-31 12:35:05 +00:00
parent a673ea4ad1
commit 0e9b7dcf11
4 changed files with 46 additions and 9 deletions
--- a/src/compiler.c
+++ b/src/compiler.c
@@ -513,6 +513,10 @@ commEvent (int event, Tac tc)

      /* store claim in claim list */

+      if (label == NULL)
+	{
+	  error ("Claim should have label on line %i.", trip->next->lineno);
+	}
      // First check whether label is unique
      cl = sys->claimlist;
      while (cl != NULL)