[fpc-pascal] random "Disk Full" exceptions

[Marc Santhoff]

Am Samstag, den 20.10.2007, 18:54 +0200 schrieb 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.

Hm, I'm doing nothing but using an xterm for compiling and running the
program. System.pp does only open as far as I can tell:

<rtl/inc/tex.inc>
...
procedure OpenStdIO(var f:text;mode,hdl:longint);
begin
  Assign(f,'');
  TextRec(f).Handle:=hdl;
  TextRec(f).Mode:=mode;
  TextRec(f).Closefunc:=@FileCloseFunc;
  case mode of
    fmInput :
      TextRec(f).InOutFunc:=@FileReadFunc;
    fmOutput :
      begin
        TextRec(f).InOutFunc:=@FileWriteFunc;
        if Do_Isdevice(hdl) then
          TextRec(f).FlushFunc:=@FileWriteFunc;
      end;
  else
   HandleError(102);
  end;
end;
...
</rtl/inc/tex.inc>

<rtl/bsd/system.pp>
...
procedure SysInitStdIO;
begin
  OpenStdIO(Input,fmInput,StdInputHandle);
  OpenStdIO(Output,fmOutput,StdOutputHandle);
  OpenStdIO(ErrOutput,fmOutput,StdErrorHandle);
  OpenStdIO(StdOut,fmOutput,StdOutputHandle);
  OpenStdIO(StdErr,fmOutput,StdErrorHandle);
end;

...

Begin
  IsConsole := TRUE;
  IsLibrary := FALSE;
  StackLength := CheckInitialStkLen(InitialStkLen);
  StackBottom := Sptr - StackLength;
  { Set up signals handlers }
  InstallSignals;
  { Setup heap }
  InitHeap;
  SysInitExceptions;
  { Setup stdin, stdout and stderr }
  SysInitStdIO;
  { Reset IO Error }
  InOutRes:=0;
  { Arguments }
  SetupCmdLine;
  { threading }
  InitSystemThreads;
  initvariantmanager;
  initwidestringmanager;
End.
</<rtl/bsd/system.pp>>

Maybe it is an OS fault(?) ...

Marc