• R/O
  • SSH

Ada95FL: 提交

Ada 95 foundation library


Commit MetaInfo

修订版fd8e0411c3cadd591379c52531c777f3e559d8a7 (tree)
时间2019-10-27 02:57:10
作者Sergey Dukov <dukov54@live...>
CommiterSergey Dukov

Log Message

#32764 Удаление процедуры "Delete" (она опасна конфликтами между инстанциями)

更改概述

差异

diff -r fd8191a042f7 -r fd8e0411c3ca File_Stream/file_stream_io.adb
--- a/File_Stream/file_stream_io.adb Sat Oct 26 09:35:18 2019 +0400
+++ b/File_Stream/file_stream_io.adb Sat Oct 26 21:57:10 2019 +0400
@@ -77,17 +77,6 @@
7777 end if;
7878 end Finalize;
7979
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-
9180 procedure Reset (File : in out File_Stream; Mode : File_Mode)
9281 is
9382 begin
diff -r fd8191a042f7 -r fd8e0411c3ca File_Stream/file_stream_io.ads
--- a/File_Stream/file_stream_io.ads Sat Oct 26 09:35:18 2019 +0400
+++ b/File_Stream/file_stream_io.ads Sat Oct 26 21:57:10 2019 +0400
@@ -19,7 +19,6 @@
1919 function Create (Name : String_32;
2020 Mode : File_Mode := Out_File) return File_Stream;
2121
22- procedure Delete (File : in out File_Stream);
2322 procedure Reset (File : in out File_Stream; Mode : File_Mode);
2423 procedure Reset (File : in out File_Stream);
2524
Show on old repository browser