From 7f0045763ff45323e8b5b370d8ecb165089df9fc Mon Sep 17 00:00:00 2001 From: Roman Leshchinskiy Date: Tue, 17 Jul 2007 05:23:23 +0000 Subject: [PATCH] Remove mapping from tycons to PA dictionaries from vect environment --- compiler/vectorise/VectMonad.hs | 5 ----- 1 file changed, 5 deletions(-) diff --git a/compiler/vectorise/VectMonad.hs b/compiler/vectorise/VectMonad.hs index b8f51a2..2b7a7ca 100644 --- a/compiler/vectorise/VectMonad.hs +++ b/compiler/vectorise/VectMonad.hs @@ -109,10 +109,6 @@ data GlobalEnv = GlobalEnv { -- , global_tycons :: NameEnv TyCon - -- Mapping from TyCons to their PA dictionaries - -- - , global_tycon_pa :: NameEnv CoreExpr - -- Mapping from DataCons to their vectorised versions -- , global_datacons :: NameEnv DataCon @@ -152,7 +148,6 @@ initGlobalEnv info instEnvs famInstEnvs global_vars = mapVarEnv (Var . snd) $ vectInfoVar info , global_exported_vars = emptyVarEnv , global_tycons = mapNameEnv snd $ vectInfoTyCon info - , global_tycon_pa = emptyNameEnv , global_datacons = mapNameEnv snd $ vectInfoDataCon info , global_inst_env = instEnvs , global_fam_inst_env = famInstEnvs -- 1.7.10.4