paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 17:09:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* compilation on arm fixed

Browse Source
This commit is contained in:
florian 2004-01-26 11:48:24 +00:00
parent ecf7accc38
commit 7b5dc40284
3 changed files with 54 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
rtl/arm/mathu.inc Normal file
View File

@ -0,0 +1,22 @@
{
$Id$
This file is part of the Free Pascal run time library.
Copyright (c) 2004 by Florian Klaempfl
member of the Free Pascal development team
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
{
$Log$
Revision 1.1 2004-01-26 11:48:24 florian
* compilation on arm fixed
Revision 1.1 2003/04/24 09:14:22 florian
* initial implementation
}

22
rtl/arm/mathuh.inc Normal file
View File

@ -0,0 +1,22 @@
{
$Id$
This file is part of the Free Pascal run time library.
Copyright (c) 2004 by Florian Klaempfl
member of the Free Pascal development team
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
{
$Log$
Revision 1.1 2004-01-26 11:48:24 florian
* compilation on arm fixed
Revision 1.1 2003/04/24 09:14:22 florian
* initial implementation
}

16
rtl/inc/systemh.inc
View File

@ -135,7 +135,7 @@ Type
ValUInt = Cardinal; ValUInt = Cardinal;
ValReal = Double; ValReal = Double;
{ map comp to int64, but this doesn't mean to compile the comp support in! } { map comp to int64, but this doesn't mean we compile the comp support in! }
Comp = Int64; Comp = Int64;
PComp = ^Comp; PComp = ^Comp;
{$endif CPUPOWERPC} {$endif CPUPOWERPC}
@ -150,7 +150,7 @@ Type
ValUInt = Cardinal; ValUInt = Cardinal;
ValReal = Double; ValReal = Double;
{ map comp to int64, but this doesn't mean to compile the comp support in! } { map comp to int64, but this doesn't mean we compile the comp support in! }
Comp = Int64; Comp = Int64;
PComp = ^Comp; PComp = ^Comp;
{$endif CPUSPARC} {$endif CPUSPARC}
@ -169,8 +169,9 @@ Type
ValUInt = Cardinal; ValUInt = Cardinal;
ValReal = Real; ValReal = Real;
{ Comp type does not exist on fpu } { map comp to int64, but this doesn't mean we compile the comp support in! }
Comp = int64; Comp = Int64;
PComp = ^Comp;
{$endif CPUARM} {$endif CPUARM}
{$ifdef CPU64} {$ifdef CPU64}
@ -720,7 +721,10 @@ const
{ {
$Log$ $Log$
Revision 1.82 2004-01-20 23:13:53 hajny Revision 1.83 2004-01-26 11:48:24 florian
* compilation on arm fixed
Revision 1.82 2004/01/20 23:13:53 hajny
* ExecuteProcess fixes, ProcessID and ThreadID added * ExecuteProcess fixes, ProcessID and ThreadID added
Revision 1.81 2003/12/29 19:24:12 florian Revision 1.81 2003/12/29 19:24:12 florian
@ -872,4 +876,4 @@ const
instead of direct comparisons of low/high values of orddefs because instead of direct comparisons of low/high values of orddefs because
qword is a special case qword is a special case
} }