From 5c718b15e83e3b205e13c882660a4952714c3b4c Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Fri, 15 Jul 2011 17:42:24 +0100 Subject: Remove some more defaultTargetPlatform uses --- compiler/nativeGen/RegAlloc/Graph/Stats.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'compiler/nativeGen/RegAlloc/Graph/Stats.hs') diff --git a/compiler/nativeGen/RegAlloc/Graph/Stats.hs b/compiler/nativeGen/RegAlloc/Graph/Stats.hs index 4b10e9fafa..ccbe3fe22d 100644 --- a/compiler/nativeGen/RegAlloc/Graph/Stats.hs +++ b/compiler/nativeGen/RegAlloc/Graph/Stats.hs @@ -76,8 +76,8 @@ instance (Outputable statics, PlatformOutputable instr) => PlatformOutputable (R $$ Color.dotGraph targetRegDotColor (trivColorable platform - targetVirtualRegSqueeze - targetRealRegSqueeze) + (targetVirtualRegSqueeze platform) + (targetRealRegSqueeze platform)) (raGraph s) @@ -113,8 +113,8 @@ instance (Outputable statics, PlatformOutputable instr) => PlatformOutputable (R $$ Color.dotGraph targetRegDotColor (trivColorable platform - targetVirtualRegSqueeze - targetRealRegSqueeze) + (targetVirtualRegSqueeze platform) + (targetRealRegSqueeze platform)) (raGraphColored s) $$ text "" -- cgit v1.2.1