From 7540d6eabadbef888fbe4a3dda7b9910094fa05e Mon Sep 17 00:00:00 2001 From: Xavier Leroy Date: Tue, 22 Dec 2015 11:31:38 +0100 Subject: ARM: bug in expansion of __builtin_clzll Follow-up to commit f531d38 --- arm/Asmexpand.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'arm/Asmexpand.ml') diff --git a/arm/Asmexpand.ml b/arm/Asmexpand.ml index 65bb19ee..a64645ca 100644 --- a/arm/Asmexpand.ml +++ b/arm/Asmexpand.ml @@ -292,7 +292,7 @@ let expand_builtin_inline name args res = | "__builtin_clzll", [BA_splitlong(BA (IR ah), BA (IR al))], BR(IR res) -> emit (Pclz (IR14, al)); emit (Pcmp (ah, SOimm _0)); - emit (Pmovite (TCeq, IR14, SOimm _0, SOreg IR14)); + emit (Pmovite (TCeq, IR14, SOreg IR14, SOimm _0)); emit (Pclz (res, ah)); emit (Padd (res, res, SOreg IR14)) (* Float arithmetic *) -- cgit