head	1.2;
access;
symbols
	RELEASE_4_4_0:1.1
	RELEASE_4_3_0:1.1;
locks; strict;
comment	@# @;


1.2
date	2001.10.26.19.12.05;	author lioux;	state dead;
branches;
next	1.1;

1.1
date	2000.12.27.11.28.58;	author alex;	state Exp;
branches;
next	;


desc
@@


1.2
log
@o update to 1.1.p (remove unnecessary patches)

PR:		29095
Submitted by:	MAINTAINER
@
text
@--- g-os_lib.adb.orig	Tue Apr  4 20:32:52 2000
+++ g-os_lib.adb	Tue Apr  4 20:33:38 2000
@@@@ -173,25 +173,11 @@@@
      (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 Get_Temp_Name (T : Address) return File_Descriptor;
+      pragma Import (C, Get_Temp_Name, "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 := Get_Temp_Name (Name'Address);
    end Create_Temp_File;
 
    -----------------
@


1.1
log
@Add jgnat-1.0p, an Ada to Java-Byte-Code compiler.

PR:		17799
Submitted by:	Samuel Tardieu <sam@@inf.enst.fr>
@
text
@@

