[project @ 2001-11-23 11:42:11 by simonmar]

[ghc-hetmet.git] / ghc / compiler / codeGen / CgBindery.lhs

diff --git a/ghc/compiler/codeGen/CgBindery.lhs b/ghc/compiler/codeGen/CgBindery.lhs
index bf11d6a..7414569 100644 (file)
--- a/ghc/compiler/codeGen/CgBindery.lhs
+++ b/ghc/compiler/codeGen/CgBindery.lhs
@@ -326,7 +326,6 @@ getVolatileRegs vars = do
                        in
                        case volatile_loc of
                                RegLoc reg   -> consider_reg reg
-                               VirHpLoc _   -> consider_reg Hp
                                VirNodeLoc _ -> consider_reg node
                                non_reg_loc  -> returnFC Nothing