summaryrefslogtreecommitdiff
path: root/checklink
diff options
context:
space:
mode:
Diffstat (limited to 'checklink')
-rw-r--r--checklink/Check.ml4
1 files changed, 2 insertions, 2 deletions
diff --git a/checklink/Check.ml b/checklink/Check.ml
index 8e8afd1..6c1739c 100644
--- a/checklink/Check.ml
+++ b/checklink/Check.ml
@@ -2493,7 +2493,7 @@ and check_builtin_vload_common ccode ecode pc chunk addr offset res fw =
>>= recur_simpl
| _ -> error
end
- | (Mfloat64 | Mfloat64al32), [FR res] ->
+ | Mfloat64, [FR res] ->
begin match ecode with
| LFD(frD, rA, d) :: es ->
OK(fw)
@@ -2553,7 +2553,7 @@ and check_builtin_vstore_common ccode ecode pc chunk addr offset src fw =
>>= compare_code ccode es (Int32.add pc 8l)
| _ -> error
end
- | (Mfloat64 | Mfloat64al32), FR src ->
+ | Mfloat64, FR src ->
begin match ecode with
| STFD(frS, rA, d) :: es ->
OK(fw)