Преглед изворни кода

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

git-svn-id: trunk@21541 -
pierre пре 13 година
родитељ
комит
be67af4374
2 измењених фајлова са 9 додато и 7 уклоњено
  1. 8 6
      rtl/inc/system.inc
  2. 1 1
      rtl/inc/systemh.inc

+ 8 - 6
rtl/inc/system.inc

@@ -231,21 +231,23 @@ function do_isdevice(handle:thandle):boolean;forward;
   {$define SYSPROCDEFINED}
 {$endif cpuavr}
 
-{$ifdef cpumips}
+{$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}
-{$endif cpumips}
-
-{$ifdef cpumipsel}
+{$else not cpumipsel}
+{$ifdef cpumips}
   {$ifdef SYSPROCDEFINED}
     {$Error Can't determine processor type !}
   {$endif}
-  {$i mipsel.inc}  { Case dependent, don't change }
+  {$i mips.inc}  { Case dependent, don't change }
   {$define SYSPROCDEFINED}
-{$endif cpumipsel}
+{$endif cpumips}
+{$endif not cpumipsel}
+
 
 {$ifndef SYSPROCDEFINED}
   {$Error Can't determine processor type !}

+ 1 - 1
rtl/inc/systemh.inc

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