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

* Adapt to mipsel compiler defining cpumipsel and cpumipsel32 but not cpumips anymore

Browse Source 
git-svn-id: trunk@21541 -
This commit is contained in:
pierre 2012-06-08 09:33:03 +00:00
parent 4b8ffef650
commit be67af4374
2 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
rtl/inc/system.inc
View File

@ -231,6 +231,14 @@ function do_isdevice(handle:thandle):boolean;forward;
{$define SYSPROCDEFINED}
{$endif cpuavr}
{$ifdef cpumipsel}
{$ifdef SYSPROCDEFINED}
{$Error Can't determine processor type !}
{$endif}
{ there is no mipsel.inc, we use mips.inc instead }
{$i mips.inc} { Case dependent, don't change }
{$define SYSPROCDEFINED}
{$else not cpumipsel}
{$ifdef cpumips}
{$ifdef SYSPROCDEFINED}
{$Error Can't determine processor type !}
@ -238,14 +246,8 @@ function do_isdevice(handle:thandle):boolean;forward;
{$i mips.inc} { Case dependent, don't change }
{$define SYSPROCDEFINED}
{$endif cpumips}
{$endif not cpumipsel}
{$ifdef cpumipsel}
{$ifdef SYSPROCDEFINED}
{$Error Can't determine processor type !}
{$endif}
{$i mipsel.inc} { Case dependent, don't change }
{$define SYSPROCDEFINED}
{$endif cpumipsel}
{$ifndef SYSPROCDEFINED}
{$Error Can't determine processor type !}

2
rtl/inc/systemh.inc
View File

@ -194,7 +194,7 @@ Type
FarPointer = Pointer;
{$endif CPUSPARC}
{$ifdef CPUMIPS32}
{$if defined(CPUMIPS32) or defined(CPUMIPSEL32)}
{$define DEFAULT_DOUBLE}
{$define SUPPORT_SINGLE}