diff options
| author | David Monniaux <David.Monniaux@univ-grenoble-alpes.fr> | 2022-02-14 18:51:52 +0100 |
|---|---|---|
| committer | David Monniaux <David.Monniaux@univ-grenoble-alpes.fr> | 2022-02-14 18:51:52 +0100 |
| commit | 1ef9e303d7bd896b94afcc875136d8f3e94243cb (patch) | |
| tree | af2da3d2fdbc0be85d207bf20111162bcf0a4f56 /kvx/SelectLong.vp | |
| parent | 882f1a1875089298937abf4ef854b221cab4eb8e (diff) | |
| parent | 2867dee21f6fb696db554679d8535306c7a9d4ea (diff) | |
| download | compcert-kvx-1ef9e303d7bd896b94afcc875136d8f3e94243cb.tar.gz compcert-kvx-1ef9e303d7bd896b94afcc875136d8f3e94243cb.zip | |
Merge remote-tracking branch 'origin/kvx-bits' into kvx_fp_division
Diffstat (limited to 'kvx/SelectLong.vp')
| -rw-r--r-- | kvx/SelectLong.vp | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/kvx/SelectLong.vp b/kvx/SelectLong.vp index 3598025a..9df3212b 100644 --- a/kvx/SelectLong.vp +++ b/kvx/SelectLong.vp @@ -452,7 +452,10 @@ Definition longuofsingle (e: expr) := longuoffloat (floatofsingle e). Definition use_inlined_fp_conversions := true. Opaque use_inlined_fp_conversions. -Definition singleoflong (e: expr) := SplitLong.singleoflong e. +Definition singleoflong (e: expr) := + if use_inlined_fp_conversions + then FPExtra.e_single_of_long e + else SplitLong.singleoflong e. Definition singleoflongu (e: expr) := if use_inlined_fp_conversions |