From 26aba3b961ef34404137cac0ad9b767e2fda3224 Mon Sep 17 00:00:00 2001 From: simonmar Date: Thu, 12 Oct 2000 15:07:02 +0000 Subject: [PATCH] [project @ 2000-10-12 15:07:02 by simonmar] FastInt fixes --- ghc/compiler/simplCore/OccurAnal.lhs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/ghc/compiler/simplCore/OccurAnal.lhs b/ghc/compiler/simplCore/OccurAnal.lhs index 2d48bd1..826f6e1 100644 --- a/ghc/compiler/simplCore/OccurAnal.lhs +++ b/ghc/compiler/simplCore/OccurAnal.lhs @@ -21,13 +21,13 @@ import BinderInfo import CoreSyn import CoreFVs ( idRuleVars ) import CoreUtils ( exprIsTrivial ) -import Id ( isSpecPragmaId, isDataConId, isOneShotLambda, setOneShotLambda, +import Id ( isDataConId, isOneShotLambda, setOneShotLambda, idOccInfo, setIdOccInfo, isExportedId, modifyIdInfo, idInfo, idSpecialisation, idType, idUnique, Id ) -import IdInfo ( OccInfo(..), insideLam, shortableIdInfo, copyIdInfo ) +import IdInfo ( OccInfo(..), shortableIdInfo, copyIdInfo ) import VarSet import VarEnv @@ -40,6 +40,7 @@ import PrelNames ( buildIdKey, foldrIdKey, runSTRepIdKey, augmentIdKey ) import Unique ( u2i ) import UniqFM ( keysUFM ) import Util ( zipWithEqual, mapAndUnzip ) +import FastTypes import Outputable \end{code} @@ -311,7 +312,7 @@ occAnalBind env (Rec pairs) body_usage ---- stuff for dependency analysis of binds ------------------------------- edges :: [Node Details1] edges = _scc_ "occAnalBind.assoc" - [ (details, IBOX(u2i (idUnique id)), edges_from rhs_usage) + [ (details, iBox (u2i (idUnique id)), edges_from rhs_usage) | details@(id, rhs_usage, rhs) <- analysed_pairs ] -- 1.7.10.4