paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-19 20:13:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* interface of system unit for Linux/PowerPC compiles

Browse Source
This commit is contained in:
florian 2002-07-26 22:46:06 +00:00
parent 1b5435381b
commit 05a95ba5bc
4 changed files with 30 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/inc/mathh.inc
View File

@ -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

9
rtl/inc/system.inc
View File

@ -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
}
}

7
rtl/inc/systemh.inc
View File

@ -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

14
rtl/powerpc/setjumph.inc
View File

@ -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