[fpc-pascal] random "Disk Full" exceptions

[Jonas Maebe]

On 20 Oct 2007, at 18:20, Marc Santhoff wrote:

>> writeln(stderr, '--> hit found: '+inttostr(fcnt) + ' - ' +
>> inttostr(PInteger(longint(adr)-longint(fx))^) + ' - ' +
>> floattostr(PSingle(adr)^));
>
> Very nasty thing:
>
> The output channel is temporarily blocked and gives back "EAGAIN".

I guess the initialisation code of the system unit should close and  
reopen stdin/out/err to make sure none of them is configured for non- 
blocking I/O.

Jonas