patch for transfer.c

François-Xavier Coudert fxcoudert@gmail.com
Sat Aug 5 08:50:00 GMT 2006


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.



More information about the Fortran mailing list