diff options
Diffstat (limited to 'checklink/Check.ml')
| -rw-r--r-- | checklink/Check.ml | 4 |
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) |