Equality codegen for foreignptr. (#164)

melsman · Jan 27, 2024 · 444cf93 · 444cf93
1 parent a312f16
commit 444cf93
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/Compiler/Backend/ClosExp.sml b/src/Compiler/Backend/ClosExp.sml
@@ -2252,6 +2252,9 @@ struct
                            else eq_prim "__equal_word64ub")
                         else if TyName.eq(tn,TyName.tyName_STRING) then
                           eq_prim "equalStringML"
+                        else if TyName.eq(tn,TyName.tyName_FOREIGNPTR) then
+                          (if BI.tag_values() then eq_prim "__equal_word64b"
+                           else eq_prim "__equal_word64ub")
                         else if TyName.eq(tn,TyName.tyName_VECTOR) then
                                die "`=' on vectors! EliminateEq should have dealt with this"
                         else eq_prim "equalPolyML"