diff options
author | Tristan Gingold <gingold@adacore.com> | 2015-11-30 06:43:17 +0100 |
---|---|---|
committer | Tristan Gingold <gingold@adacore.com> | 2015-11-30 20:10:25 +0100 |
commit | 7379c1371f2a83edbdf125a20b7565be983932dc (patch) | |
tree | f46d8486d4fce2666f3c6a2e6764075967406659 /src/vhdl/simulate/file_operation.adb | |
parent | c3845fa138a76f1369e20bc54016094a75da4df2 (diff) | |
download | ghdl-7379c1371f2a83edbdf125a20b7565be983932dc.tar.gz ghdl-7379c1371f2a83edbdf125a20b7565be983932dc.tar.bz2 ghdl-7379c1371f2a83edbdf125a20b7565be983932dc.zip |
Fix ghdl_simul build.
Diffstat (limited to 'src/vhdl/simulate/file_operation.adb')
-rw-r--r-- | src/vhdl/simulate/file_operation.adb | 8 |
1 files changed, 4 insertions, 4 deletions
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; |