proc_common_read_integer_file(): Return zeros when file is UNUSED. Report...

proc_common_read_integer_file(): Return zeros when file is UNUSED. Report failure when nof_row > nof lines in file.

libraries/base/common/tb/vhdl/tb_common_pkg.vhd

@@ -990,6 +990,7 @@ PACKAGE BODY tb_common_pkg IS
     VARIABLE v_string      : STRING(1 TO 80);
     VARIABLE v_row_arr     : t_integer_arr(0 TO nof_col-1);
   BEGIN
+    IF file_name/="UNUSED" AND file_name/="unused" THEN
       -- Open the file for reading
       proc_common_open_file(v_file_status, v_in_file, file_name, READ_MODE); 
       -- Read and skip the header
@@ -1002,11 +1003,17 @@ PACKAGE BODY tb_common_pkg IS
           return_array(J*nof_col + I) <= v_row_arr(I);  -- use loop to be independent of t_integer_arr downto or to range
         END LOOP;
         IF ENDFILE(v_in_file) THEN
+          IF J/=nof_row-1 THEN
+            REPORT "COMMON : Unexpected end of file" SEVERITY FAILURE;
+          END IF;
           EXIT;
         END IF;
       END LOOP;
       -- Close the file 
       proc_common_close_file(v_file_status, v_in_file);
+    ELSE
+      return_array <= (return_array'RANGE=>0);
+    END IF;
   END proc_common_read_integer_file;
 
   ------------------------------------------------------------------------------