diff options
Diffstat (limited to 'simulate/file_operation.ads')
| -rw-r--r-- | simulate/file_operation.ads | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/simulate/file_operation.ads b/simulate/file_operation.ads index 39cbbb486..b66a06756 100644 --- a/simulate/file_operation.ads +++ b/simulate/file_operation.ads @@ -73,6 +73,8 @@ package File_Operation is Str : Iir_Value_Literal_Acc; Length : Iir_Value_Literal_Acc); + procedure Flush (File : Iir_Value_Literal_Acc); + -- Test end of FILE is reached. function Endfile (File : Iir_Value_Literal_Acc; Stmt : Iir) return Boolean; |