This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
Re: patch for transfer.c
- From: "François-Xavier Coudert" <fxcoudert at gmail dot com>
- To: "Jack Howarth" <howarth at bromo dot msbb dot uc dot edu>, gfortran <fortran at gcc dot gnu dot org>
- Cc: sgk at troutmask dot apl dot washington dot edu
- Date: Sat, 5 Aug 2006 10:50:42 +0200
- Subject: Re: patch for transfer.c
- Domainkey-signature: a=rsa-sha1; q=dns; c=nofws; s=beta; d=gmail.com; h=received:message-id:date:from:to:subject:cc:in-reply-to:mime-version:content-type:content-transfer-encoding:content-disposition:references; b=ojWyrAbge/nAWOdm8ZFK7k8UBqKoFUjafedv5IVmPcey9Wcw/hrHodruUMMdac47AsX6UhVroajtuy5ELMfnrnDw6pr0E3IrYQECB5KpUoti9PiaVT09KLlf/pZiZLtiedMsDyqp9y+YYAwgt0VDR5tDXGpo+OgrhH4kKpVlunI=
- References: <20060805010950.9741D70006@bromo.msbb.uc.edu>
Hi Jack,
--- transfer.c.orig 2006-08-04 20:54:40.000000000 -0400
+++ transfer.c 2006-08-04 20:56:53.000000000 -0400
@@ -357,7 +357,7 @@
if (!is_stream_io (dtp))
{
- if (dtp->u.p.current_unit->bytes_left < *nbytes)
+ if ((size_t) dtp->u.p.current_unit->bytes_left < *nbytes)
{
/* For preconnected units with default record length, set
bytes left to unit record length and proceed, otherwise
@@ -504,7 +504,7 @@
{
if (!is_stream_io (dtp))
{
- if (dtp->u.p.current_unit->bytes_left < nbytes)
+ if ((size_t) dtp->u.p.current_unit->bytes_left < nbytes)
{
/* For preconnected units with default record length, set
bytes left to unit record length and proceed, otherwise
It looks OK to me. I'm not sure you're in the "write after approval"
list, and I'm in no position to do any commit right now, but if
someone wants to do commit this patch, it's approved.
FX
PS: please send this kind of mail to the list, so that if Steve and me
are unavailable, reviewing/commenting can be done by others. The more
eyeballs the better.