[fpc-pascal] random "Disk Full" exceptions

[Micha Nelissen]

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".

This means the output channel is opened non-blocking. Is that
intentional or a bug ?

Micha