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

* setting of MIPS64(EL) in system.inc fixed

Browse Source
This commit is contained in:
florian 2022-02-08 23:08:13 +01:00
parent af49e3dc9f
commit 308bc29465
1 changed files with 20 additions and 4 deletions

24
rtl/inc/system.inc
View File

@ -266,15 +266,31 @@ function do_isdevice(handle:thandle):boolean;forward;
{ 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}
{$endif cpumipsel}
{$ifdef cpumipseb}
{$ifdef SYSPROCDEFINED}
{$Error Can't determine processor type !}
{$endif}
{$i mips.inc} { Case dependent, don't change }
{$define SYSPROCDEFINED}
{$endif cpumips}
{$endif not cpumipsel}
{$endif cpumipseb}
{$ifdef cpumips64el}
{$ifdef SYSPROCDEFINED}
{$Error Can't determine processor type !}
{$endif}
{$i mips64el.inc} { Case dependent, don't change }
{$define SYSPROCDEFINED}
{$endif cpumips64el}
{$ifdef cpumips64eb}
{$ifdef SYSPROCDEFINED}
{$Error Can't determine processor type !}
{$endif}
{$i mips64.inc} { Case dependent, don't change }
{$define SYSPROCDEFINED}
{$endif cpumips64eb}
{$ifdef cpuaarch64}
{$ifdef SYSPROCDEFINED}