Cache vpi_call error messages so we can include file and line info.

This patch caches the vpi_call error messages (task/function does
not exist, task being called as a function and function being
called as a task). This allows us to display the file name and line
number information for the invalid usage.

vvp/compile.h

@@ -406,6 +406,7 @@ extern void compile_vpi_func_call(char*label, char*name,
 				  unsigned vbit, int vwid,
 				  long file_idx, long lineno,
 				  unsigned argc, vpiHandle*argv);
+extern void print_vpi_call_errors();
 
 extern void compile_fork(char*label, struct symb_s targ_s,
 			 struct symb_s scope_s);

vvp/main.cc

@@ -367,6 +367,7 @@ int main(int argc, char*argv[])
 
       int ret_cd = compile_design(design_path);
       destroy_lexor();
+      print_vpi_call_errors();
       if (ret_cd) return ret_cd;
 
       if (!have_ivl_version) {

vvp/vpi_tasks.cc

@@ -624,6 +624,67 @@ void vpip_make_systf_system_defined(vpiHandle ref)
       obj->is_user_defn = false;
 }
 
+/*
+ * To get better error message we need to cache the vpi_call fail
+ * information so that we can print the file name.
+ */
+enum vpi_call_error_type {VPI_CALL_NO_DEF, VPI_CALL_TASK_AS_FUNC,
+                          VPI_CALL_FUNC_AS_TASK};
+typedef struct vpi_call_error {
+      vpi_call_error_type type;
+      char *name;
+      long file_idx;
+      long lineno;
+} vpi_call_error_s, *vpi_call_error_p;
+
+static vpi_call_error_p vpi_call_error_lst = NULL;
+static unsigned vpi_call_error_num = 0;
+
+static void add_vpi_call_error(vpi_call_error_type type, const char *name,
+                               long file_idx, long lineno)
+{
+      vpi_call_error_lst = (vpi_call_error_p)
+                            realloc((void *)vpi_call_error_lst,
+                                    (vpi_call_error_num + 1) *
+                                    sizeof(vpi_call_error_s));
+      vpi_call_error_lst[vpi_call_error_num].type = type;
+      vpi_call_error_lst[vpi_call_error_num].name = strdup(name);
+      vpi_call_error_lst[vpi_call_error_num].file_idx = file_idx;
+      vpi_call_error_lst[vpi_call_error_num].lineno = lineno;
+      vpi_call_error_num += 1;
+}
+
+void print_vpi_call_errors()
+{
+      for (unsigned idx = 0; idx < vpi_call_error_num; idx += 1) {
+	    switch (vpi_call_error_lst[idx].type) {
+		case VPI_CALL_NO_DEF:
+		  fprintf(stderr, "%s:%d: Error: System task/function %s() is "
+		                  "not defined by any module.\n",
+		                  file_names[vpi_call_error_lst[idx].file_idx],
+		                  vpi_call_error_lst[idx].lineno,
+		                  vpi_call_error_lst[idx].name);
+		  break;
+		case VPI_CALL_TASK_AS_FUNC:
+		  fprintf(stderr, "%s:%d: Error: %s() is a system task, it "
+			          "cannot be called as a function.\n",
+		                  file_names[vpi_call_error_lst[idx].file_idx],
+		                  vpi_call_error_lst[idx].lineno,
+		                  vpi_call_error_lst[idx].name);
+		  break;
+		case VPI_CALL_FUNC_AS_TASK:
+		  fprintf(stderr, "%s:%d: Error: %s() is a system function, it "
+			          "cannot be called as a task.\n",
+		                  file_names[vpi_call_error_lst[idx].file_idx],
+		                  vpi_call_error_lst[idx].lineno,
+		                  vpi_call_error_lst[idx].name);
+		  break;
+	    }
+	    free(vpi_call_error_lst[idx].name);
+      }
+      free(vpi_call_error_lst);
+}
+
 /*
  * A vpi_call is actually built up into a vpiSysTaskCall VPI object
  * that refers back to the vpiUserSystf VPI object that is the
@@ -643,16 +704,15 @@ vpiHandle vpip_build_vpi_call(const char*name, unsigned vbit, int vwid,
 {
       struct __vpiUserSystf*defn = vpip_find_systf(name);
       if (defn == 0) {
-	    fprintf(stderr, "%s: This task not defined "
+	    add_vpi_call_error(VPI_CALL_NO_DEF, name, file_idx, lineno);
-		    "by any modules. I cannot compile it.\n", name);
 	    return 0;
       }
 
       switch (defn->info.type) {
 	  case vpiSysTask:
 	    if (vwid != 0 || fnet != 0) {
-		  fprintf(stderr, "%s: This is a system Task, "
+		  add_vpi_call_error(VPI_CALL_TASK_AS_FUNC, name, file_idx,
-			  "you cannot call it as a Function\n", name);
+		                     lineno);
 		  return 0;
 	    }
 	    assert(vbit == 0);
@@ -660,14 +720,15 @@ vpiHandle vpip_build_vpi_call(const char*name, unsigned vbit, int vwid,
 
 	  case vpiSysFunc:
 	    if (vwid == 0 && fnet == 0) {
-		  fprintf(stderr, "%s: This is a system Function, "
+		  add_vpi_call_error(VPI_CALL_FUNC_AS_TASK, name, file_idx,
-			  "you cannot call it as a Task\n", name);
+		                     lineno);
 		  return 0;
 	    }
 	    break;
 
 	  default:
-	    fprintf(stderr, "Unsupported type %d.\n", (int)defn->info.type);
+	    fprintf(stderr, "Unsupported call type %d.\n",
+	                    (int)defn->info.type);
 	    assert(0);
       }