From 965f8bf85d7850be074bad735d815b15a85a3de0 Mon Sep 17 00:00:00 2001 From: tomsmeding Date: Sun, 20 Aug 2017 11:17:05 +0200 Subject: Second --- X64.hs | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'X64.hs') diff --git a/X64.hs b/X64.hs index a2d63aa..66a9605 100644 --- a/X64.hs +++ b/X64.hs @@ -68,7 +68,8 @@ instance XRefSub Imm where instance XRefSub RegMem where xref x@(XReg _ _) = RegMem x xref x@(XMem _ _ _ _ _) = RegMem x - xref _ = undefined + xref x = RegMem x + -- xref _ = undefined instance XRefSub RegMemImm where xref x = RegMemImm x @@ -266,6 +267,10 @@ xrefSetSize sz (XReg _ r) = XReg sz r xrefSetSize sz (XMem _ a b c d) = XMem sz a b c d xrefSetSize _ x@(XImm _) = x +isXReg :: XRef -> Bool +isXReg (XReg _ _) = True +isXReg _ = False + isXMem :: XRef -> Bool isXMem (XMem _ _ _ _ _) = True isXMem _ = False -- cgit v1.2.3-70-g09d2