From 30fb0f149770f2a99e099d7b2fcde852b84f6c59 Mon Sep 17 00:00:00 2001 From: Léo Gourdin Date: Wed, 20 Jan 2021 19:50:28 +0100 Subject: fix str string in peephole --- aarch64/PeepholeOracle.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/aarch64/PeepholeOracle.ml b/aarch64/PeepholeOracle.ml index 9e37b3c6..b97f84b4 100644 --- a/aarch64/PeepholeOracle.ml +++ b/aarch64/PeepholeOracle.ml @@ -311,7 +311,7 @@ let is_valid_ldr rd1 rd2 b1 b2 n1 n2 stype = let is_valid_str b1 b2 n1 n2 stype = match stype with - | "str32" -> is_valid_str32 b1 b2 n1 n2 + | "str32" | "str32f" -> is_valid_str32 b1 b2 n1 n2 | _ -> is_valid_str64 b1 b2 n1 n2 (* Try to find the index of the first previous compatible -- cgit