From 1fc6316cbc575136bf8eac5a7d7b0a4147a92c0d Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Thu, 2 Jan 2014 15:23:12 +0000
Subject: [PATCH] * use generic 32*32 -> 64 bit multiplication on arm thumb

git-svn-id: trunk@26359 -
---
 compiler/arm/narmadd.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/arm/narmadd.pas b/compiler/arm/narmadd.pas
index 6e53e95965..34ec67a84e 100644
--- a/compiler/arm/narmadd.pas
+++ b/compiler/arm/narmadd.pas
@@ -670,7 +670,7 @@ interface
 
     function tarmaddnode.use_generic_mul32to64: boolean;
       begin
-        result:=false;
+        result:=GenerateThumbCode or not(CPUARM_HAS_UMULL in cpu_capabilities[current_settings.cputype]);
       end;
 begin
   caddnode:=tarmaddnode;