Removed some of the mobile passes at Carl's suggestion that I didn't need them anyway
This commit is contained in:
parent
228523e7e7
commit
4493b3d9e4
|
@ -48,7 +48,8 @@ backendPasses =
|
|||
, addSizesFormalParameters
|
||||
, addSizesActualParameters
|
||||
, fixMinInt
|
||||
, mobileReturn
|
||||
-- This is not needed unless forking:
|
||||
-- , mobileReturn
|
||||
]
|
||||
|
||||
prereq :: [Property]
|
||||
|
|
|
@ -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]
|
||||
|
|
Loading…
Reference in New Issue
Block a user