pushAtom: add missing case for MachNullAddr (#2589)
authorSimon Marlow <marlowsd@gmail.com>
Thu, 9 Oct 2008 09:11:18 +0000 (09:11 +0000)
committerSimon Marlow <marlowsd@gmail.com>
Thu, 9 Oct 2008 09:11:18 +0000 (09:11 +0000)
compiler/ghci/ByteCodeGen.lhs

index b45a643..e171a38 100644 (file)
@@ -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