mirror of
https://git.FreeBSD.org/ports.git
synced 2024-10-30 21:49:25 +00:00
95df74e9ba
Thanks to Samuel Tardieu <sam@inf.enst.fr> for instigating this update and providing some of the changes.
32 lines
968 B
Plaintext
32 lines
968 B
Plaintext
--- ada/g-os_lib.adb.orig Wed Jul 19 15:09:39 2000
|
|
+++ ada/g-os_lib.adb Fri Oct 13 09:09:33 2000
|
|
@@ -173,25 +173,12 @@
|
|
(FD : out File_Descriptor;
|
|
Name : out Temp_File_Name)
|
|
is
|
|
- function Get_Temp_Name (T : Address) return Address;
|
|
- pragma Import (C, Get_Temp_Name, "mktemp");
|
|
-
|
|
- function Open_New_Temp
|
|
- (Name : System.Address;
|
|
- Fmode : Mode)
|
|
- return File_Descriptor;
|
|
- pragma Import (C, Open_New_Temp, "open_new_temp");
|
|
+ function Open_New_Temp (T : Address) return File_Descriptor;
|
|
+ pragma Import (C, Open_New_Temp, "mkstemp");
|
|
|
|
begin
|
|
Name := "GNAT-XXXXXX" & ASCII.NUL;
|
|
-
|
|
- -- Check for NULL pointer returned by C
|
|
-
|
|
- if Get_Temp_Name (Name'Address) = Null_Address then
|
|
- FD := -1;
|
|
- else
|
|
- FD := Open_New_Temp (Name'Address, Binary);
|
|
- end if;
|
|
+ FD := Open_New_Temp (Name'Address);
|
|
end Create_Temp_File;
|
|
|
|
-----------------
|