Update the antiquated version of the GNAT compiler to the GPL-2005

version.

Note that this version now produces executables that are
covered by the GPL as opposed to the previous version which was
covered by the modified GPL.

Also note that the GNAT sources in the stock GCC-4 tree are
not under this restriction.  A new port based on the sources
in GCC-4 will come when I get the time.

1 files changed, 0 insertions, 34 deletions

diff --git a/lang/gnat/files/patch-al b/lang/gnat/files/patch-al
deleted file mode 100644
index fb2b6b81638d..000000000000
--- a/lang/gnat/files/patch-al
+++ /dev/null
@@ -1,34 +0,0 @@
-*** ada/i-cstrea.adb	Fri Sep 24 08:42:42 1999
---- ada/i-cstrea.adb	Sat Nov  6 18:33:57 1999
-***************
-*** 108,111 ****
---- 108,136 ----
-        return C_setvbuf (stream, buffer, mode, size);
-     end setvbuf;
-  
-+    procedure strcpy (dst : chars; src : chars);
-+    pragma Import (C, strcpy);
-+ 
-+    function C_mktemp (template : chars) return chars;
-+    pragma Import (C, C_mktemp, "mktemp");
-+ 
-+    procedure tmpnam (tname : chars) is
-+       use type System.Address;
-+       Template : String (1 .. 18) := "/var/tmp/tmp.XXXX" & ASCII.Nul;
-+       Name     : chars;
-+    begin
-+       Name := C_mktemp (Template'Address);
-+       if Name /= System.Null_Address then
-+          strcpy (tname'Address, Name);
-+       end if;
-+    end tmpnam;
-+ 
-+    function tmpfile return FILEs is
-+       Name : String (1 .. L_tmpnam) := (others => ASCII.Nul);
-+       Mode : String (1 .. 3) := "w+" & ASCII.Nul;
-+    begin
-+       tmpnam (Name'Address);
-+       return (fopen (Name'Address, Mode'Address));
-+    end tmpfile;
-+ 
-  end Interfaces.C_Streams;