2 files changed, 6 insertions, 0 deletions
diff --git a/backend/Selection.v b/backend/Selection.v
index 480b09a2..a5bef9ae 100644
--- a/backend/Selection.v
+++ b/backend/Selection.v
@@ -248,6 +248,8 @@ Function sel_known_builtin (bf: builtin_function) (args: exprlist) :=
       Some (sel_select ty a1 a2 a3)
   | BI_standard BI_fabs, a1 ::: Enil =>
       Some (SelectOp.absf a1)
+  | BI_standard BI_fabsf, a1 ::: Enil =>
+      Some (SelectOp.absfs a1)
   | _, _ =>
       None
   end.
diff --git a/backend/Selectionproof.v b/backend/Selectionproof.v
index a66bcf81..987926aa 100644
--- a/backend/Selectionproof.v
+++ b/backend/Selectionproof.v
@@ -394,6 +394,10 @@ Proof.
   inv ARGS; try discriminate. inv H0; try discriminate.
   inv SEL.  
   simpl in SEM; inv SEM. apply eval_absf; auto.
++ (* fabsf *)
+  inv ARGS; try discriminate. inv H0; try discriminate.
+  inv SEL.  
+  simpl in SEM; inv SEM. apply eval_absfs; auto.
 - eapply eval_platform_builtin; eauto.
 Qed.