Removed some of the mobile passes at Carl's suggestion that I didn't need them anyway

This commit is contained in:
Neil Brown 2009-03-23 15:51:11 +00:00
parent 228523e7e7
commit 4493b3d9e4
2 changed files with 4 additions and 2 deletions

View File

@ -48,7 +48,8 @@ backendPasses =
, addSizesFormalParameters
, addSizesActualParameters
, fixMinInt
, mobileReturn
-- This is not needed unless forking:
-- , mobileReturn
]
prereq :: [Property]

View File

@ -1546,7 +1546,8 @@ cgenProcAlloc n fs as
[do isMobile <- isMobileType t
let (s, fct) = case (am, isMobile) of
(A.ValAbbrev, _) -> ("ProcParam", id)
(_, True) -> ("ProcMTMove", Pointer)
-- This is not needed unless forking:
--(_, True) -> ("ProcMTMove", Pointer)
_ -> ("ProcParam", id)
return $ zip (repeat s) $ realActuals f a fct
| (f@(A.Formal am t _), a) <- zip fs as]