Alan Hourihane wrote:
> Yes. This works too.
OK, I committed it.
Is anything else among the aforementioned unit tests still failing?
Bruno
2009-03-01 Bruno Haible <br...@clisp.org>
More support for FreeMiNT.
* lib/fpurge.c (fpurge): Correct last commit.
Reported by Alan Hourihane <al...@fairlite.co.uk>.
--- lib/fpurge.c.orig 2009-03-01 11:00:35.000000000 +0100
+++ lib/fpurge.c 2009-03-01 02:05:55.000000000 +0100
@@ -120,9 +120,14 @@
fp->__bufp = fp->__pushback_bufp;
fp->__pushed_back = 0;
}
+ /* Preserve the current file position. */
+ if (fp->__target != -1)
+ fp->__target += fp->__bufp - fp->__buffer;
fp->__bufp = fp->__buffer;
+ /* Nothing in the buffer, next getc is nontrivial. */
fp->__get_limit = fp->__bufp;
- fp->__put_limit = fp->__bufp;
+ /* Nothing in the buffer, next putc is nontrivial. */
+ fp->__put_limit = fp->__buffer;
return 0;
# else
#error "Please port gnulib fpurge.c to your platform! Look at the definitions
of fflush, setvbuf and ungetc on your system, then report this to bug-gnulib."
