fpc-avoid-RE.patch

   1 Avoid Runtime Error during file open, especially when there IS a legal
   2 check if it succeded or not
   3
   4 --- fpcbuild_2.0.4_exp/fpcsrc/rtl/linux/linuxvcs.pp~    2006-02-15 11:04:09.000000000 +0100
   5 +++ fpcbuild_2.0.4_exp/fpcsrc/rtl/linux/linuxvcs.pp     2006-10-23 12:52:49.052613239 +0200
   6 @@ -94,8 +94,10 @@
   7    pid:=fpgetpid;
   8    repeat
   9      str(pid,s);
  10 +    {$I-}
  11      assign(f,'/proc/'+s+'/stat');
  12      reset(f);
  13 +    {$I+}
  14      if ioresult<>0 then
  15        break;
  16      read(f,dummy);
  17 --- fpcbuild_2.0.4_exp/fpcsrc/utils/grab_vcsa.pp~       2006-02-15 11:04:09.000000000 +0100
  18 +++ fpcbuild_2.0.4_exp/fpcsrc/utils/grab_vcsa.pp        2006-10-23 12:52:19.823019988 +0200
  19 @@ -78,8 +78,10 @@
  20        pid:=fpgetpid;
  21        repeat
  22          str(pid,s);
  23 +       {$I-}
  24          assign(f,'/proc/'+s+'/stat');
  25          reset(f);
  26 +       {$I+}
  27          if ioresult<>0 then
  28            begin
  29              found_vcsa:=false;