* interface of system unit for Linux/PowerPC compiles

rtl/inc/mathh.inc

@@ -31,18 +31,23 @@
     function power(bas,expo : extended) : extended;
     function power(bas,expo : longint) : longint;
 
-{$ifdef SUPPORT_DOUBLE}
     type
        real48 = array[0..5] of byte;
 
+{$ifdef SUPPORT_DOUBLE}
     function Real2Double(r : real48) : double;
     operator := (b:real48) d:double;
-    operator := (b:real48) e:extended;
 {$endif}
+{$ifdef SUPPORT_EXTENDED}
+    operator := (b:real48) e:extended;
+{$endif SUPPORT_EXTENDED}
 
 {
   $Log$
-  Revision 1.6  2001-12-26 21:03:56  peter
+  Revision 1.7  2002-07-26 22:46:06  florian
+    * interface of system unit for Linux/PowerPC compiles
+
+  Revision 1.6  2001/12/26 21:03:56  peter
     * merged fixes from 1.0.x
 
   Revision 1.5  2001/12/13 20:23:19  michael

rtl/inc/system.inc

@@ -114,7 +114,7 @@ Procedure Rewrite(var f : TypedFile); [INTERNPROC: In_Rewrite_TypedFile];
   {$ifdef SYSPROCDEFINED}
     {$Error Can't determine processor type !}
   {$endif}
-  {$fatal ENDIAN_BIG}
+  {$define ENDIAN_BIG}
   {$i powerpc.inc}  { Case dependent, don't change }
   {$define SYSPROCDEFINED}
 {$endif powerpc}
@@ -755,7 +755,10 @@ end;
 
 {
   $Log$
-  Revision 1.30  2002-07-26 16:42:00  florian
+  Revision 1.31  2002-07-26 22:46:06  florian
+    * interface of system unit for Linux/PowerPC compiles
+
+  Revision 1.30  2002/07/26 16:42:00  florian
     * endian directive for PowerPC fixed
 
   Revision 1.29  2002/07/04 20:40:09  florian
@@ -859,4 +862,4 @@ end;
   Revision 1.2  2000/07/13 11:33:45  michael
   + removed logs
 
-}
+}

rtl/inc/systemh.inc

@@ -133,9 +133,7 @@ Type
 {$ifdef SUPPORT_COMP}
   PComp               = ^Comp;
 {$endif SUPPORT_COMP}
-{$ifdef SUPPORT_EXTENDED}
   PExtended           = ^Extended;
-{$endif SUPPORT_EXTENDED}
 
   PSmallInt           = ^Smallint;
   PShortInt           = ^Shortint;
@@ -581,7 +579,10 @@ const
 
 {
   $Log$
-  Revision 1.49  2002-07-26 21:29:03  florian
+  Revision 1.50  2002-07-26 22:46:06  florian
+    * interface of system unit for Linux/PowerPC compiles
+
+  Revision 1.49  2002/07/26 21:29:03  florian
     + powerpc type support
 
   Revision 1.48  2002/07/04 20:40:09  florian

rtl/powerpc/setjumph.inc

@@ -1,7 +1,7 @@
 {
     $Id$
     This file is part of the Free Pascal run time library.
-    Copyright (c) 2000 by Jonas Maebe and other members of the
+    Copyright (c) 2000-2002 by Jonas Maebe and other members of the
     Free Pascal development team
 
     SetJmp/Longjmp declarations
@@ -15,10 +15,20 @@
 
  **********************************************************************}
 
+type
+   jmp_buf = record
+   end;
+   pjmp_buf = ^jmp_buf;
+
+function setjmp(var S : jmp_buf) : longint;
+procedure longjmp(var S : jmp_buf;value : longint);
 
 {
   $Log$
-  Revision 1.2  2002-07-26 22:08:38  florian
+  Revision 1.3  2002-07-26 22:46:17  florian
+    * interface of system unit for Linux/PowerPC compiles
+
+  Revision 1.2  2002/07/26 22:08:38  florian
     * comments fixed
 
   Revision 1.1  2002/07/26 22:08:13  florian