diff options
author | simonmar <unknown> | 2003-09-16 13:03:49 +0000 |
---|---|---|
committer | simonmar <unknown> | 2003-09-16 13:03:49 +0000 |
commit | 2129fa6fc4afd7f7b0c767f8c0c14b9ab5508ec2 (patch) | |
tree | c4d6d2888c582f17f46dedc88678bb7ec0f1e364 /ghc/compiler/rename/RnExpr.lhs | |
parent | ce42f19f8c840fbe89844471a0d850d310a94556 (diff) | |
download | haskell-2129fa6fc4afd7f7b0c767f8c0c14b9ab5508ec2.tar.gz |
[project @ 2003-09-16 13:03:37 by simonmar]
Legacy Removal
~~~~~~~~~~~~~~
The following features have been consigned to the bit bucket:
_ccall_
_casm_
``....'' (lit-lits)
the CCallable class
the CReturnable class
Diffstat (limited to 'ghc/compiler/rename/RnExpr.lhs')
-rw-r--r-- | ghc/compiler/rename/RnExpr.lhs | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/ghc/compiler/rename/RnExpr.lhs b/ghc/compiler/rename/RnExpr.lhs index 23e41c0e9f..2b1f285ec4 100644 --- a/ghc/compiler/rename/RnExpr.lhs +++ b/ghc/compiler/rename/RnExpr.lhs @@ -36,7 +36,6 @@ import BasicTypes ( Fixity(..), FixityDirection(..), IPName(..), defaultFixity, negateFixity, compareFixity ) import PrelNames ( hasKey, assertIdKey, foldrName, buildName, - cCallableClassName, cReturnableClassName, enumClassName, loopAName, choiceAName, appAName, arrAName, composeAName, firstAName, splitName, fstName, sndName, ioDataConName, @@ -261,14 +260,6 @@ rnExpr section@(SectionR op expr) checkSectionPrec InfixR section op' expr' `thenM_` returnM (SectionR op' expr', fvs_op `plusFV` fvs_expr) -rnExpr (HsCCall fun args may_gc is_casm _) - -- Check out the comment on RnIfaces.getNonWiredDataDecl about ccalls - = rnExprs args `thenM` \ (args', fvs_args) -> - returnM (HsCCall fun args' may_gc is_casm placeHolderType, - fvs_args `plusFV` mkFVs [cCallableClassName, - cReturnableClassName, - ioDataConName]) - rnExpr (HsCoreAnn ann expr) = rnExpr expr `thenM` \ (expr', fvs_expr) -> returnM (HsCoreAnn ann expr', fvs_expr) |