From: Simon Marlow <marlowsd@gmail.com>
Date: Thu, 9 Oct 2008 09:11:18 +0000 (+0000)
Subject: pushAtom: add missing case for MachNullAddr (#2589)
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=02ca3a08b287f2efcfddb46e8cd1eca5eccf68a2

pushAtom: add missing case for MachNullAddr (#2589)
---

diff --git a/compiler/ghci/ByteCodeGen.lhs b/compiler/ghci/ByteCodeGen.lhs
index b45a643..e171a38 100644
--- a/compiler/ghci/ByteCodeGen.lhs
+++ b/compiler/ghci/ByteCodeGen.lhs
@@ -1219,6 +1219,7 @@ pushAtom _ _ (AnnLit lit)
         MachFloat _   -> code FloatArg
         MachDouble _  -> code DoubleArg
         MachChar _    -> code NonPtrArg
+	MachNullAddr  -> code NonPtrArg
         MachStr s     -> pushStr s
         l             -> pprPanic "pushAtom" (ppr l)
      where