SOURCES: fpc-avoid-RE.patch (NEW) - avoid runtime error on file op...

[baggins]

Author: baggins                      Date: Mon Oct 23 11:05:55 2006 GMT
Module: SOURCES                       Tag: HEAD
---- Log message:
- avoid runtime error on file open operations

---- Files affected:
SOURCES:
   fpc-avoid-RE.patch (NONE -> 1.1)  (NEW)

---- Diffs:

================================================================
Index: SOURCES/fpc-avoid-RE.patch
diff -u /dev/null SOURCES/fpc-avoid-RE.patch:1.1
--- /dev/null	Mon Oct 23 13:05:55 2006
+++ SOURCES/fpc-avoid-RE.patch	Mon Oct 23 13:05:50 2006
@@ -0,0 +1,29 @@
+Avoid Runtime Error during file open, especially when there IS a legal
+check if it succeded or not
+
+--- fpcbuild_2.0.4_exp/fpcsrc/rtl/linux/linuxvcs.pp~	2006-02-15 11:04:09.000000000 +0100
++++ fpcbuild_2.0.4_exp/fpcsrc/rtl/linux/linuxvcs.pp	2006-10-23 12:52:49.052613239 +0200
+@@ -94,8 +94,10 @@
+   pid:=fpgetpid;
+   repeat
+     str(pid,s);
++    {$I-}
+     assign(f,'/proc/'+s+'/stat');
+     reset(f);
++    {$I+}
+     if ioresult<>0 then
+       break;
+     read(f,dummy);
+--- fpcbuild_2.0.4_exp/fpcsrc/utils/grab_vcsa.pp~	2006-02-15 11:04:09.000000000 +0100
++++ fpcbuild_2.0.4_exp/fpcsrc/utils/grab_vcsa.pp	2006-10-23 12:52:19.823019988 +0200
+@@ -78,8 +78,10 @@
+       pid:=fpgetpid;
+       repeat
+         str(pid,s);
++	{$I-}
+         assign(f,'/proc/'+s+'/stat');
+         reset(f);
++	{$I+}
+         if ioresult<>0 then
+           begin
+             found_vcsa:=false;
================================================================