X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=blobdiff_plain;f=Mate%2FRegisterAllocation.hs;h=7f220aabbac52570e955152691402ebc6291bfd2;hb=d3f63d65d80aaab4ad8eac43ee1caea7dea09fbd;hp=9fc43ae51d5a4deeb6de6e3ba994e70ae8cfa7dc;hpb=3558633cda85024f2e9e3c2c6bb4aca289b1e3eb;p=mate.git

diff --git a/Mate/RegisterAllocation.hs b/Mate/RegisterAllocation.hs
index 9fc43ae..7f220aa 100644
--- a/Mate/RegisterAllocation.hs
+++ b/Mate/RegisterAllocation.hs
@@ -1,5 +1,9 @@
+{-# LANGUAGE CPP #-}
 module Mate.RegisterAllocation where
 
+
+#include "debug.h"
+
 import Data.List
 import Data.Maybe
 
@@ -35,7 +39,7 @@ count p = length . filter p
 degree g@(IGraph xs) label = count (isParticipiant label) xs
 
 
-doChaitin81 :: (Eq a) => IArchitecture -> (IGraph a) -> [Assignment a]
+doChaitin81 :: (Eq a) => IArchitecture -> IGraph a -> [Assignment a]
 doChaitin81 numberOfRegisters graph = []
 
 type IState a = ([a],IGraph a)