diff options
| author | Xavier Leroy <xavier.leroy@college-de-france.fr> | 2020-07-27 09:54:00 +0200 |
|---|---|---|
| committer | Xavier Leroy <xavierleroy@users.noreply.github.com> | 2020-07-27 17:06:34 +0200 |
| commit | 77ce8ba291afa9f5629a160df440f9af6614f3ef (patch) | |
| tree | 3888df3631e39df97cdb58a8f7e3914c40007e13 /x86 | |
| parent | 70f105e623dddeb27be258fedb56bd0e9a59d190 (diff) | |
| download | compcert-kvx-77ce8ba291afa9f5629a160df440f9af6614f3ef.tar.gz compcert-kvx-77ce8ba291afa9f5629a160df440f9af6614f3ef.zip | |
Add __builtin_sqrt as synonymous for __builtin_fsqrt
__builtin_sqrt (no "f") is the name used by GCC and Clang.
Diffstat (limited to 'x86')
| -rw-r--r-- | x86/Asmexpand.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/x86/Asmexpand.ml b/x86/Asmexpand.ml index e4cf028f..caa9775a 100644 --- a/x86/Asmexpand.ml +++ b/x86/Asmexpand.ml @@ -378,7 +378,7 @@ let expand_builtin_inline name args res = emit (Paddl_ri(res, coqint_of_camlint 32l)); emit (Plabel lbl2) (* Float arithmetic *) - | "__builtin_fsqrt", [BA(FR a1)], BR(FR res) -> + | ("__builtin_fsqrt" | "__builtin_sqrt"), [BA(FR a1)], BR(FR res) -> emit (Psqrtsd (res,a1)) | "__builtin_fmax", [BA(FR a1); BA(FR a2)], BR(FR res) -> if res = a1 then |