Browse Source

* workaround for buggy 1.0 building

marco 21 years ago
parent
commit
b0fef8b805
1 changed files with 21 additions and 1 deletions
  1. 21 1
      rtl/linux/baseunix.pp

+ 21 - 1
rtl/linux/baseunix.pp

@@ -49,14 +49,34 @@ implementation
 {$i bunxmain.inc}	{ implementation}
 {$i bunxmain.inc}	{ implementation}
 {$i bunxovl.inc}	{ redefs and overloads 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';
 function fpgeterrno:longint; external name 'FPC_SYS_GETERRNO';
 procedure fpseterrno(err:longint); external name 'FPC_SYS_SETERRNO';
 procedure fpseterrno(err:longint); external name 'FPC_SYS_SETERRNO';
 
 
+{$endif}
 end.
 end.
 
 
 {
 {
   $Log$
   $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
    * FPC_USE_LIBC
 
 
   Revision 1.5  2003/12/11 18:20:50  florian
   Revision 1.5  2003/12/11 18:20:50  florian