X-Authentication-Warning: delorie.com: mailnull set sender to djgpp-workers-bounces using -f
From: sandmann AT clio DOT rice DOT edu (Charles Sandmann)
Message-Id: <10204031602.AA18516@clio.rice.edu>
Subject: Re: redirection problem with perl
To: djgpp-workers AT delorie DOT com
Date: Wed, 3 Apr 2002 10:02:47 -0600 (CST)
In-Reply-To: <3CAB1FDB.68F9CF2F@phekda.freeserve.co.uk> from "Richard Dawe" at Apr 03, 2002 04:29:31 PM
X-Mailer: ELM [version 2.5 PL2]
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Reply-To: djgpp-workers AT delorie DOT com
Errors-To: nobody AT delorie DOT com
X-Mailing-List: djgpp-workers AT delorie DOT com
X-Unsubscribes-To: listserv AT delorie DOT com
Precedence: bulk

> > Or fix the FIXME in fcntl.c that would make F_GETFL something other than
> > a no-op, and then use the fixed version to build Perl ;-)
> 
> How about the diff below? This updates the test program to parse F_GETFL's
> return code. OK to commit? I'll add a "What's Changed" entry too for the
> commit.

Does the code below work on NT/Win2K/XP?  If not, the return value is
being changed (previously 0, now -1) for that platform.

> +      /* FIXME: Use the data in the SFT. */
> +      sft_entry_ptr = _get_sft_entry_ptr(fd);
> +      if (!sft_entry_ptr)
> +      {
> +       /* Pass through `errno'. */
> +       return -1;
> +      }
> +
> +      /* Offset 2 in the SFT contains the open flags. */
> +      sft_open_flags = _farpeekw(_dos_ds, sft_entry_ptr + 2);