summaryrefslogtreecommitdiff
path: root/lang/gnat/files/patch-al
diff options
context:
space:
mode:
Diffstat (limited to 'lang/gnat/files/patch-al')
-rw-r--r--lang/gnat/files/patch-al34
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;