diff options
| author | Ian Lynagh <igloo@earth.li> | 2011-07-15 18:13:49 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2011-07-15 19:03:23 +0100 |
| commit | 730301c60e6ccd9ed4fb248bcd2399f938a43d25 (patch) | |
| tree | 680c524b5353acaff547e2a739185f3593557873 /compiler/nativeGen/RegAlloc/Graph/Stats.hs | |
| parent | 5c718b15e83e3b205e13c882660a4952714c3b4c (diff) | |
| download | haskell-730301c60e6ccd9ed4fb248bcd2399f938a43d25.tar.gz | |
Remove more defaultTargetPlatform uses
Diffstat (limited to 'compiler/nativeGen/RegAlloc/Graph/Stats.hs')
| -rw-r--r-- | compiler/nativeGen/RegAlloc/Graph/Stats.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/nativeGen/RegAlloc/Graph/Stats.hs b/compiler/nativeGen/RegAlloc/Graph/Stats.hs index ccbe3fe22d..15ec6e7f87 100644 --- a/compiler/nativeGen/RegAlloc/Graph/Stats.hs +++ b/compiler/nativeGen/RegAlloc/Graph/Stats.hs @@ -74,7 +74,7 @@ instance (Outputable statics, PlatformOutputable instr) => PlatformOutputable (R $$ text "" $$ text "# Initial register conflict graph." $$ Color.dotGraph - targetRegDotColor + (targetRegDotColor platform) (trivColorable platform (targetVirtualRegSqueeze platform) (targetRealRegSqueeze platform)) @@ -111,7 +111,7 @@ instance (Outputable statics, PlatformOutputable instr) => PlatformOutputable (R $$ text "# Register conflict graph (colored)." $$ Color.dotGraph - targetRegDotColor + (targetRegDotColor platform) (trivColorable platform (targetVirtualRegSqueeze platform) (targetRealRegSqueeze platform)) |