Second

1 files changed, 6 insertions, 1 deletions

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