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

Remove obsolete CGenCall instance.

Browse Source
This commit is contained in:
Adam Sampson 2008-03-29 23:24:50 +00:00
parent d2bcd0cde5
commit 40bf42e5ea
1 changed files with 0 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
backends/GenerateCBased.hs
View File

@ -216,15 +216,6 @@ instance CGenCall (a -> b -> c -> d -> e -> CGen z) where
= do ops <- ask = do ops <- ask
f ops x0 x1 x2 x3 x4 f ops x0 x1 x2 x3 x4
-- A bit of a mind-boggler, but this is essentially for genSlice
instance CGenCall (a -> b -> c -> d -> (CGen x, y -> CGen z)) where
call f x0 x1 x2 x3
= (do ops <- ask
fst $ f ops x0 x1 x2 x3
,\y -> do ops <- ask
(snd $ f ops x0 x1 x2 x3) y
)
fget :: (GenOps -> a) -> CGen a fget :: (GenOps -> a) -> CGen a
fget = asks fget = asks