head	1.3;
access;
symbols
	RELEASE_4_7_0:1.2
	RELEASE_4_6_2:1.2
	RELEASE_4_6_1:1.2
	RELEASE_4_6_0:1.2
	RELEASE_5_0_DP1:1.2
	RELEASE_4_5_0:1.1
	RELEASE_4_4_0:1.1
	RELEASE_4_3_0:1.1
	RELEASE_4_2_0:1.1;
locks; strict;
comment	@# @;


1.3
date	2002.12.01.19.10.48;	author deischen;	state dead;
branches;
next	1.2;

1.2
date	2002.02.09.08.40.28;	author kevlo;	state Exp;
branches;
next	1.1;

1.1
date	2000.11.01.18.57.03;	author deischen;	state Exp;
branches;
next	;


desc
@@


1.3
log
@Update to the latest released version of GNAT (3.15p).  Also use a
new bootstrap compiler and fix so that it builds under -current.

Approved by:	portmgr
@
text
@--- ada/g-os_lib.adb.orig	Fri Feb  1 23:18:26 2002
+++ ada/g-os_lib.adb	Fri Feb  1 23:22:08 2002
@@@@ -192,26 +192,13 @@@@
      (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 (1 .. Temp_File_Len - 1) := "GNAT-XXXXXX";
       Name (Temp_File_Len)          := 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;
 
    -----------------
@


1.2
log
@Update to version 3.14p

PR: 34670
Submitted by: Joe Marcus Clarke <marcus@@marcuscom.com>
@
text
@@


1.1
log
@Update to the latest public release 3.13p.

Thanks to Samuel Tardieu <sam@@inf.enst.fr> for instigating this
update and providing some of the changes.
@
text
@d1 3
a3 3
--- 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 @@@@
d19 2
a20 1
       Name := "GNAT-XXXXXX" & ASCII.NUL;
@

