diff options
| author | Roman Leshchinskiy <rl@cse.unsw.edu.au> | 2008-03-09 22:59:14 +0000 |
|---|---|---|
| committer | Roman Leshchinskiy <rl@cse.unsw.edu.au> | 2008-03-09 22:59:14 +0000 |
| commit | e415eeaf6c7771488af24758ca5b9c22c42be3a6 (patch) | |
| tree | 020af4a5e38b18c7bfbbaa404e042f939abf225f /compiler/ndpFlatten/FlattenInfo.hs | |
| parent | c0f21abc488d367252d8dd9287c3c84cf50b9125 (diff) | |
| download | haskell-e415eeaf6c7771488af24758ca5b9c22c42be3a6.tar.gz | |
Remove ndpFlatten
This patch removes the ndpFlatten directory and the -fflatten static flag.
This code has never worked and has now been superceded by vectorisation.
Diffstat (limited to 'compiler/ndpFlatten/FlattenInfo.hs')
| -rw-r--r-- | compiler/ndpFlatten/FlattenInfo.hs | 42 |
1 files changed, 0 insertions, 42 deletions
diff --git a/compiler/ndpFlatten/FlattenInfo.hs b/compiler/ndpFlatten/FlattenInfo.hs deleted file mode 100644 index 928b5df181..0000000000 --- a/compiler/ndpFlatten/FlattenInfo.hs +++ /dev/null @@ -1,42 +0,0 @@ --- $Id$ --- --- Copyright (c) 2002 Manuel M T Chakravarty & Gabriele Keller --- --- Information for modules outside of the flattening module collection. --- ---- DESCRIPTION --------------------------------------------------------------- --- --- This module contains information that is needed, and thus imported, by --- modules that are otherwise independent of flattening and may in fact be --- directly or indirectly imported by some of the flattening-related --- modules. This is to avoid cyclic module dependencies. --- ---- DOCU ---------------------------------------------------------------------- --- --- Language: Haskell 98 --- ---- TODO ---------------------------------------------------------------------- --- -module FlattenInfo ( - namesNeededForFlattening -) where - -import StaticFlags (opt_Flatten) -import NameSet (FreeVars, emptyFVs, mkFVs) -import PrelNames (fstName, andName, orName, lengthPName, replicatePName, - mapPName, bpermutePName, bpermuteDftPName, indexOfPName) - - --- this is a list of names that need to be available if flattening is --- performed (EXPORTED) --- --- * needs to be kept in sync with the names used in Core generation in --- `FlattenMonad' and `NDPCoreUtils' --- -namesNeededForFlattening :: FreeVars -namesNeededForFlattening - | not opt_Flatten = emptyFVs -- none without -fflatten - | otherwise - = mkFVs [fstName, andName, orName, lengthPName, replicatePName, mapPName, - bpermutePName, bpermuteDftPName, indexOfPName] - -- stuff from PrelGHC doesn't have to go here |
