diff options
| author | Xavier Leroy <xavier.leroy@college-de-france.fr> | 2019-06-01 08:48:20 +0200 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@college-de-france.fr> | 2019-06-01 08:48:20 +0200 |
| commit | b7e0d70de2ace6f0a22f9f65cc244d875ee48496 (patch) | |
| tree | 6efa684cdd80d31ee38d54577e65285fee61450a /backend/Selectionaux.ml | |
| parent | 95938a8732b572d61955b1de8c49362c9e162640 (diff) | |
| download | compcert-kvx-b7e0d70de2ace6f0a22f9f65cc244d875ee48496.tar.gz compcert-kvx-b7e0d70de2ace6f0a22f9f65cc244d875ee48496.zip | |
ARM: select is not supported at type Tlong
Diffstat (limited to 'backend/Selectionaux.ml')
| -rw-r--r-- | backend/Selectionaux.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/backend/Selectionaux.ml b/backend/Selectionaux.ml index 1b92f5fe..52ddd799 100644 --- a/backend/Selectionaux.ml +++ b/backend/Selectionaux.ml @@ -68,9 +68,10 @@ let rec cost_expr = function let fast_cmove ty = match Configuration.arch, Configuration.model with - | "arm", _ -> true + | "arm", _ -> + (match ty with Tint | Tfloat | Tsingle -> true | _ -> false) | "powerpc", "e5500" -> - (match ty with Tint -> true | Tlong -> true | _ -> false) + (match ty with Tint | Tlong -> true | _ -> false) | "powerpc", _ -> false | "riscV", _ -> false | "x86", _ -> |