From b0fef8b805a113c23f39b6903f820185d43d19a1 Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Wed, 31 Dec 2003 20:01:00 +0000
Subject: [PATCH]  * workaround for buggy 1.0 building

---
 rtl/linux/baseunix.pp | 22 +++++++++++++++++++++-
 1 file changed, 21 insertions(+), 1 deletion(-)

diff --git a/rtl/linux/baseunix.pp b/rtl/linux/baseunix.pp
index fe518a37da..589e7a6cd0 100644
--- a/rtl/linux/baseunix.pp
+++ b/rtl/linux/baseunix.pp
@@ -49,14 +49,34 @@ implementation
 {$i bunxmain.inc}	{ implementation}
 {$i bunxovl.inc}	{ redefs and overloads implementation}
 
+{$ifdef ver1_0}
+// MvdV 1.0 is buggy in calling externals it seems. dunno what exactly
+function intfpgeterrno:longint; external name 'FPC_SYS_GETERRNO';
+procedure intfpseterrno(err:longint); external name 'FPC_SYS_SETERRNO';
+
+function fpgeterrno:longint; 
+
+begin
+  fpgeterrno:=intfpgeterrno;
+end;
+
+procedure fpseterrno(err:longint); 
+begin
+   intfpseterrno(err);
+end;
+{$else}
 function fpgeterrno:longint; external name 'FPC_SYS_GETERRNO';
 procedure fpseterrno(err:longint); external name 'FPC_SYS_SETERRNO';
 
+{$endif}
 end.
 
 {
   $Log$
-  Revision 1.6  2003-12-30 12:36:56  marco
+  Revision 1.7  2003-12-31 20:01:00  marco
+   * workaround for buggy 1.0 building
+
+  Revision 1.6  2003/12/30 12:36:56  marco
    * FPC_USE_LIBC
 
   Revision 1.5  2003/12/11 18:20:50  florian