- fixed issues with GHDL

- fixed not closing file git-svn-id: http://moon:8086/svn/vhdl/trunk@1388 cc03376c-175c-47c8-b038-4cd826a8556b
2021-03-19 11:06:38 +00:00
parent 88975a56a0
commit c5d7d2fe3b
3 changed files with 12 additions and 9 deletions
@@ -135,10 +135,11 @@ CLK_GEN: process
 	end process;

 STIMULUS: process
-	file RESULT:        text open write_mode is "../tools/opc.list"; 
+	file RESULT:        text; 
 	variable L:         line;

 	begin
+		file_open(RESULT, "../tools/opc.list", WRITE_MODE);

 		for i in 0 to instr_name_array'length-1 loop
 			fprint(RESULT, L,"%d %s\n", fo(i), instr_name_array(i));
@@ -151,7 +152,9 @@ STIMULUS: process
 		wait until rising_edge(clk);
 		ce <= '1';
 	
-		assert false report "Test finished" severity error;
+		file_close(RESULT);
+		
+		assert false report "Test finished" severity failure;
 		wait; 
 	
 	end process;