diff options
Diffstat (limited to 'lang/gnat/files/patch-al')
-rw-r--r-- | lang/gnat/files/patch-al | 34 |
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; |