From 7379c1371f2a83edbdf125a20b7565be983932dc Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Mon, 30 Nov 2015 06:43:17 +0100 Subject: Fix ghdl_simul build. --- src/vhdl/simulate/file_operation.adb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/vhdl/simulate/file_operation.adb') diff --git a/src/vhdl/simulate/file_operation.adb b/src/vhdl/simulate/file_operation.adb index 33700fd6c..7addb3a26 100644 --- a/src/vhdl/simulate/file_operation.adb +++ b/src/vhdl/simulate/file_operation.adb @@ -262,7 +262,7 @@ package body File_Operation is Str : Iir_Value_Literal_Acc; Length : Iir_Value_Literal_Acc) is - Res : Ghdl_Untruncated_Text_Read_Result; + Len : Std_Integer; Val_Len : constant Ghdl_Index_Type := Ghdl_Index_Type (Str.Bounds.D (1).Length); Val_Str : aliased Std_String_Uncons (1 .. Val_Len); @@ -271,12 +271,12 @@ package body File_Operation is To_Std_String_Boundp (Val_Bnd'Address)); begin Ghdl_Untruncated_Text_Read - (Res'Unrestricted_Access, File.File, Val'Unrestricted_Access); - for I in 1 .. Res.Len loop + (File.File, Val'Unrestricted_Access, Len'Unrestricted_Access); + for I in 1 .. Len loop Str.Val_Array.V (Iir_Index32 (I)).E32 := Character'Pos (Val_Str (Ghdl_Index_Type (I))); end loop; - Length.I64 := Ghdl_I64 (Res.Len); + Length.I64 := Ghdl_I64 (Len); end Untruncated_Text_Read; procedure Read_Binary (File: Iir_Value_Literal_Acc; -- cgit v1.2.3