Adriaan van Os wrote:
{$define Close(f, x) Close (f)}
The program wouldn't behave as expected, because the second parameter isn't meaningless, e.g. x=CRUNCH sets the end-of-file to the point of last access. So, I guess, it is better to change UCSD Pascal source code when porting to GPC (or to another Pascal).
Does it allow seeking while writing? Or "crunching" a read-only file? Otherwise the point of last access would be the end of a (sequential) writing sequence. But anyway, my suggestion wasn't meant too seriously. Frank -- Frank Heckenbach, frank@g-n-u.de, http://fjf.gnu.de/, 7977168E GPC To-Do list, latest features, fixed bugs: http://www.gnu-pascal.de/todo.html GPC download signing key: 51FF C1F0 1A77 C6C2 4482 4DDC 117A 9773 7F88 1707