X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fcmm%2FOldCmmUtils.hs;h=14a17d79464dde1856bbb126b01823fafb4846f1;hp=ea9ef8a54a63f224d81ce47c1d768f7b74327036;hb=da15d0c556df3eacc6b37327ddffffea306b3760;hpb=f3a1b28e408de01d01ec252efd5b54722eb775d8 diff --git a/compiler/cmm/OldCmmUtils.hs b/compiler/cmm/OldCmmUtils.hs index ea9ef8a..14a17d7 100644 --- a/compiler/cmm/OldCmmUtils.hs +++ b/compiler/cmm/OldCmmUtils.hs @@ -78,8 +78,8 @@ cheapEqReg _ _ = False --------------------------------------------------- loadArgsIntoTemps :: [Unique] - -> HintedCmmActuals - -> ([Unique], [CmmStmt], HintedCmmActuals) + -> [HintedCmmActual] + -> ([Unique], [CmmStmt], [HintedCmmActual]) loadArgsIntoTemps uniques [] = (uniques, [], []) loadArgsIntoTemps uniques ((CmmHinted e hint):args) = (uniques'',