From c0dda2ab77fbf87688b841bc4a62b66af8d76d18 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Mon, 25 Mar 2013 17:54:32 +0000
Subject: [PATCH] * disable assembler versions of string routines for arm thumb

git-svn-id: trunk@23998 -
---
 rtl/arm/strings.inc | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/rtl/arm/strings.inc b/rtl/arm/strings.inc
index 453c0b3326..7066439d3a 100644
--- a/rtl/arm/strings.inc
+++ b/rtl/arm/strings.inc
@@ -15,6 +15,7 @@
 
  **********************************************************************}
 
+{$ifndef CPUTHUMB}
 {$ifndef FPC_UNIT_HAS_STRUPPER}
 {$define FPC_UNIT_HAS_STRUPPER}
 function strupper(p : pchar) : pchar;assembler;nostackframe;
@@ -74,3 +75,4 @@ asm
         b       .LByteLoop
 end;
 {$endif FPC_UNIT_HAS_STRLOWER}
+{$endif CPUTHUMB}