From patchwork Tue Jan 25 18:25:29 2011 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Janne Blomqvist X-Patchwork-Id: 80394 Return-Path: X-Original-To: incoming@patchwork.ozlabs.org Delivered-To: patchwork-incoming@bilbo.ozlabs.org Received: from sourceware.org (server1.sourceware.org [209.132.180.131]) by ozlabs.org (Postfix) with SMTP id 5869FB70E6 for ; Wed, 26 Jan 2011 05:26:01 +1100 (EST) Received: (qmail 3999 invoked by alias); 25 Jan 2011 18:25:37 -0000 Received: (qmail 3978 invoked by uid 22791); 25 Jan 2011 18:25:36 -0000 X-SWARE-Spam-Status: No, hits=-2.2 required=5.0 tests=AWL, BAYES_00, DKIM_SIGNED, DKIM_VALID, DKIM_VALID_AU, FREEMAIL_FROM, RCVD_IN_DNSWL_LOW, TW_BG X-Spam-Check-By: sourceware.org Received: from mail-iw0-f175.google.com (HELO mail-iw0-f175.google.com) (209.85.214.175) by sourceware.org (qpsmtpd/0.43rc1) with ESMTP; Tue, 25 Jan 2011 18:25:31 +0000 Received: by iwn8 with SMTP id 8so67703iwn.20 for ; Tue, 25 Jan 2011 10:25:29 -0800 (PST) MIME-Version: 1.0 Received: by 10.231.199.76 with SMTP id er12mr3443297ibb.72.1295979929038; Tue, 25 Jan 2011 10:25:29 -0800 (PST) Received: by 10.231.160.68 with HTTP; Tue, 25 Jan 2011 10:25:29 -0800 (PST) In-Reply-To: References: Date: Tue, 25 Jan 2011 20:25:29 +0200 Message-ID: Subject: Re: [Patch, libfortran] PR 47432 Use thread-safe ttyname_r() if available From: Janne Blomqvist To: Fortran List , GCC Patches Mailing-List: contact gcc-patches-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Unsubscribe: List-Archive: List-Post: List-Help: Sender: gcc-patches-owner@gcc.gnu.org Delivered-To: mailing list gcc-patches@gcc.gnu.org On Tue, Jan 25, 2011 at 19:33, Janne Blomqvist wrote: > Hi, > > the attached patch makes libgfortran use the thread-safe ttyname_r() > function if available. > > Regtested on x86_64-unknown-linux-gnu, Ok for trunk? > > -- > Janne Blomqvist > The following patch should be on top of the previous patch: diff --git a/libgfortran/io/unix.c b/libgfortran/io/unix.c index ad90552..004e860 100644 --- a/libgfortran/io/unix.c +++ b/libgfortran/io/unix.c @@ -1820,7 +1820,7 @@ stream_ttyname (stream *s __attribute__ ((unused)), return ttyname_r (((unix_stream *) s)->fd, buf, buflen); #elif defined HAVE_TTYNAME char *p; - int plen; + size_t plen; p = ttyname (((unix_stream *) s)->fd); if (!p) return errno;