trapmap: delete some entries

[mate.git] / Mate / Utilities.hs

diff --git a/Mate/Utilities.hs b/Mate/Utilities.hs
index da07ecf18eb95d860ce266f8ce3a927445d3ece1..43e264ce76877fa0b5d3c4fc5f9c10da7803ec35 100644 (file)
--- a/Mate/Utilities.hs
+++ b/Mate/Utilities.hs
@@ -1,4 +1,3 @@
-{-# LANGUAGE CPP #-}
 {-# LANGUAGE OverloadedStrings #-}
 module Mate.Utilities where
 
@@ -12,7 +11,7 @@ import Data.Maybe
 import JVM.ClassFile
 
 import Mate.Types
-
+import Mate.NativeSizes
 
 buildMethodID :: Class Direct -> Word16 -> MethodInfo
 buildMethodID cls idx = MethodInfo (ntName nt) rc (ntSignature nt)
@@ -41,7 +40,7 @@ methodNameTypeByIdx cls idx = case constsPool cls M.! idx of
   (CIfaceMethod _ nt') -> nt'
   _ -> error "methodGetArgsCount: something wrong. abort."
 
-methodGetArgsCount :: NameType (Method Direct) -> Word32
+methodGetArgsCount :: NameType (Method Direct) -> NativeWord
 methodGetArgsCount nt = genericLength args
   where (MethodSignature args _) = ntSignature nt