From 58b7d15fa9d3089dc65fa0f9a0f4be3f8ddd35e6 Mon Sep 17 00:00:00 2001 From: Bernhard Urban Date: Fri, 24 Aug 2012 20:21:13 +0200 Subject: [PATCH] Wall: remove some warnings --- Mate/ClassPool.hs | 3 +-- Mate/GarbageAlloc.hs | 4 +++- 2 files changed, 4 insertions(+), 3 deletions(-) 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 -- 2.25.1