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