From: simonmar <unknown>
Date: Thu, 6 Dec 2001 17:33:30 +0000 (+0000)
Subject: [project @ 2001-12-06 17:33:30 by simonmar]
X-Git-Tag: Approximately_9120_patches~444
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=8408f31662e0db548650b3aacff39a324cb9e296;p=ghc-hetmet.git

[project @ 2001-12-06 17:33:30 by simonmar]
Make the Name field of a Var strict - it doesn't hurt performance (in
fact it makes a tiny improvement) but it can help residency.
---

diff --git a/ghc/compiler/basicTypes/Var.lhs b/ghc/compiler/basicTypes/Var.lhs
index 9545f48..6e481a7 100644
--- a/ghc/compiler/basicTypes/Var.lhs
+++ b/ghc/compiler/basicTypes/Var.lhs
@@ -66,7 +66,7 @@ in its @VarDetails@.
 \begin{code}
 data Var
   = Var {
-	varName    :: Name,
+	varName    :: !Name,
 	realUnique :: FastInt,		-- Key for fast comparison
 					-- Identical to the Unique in the name,
 					-- cached here for speed