projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 1996-06-26 10:26:00 by partain]
[ghc-hetmet.git]
/
ghc
/
compiler
/
simplCore
/
MagicUFs.lhs
diff --git
a/ghc/compiler/simplCore/MagicUFs.lhs
b/ghc/compiler/simplCore/MagicUFs.lhs
index
1df7968
..
1bef715
100644
(file)
--- a/
ghc/compiler/simplCore/MagicUFs.lhs
+++ b/
ghc/compiler/simplCore/MagicUFs.lhs
@@
-18,7
+18,7
@@
IMPORT_DELOOPER(IdLoop) -- paranoia checking
import CoreSyn
import SimplEnv ( SimplEnv )
import CoreSyn
import SimplEnv ( SimplEnv )
-import SimplMonad ( SmplM(..), SimplCount )
+import SimplMonad ( SYN_IE(SmplM), SimplCount )
import Type ( mkFunTys )
import TysWiredIn ( mkListTy )
import Unique ( Unique{-instances-} )
import Type ( mkFunTys )
import TysWiredIn ( mkListTy )
import Unique ( Unique{-instances-} )
@@
-79,8
+79,8
@@
magic_UFs_table
(SLIT("build"), MUF build_fun),
(SLIT("foldl"), MUF foldl_fun),
(SLIT("foldr"), MUF foldr_fun),
(SLIT("build"), MUF build_fun),
(SLIT("foldl"), MUF foldl_fun),
(SLIT("foldr"), MUF foldr_fun),
- (SLIT("unpackFoldrPS#"), MUF unpack_foldr_fun),
- (SLIT("unpackAppendPS#"), MUF unpack_append_fun)]
+ (SLIT("unpackFoldrPS__"), MUF unpack_foldr_fun),
+ (SLIT("unpackAppendPS__"), MUF unpack_append_fun)]
\end{code}
%************************************************************************
\end{code}
%************************************************************************
@@
-227,7
+227,7
@@
foldr_fun env (TypeArg ty1:TypeArg ty2:ValArg arg_k:ValArg arg_z:ValArg arg_list
--
| do_fb_red && arg_list_isStringForm -- ok, its a string!
--
| do_fb_red && arg_list_isStringForm -- ok, its a string!
- -- foldr f z "foo" => unpackFoldrPS# f z "foo"#
+ -- foldr f z "foo" => unpackFoldrPS__ f z "foo"#
= tick Str_FoldrStr `thenSmpl_`
returnSmpl (Just (mkGenApp (Var unpackCStringFoldrId)
(TypeArg ty2:
= tick Str_FoldrStr `thenSmpl_`
returnSmpl (Just (mkGenApp (Var unpackCStringFoldrId)
(TypeArg ty2: