From: Bernhard Urban <lewurm@gmail.com>
Date: Fri, 24 Aug 2012 18:21:13 +0000 (+0200)
Subject: Wall: remove some warnings
X-Git-Url: http://wien.tomnetworks.com/gitweb/?p=mate.git;a=commitdiff_plain;h=58b7d15fa9d3089dc65fa0f9a0f4be3f8ddd35e6

Wall: remove some warnings
---

diff --git a/Mate/ClassPool.hs b/Mate/ClassPool.hs
index b9b8b3c..dde77e7 100644
--- 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 c2b622c..aa2ed3f 100644
--- 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