suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
backends/BackendPasses.hs
View File

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

3
backends/GenerateC.hs
View File

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