12 lines
388 B
Text
12 lines
388 B
Text
$NetBSD: patch-ad,v 1.1 2005/10/20 17:43:29 wiz Exp $
|
|
|
|
--- posix-io.adb.orig 2002-10-24 02:03:52.000000000 -0600
|
|
+++ posix-io.adb
|
|
@@ -631,6 +631,7 @@ package body POSIX.IO is
|
|
To : in Boolean := True) is
|
|
Flags : Bits;
|
|
Result : int;
|
|
+ pragma Warnings (Off, Result);
|
|
begin
|
|
Begin_Critical_Section;
|
|
Flags := To_Bits (fcntl (int (File), F_GETFD));
|