diff options
Diffstat (limited to 'simulate/file_operation.adb')
-rw-r--r-- | simulate/file_operation.adb | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/simulate/file_operation.adb b/simulate/file_operation.adb index 03b346908..2404c4066 100644 --- a/simulate/file_operation.adb +++ b/simulate/file_operation.adb @@ -333,4 +333,9 @@ package body File_Operation is end loop; Length.I64 := Ghdl_I64 (Len); end Read_Length_Binary; + + procedure Flush (File : Iir_Value_Literal_Acc) is + begin + Ghdl_File_Flush (File.File); + end Flush; end File_Operation; |