[net.unix-wizards] pascal library bug

p500vax:white (01/11/83)

I have discovered an error in the pc library.  In procedure BUFF in
/usr/src/lib/libpc/BUFF.c, there is an instance of setbuf in which the
arguments are reversed.  The relevant lines are:

---line 16---
	if (amount == 0)
		setbuf(0, ACTFILE(curfile));
	else if (amount == 2)
		setbuf(_sobuf, ACTFILE(curfile));


they should be:

	if (amount == 0)
		setbuf(ACTFILE(curfile), 0);
	else if (amount == 2)
		setbuf(ACTFILE(curfile), _sobuf);

This causes the compiler to lose it when you specify {$bn} as a compiler
directive.