| 修订版 | fd8e0411c3cadd591379c52531c777f3e559d8a7 (tree) |
|---|---|
| 时间 | 2019-10-27 02:57:10 |
| 作者 |  Sergey Dukov <dukov54@live...> |
| Commiter | Sergey Dukov |
#32764 Удаление процедуры "Delete" (она опасна конфликтами между инстанциями)
File_Stream/file_stream_io.adb (diff) File_Stream/file_stream_io.ads (diff)| @@ -77,17 +77,6 @@ | ||
| 77 | 77 | end if; |
| 78 | 78 | end Finalize; |
| 79 | 79 | |
| 80 | - procedure Delete (File : in out File_Stream) | |
| 81 | - is | |
| 82 | - begin | |
| 83 | - if File.Reference = null then | |
| 84 | - Raise_Exception(Status_Error'Identity, | |
| 85 | - "file not open"); | |
| 86 | - end if; | |
| 87 | - Delete(File.Reference.File); | |
| 88 | - Unreference(File.Reference); | |
| 89 | - end Delete; | |
| 90 | - | |
| 91 | 80 | procedure Reset (File : in out File_Stream; Mode : File_Mode) |
| 92 | 81 | is |
| 93 | 82 | begin |
| @@ -19,7 +19,6 @@ | ||
| 19 | 19 | function Create (Name : String_32; |
| 20 | 20 | Mode : File_Mode := Out_File) return File_Stream; |
| 21 | 21 | |
| 22 | - procedure Delete (File : in out File_Stream); | |
| 23 | 22 | procedure Reset (File : in out File_Stream; Mode : File_Mode); |
| 24 | 23 | procedure Reset (File : in out File_Stream); |
| 25 | 24 |
Fork