diff options
| author | Tristan Gingold <tgingold@free.fr> | 2018-08-15 06:41:38 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2018-08-15 06:41:38 +0200 |
| commit | a458fd128b05cbe6c0343c2da3d10b9a57bb5756 (patch) | |
| tree | d14d20b26ec7d4ab2422cef82a9452349962a9a6 | |
| parent | ded2825eb086493655d90b499c3dcf3abd9e5867 (diff) | |
| download | ghdl-a458fd128b05cbe6c0343c2da3d10b9a57bb5756.tar.gz ghdl-a458fd128b05cbe6c0343c2da3d10b9a57bb5756.tar.bz2 ghdl-a458fd128b05cbe6c0343c2da3d10b9a57bb5756.zip | |
Add comment.
| -rw-r--r-- | src/grt/grt-files.adb | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/grt/grt-files.adb b/src/grt/grt-files.adb index c23724e7f..3e8e12165 100644 --- a/src/grt/grt-files.adb +++ b/src/grt/grt-files.adb @@ -174,6 +174,7 @@ package body Grt.Files is begin Stream := Get_File (File); + -- LRM93 3.4.1 File Operations -- LRM08 5.5.2 File Operations -- It is an error if ENDFILE is called on a file object that is not -- open. @@ -181,6 +182,7 @@ package body Grt.Files is Error_Call_Stack ("endfile with a non-opened file", 1); end if; + -- LRM93 3.4.1 File Operations -- LRM08 5.5.2 File Operations -- Function ENDFILE always returns TRUE for an open file object whose -- access mode is write-only. |