Pārlūkot izejas kodu

* disable assembler versions of string routines for arm thumb

git-svn-id: trunk@23998 -
florian 12 gadi atpakaļ
vecāks
revīzija
c0dda2ab77
1 mainītis faili ar 2 papildinājumiem un 0 dzēšanām
  1. 2 0
      rtl/arm/strings.inc

+ 2 - 0
rtl/arm/strings.inc

@@ -15,6 +15,7 @@
 
 
  **********************************************************************}
  **********************************************************************}
 
 
+{$ifndef CPUTHUMB}
 {$ifndef FPC_UNIT_HAS_STRUPPER}
 {$ifndef FPC_UNIT_HAS_STRUPPER}
 {$define FPC_UNIT_HAS_STRUPPER}
 {$define FPC_UNIT_HAS_STRUPPER}
 function strupper(p : pchar) : pchar;assembler;nostackframe;
 function strupper(p : pchar) : pchar;assembler;nostackframe;
@@ -74,3 +75,4 @@ asm
         b       .LByteLoop
         b       .LByteLoop
 end;
 end;
 {$endif FPC_UNIT_HAS_STRLOWER}
 {$endif FPC_UNIT_HAS_STRLOWER}
+{$endif CPUTHUMB}