37 lines
1.2 KiB
Text
37 lines
1.2 KiB
Text
|
$NetBSD: patch-ah,v 1.1 2003/12/08 18:42:23 drochner Exp $
|
||
|
|
|
||
|
|
--- gcc/ada/i-cstrea.ads.orig 2002-10-23 01:33:26.000000000 -0600
|
||
|
|
+++ gcc/ada/i-cstrea.ads
|
||
|
|
@@ -179,9 +179,6 @@ package Interfaces.C_Streams is
|
||
|
|
|
||
|
|
function isatty (handle : int) return int;
|
||
|
|
|
||
|
|
- procedure mktemp (template : chars);
|
||
|
|
- -- The return value (which is just a pointer to template) is discarded
|
||
|
|
-
|
||
|
|
procedure rewind (stream : FILEs);
|
||
|
|
|
||
|
|
function setvbuf
|
||
|
|
@@ -191,11 +188,6 @@ package Interfaces.C_Streams is
|
||
|
|
size : size_t)
|
||
|
|
return int;
|
||
|
|
|
||
|
|
- procedure tmpnam (string : chars);
|
||
|
|
- -- The parameter must be a pointer to a string buffer of at least L_tmpnam
|
||
|
|
- -- bytes (the call with a null parameter is not supported). The returned
|
||
|
|
- -- value, which is just a copy of the input argument, is discarded.
|
||
|
|
-
|
||
|
|
function tmpfile return FILEs;
|
||
|
|
|
||
|
|
function ungetc (c : int; stream : FILEs) return int;
|
||
|
|
@@ -270,9 +262,7 @@ private
|
||
|
|
pragma Import (C, fseek);
|
||
|
|
pragma Import (C, ftell);
|
||
|
|
pragma Import (C, isatty);
|
||
|
|
- pragma Import (C, mktemp);
|
||
|
|
pragma Import (C, rewind);
|
||
|
|
- pragma Import (C, tmpnam);
|
||
|
|
pragma Import (C, tmpfile);
|
||
|
|
pragma Import (C, ungetc);
|
||
|
|
pragma Import (C, unlink);
|