Wall: remove some warnings

diff --git a/Mate/ClassPool.hs b/Mate/ClassPool.hs
index b9b8b3cafb158366aff27752a250a8cae71b735a..dde77e778599327620a8ee423ed3795ab6d7b611 100644 (file)
--- a/Mate/ClassPool.hs
+++ b/Mate/ClassPool.hs
@@ -47,7 +47,6 @@ import Java.JAR
 import Mate.BasicBlocks
 import {-# SOURCE #-} Mate.MethodPool
 import Mate.Types
-import Mate.Utilities
 import Mate.Debug
 import Mate.GarbageAlloc
 import Mate.NativeSizes
@@ -150,8 +149,8 @@ readClass path = do
       let wn_iftable = fromIntegral $ ptrToIntPtr iftable :: NativeWord
       -- store interface-table at offset 0 in method-table
       pokeElemOff (intPtrToPtr $ fromIntegral mbase) 0 wn_iftable
-      let strpath = toString path
 #ifdef DBG_CLASS
+      let strpath = toString path
       hexDumpMap ("staticmap @ " ++ strpath) staticmap
       hexDumpMap ("fieldmap @ " ++ strpath) fieldmap
       hexDumpMap ("methodmap @ " ++ strpath) methodmap

diff --git a/Mate/GarbageAlloc.hs b/Mate/GarbageAlloc.hs
index c2b622c95f1b6f2f601cbcbbdb6cf3d90a583724..aa2ed3f12c5377ae8943b6bcdaf4f54c4911818b 100644 (file)
--- a/Mate/GarbageAlloc.hs
+++ b/Mate/GarbageAlloc.hs
@@ -16,7 +16,9 @@ import Foreign.C
 
 import Mate.GC.Boehm
 
---import Text.Printf
+#ifdef DBG_STR
+import Text.Printf
+#endif
 import Mate.Debug
 
 -- unified place for allocating Memory