@@ -1173,6 +1173,8 @@ cgOp LStdErr [] = do
1173 ptr <- inst $ loadInv stdErr
1173 ptr <- inst $ loadInv stdErr
1174 box FPtr ptr
1174 box FPtr ptr
1176+cgOp LNullPtr [] = box FPtr (ConstantOperand $ C.Null (PointerType (IntegerType 8) (AddrSpace 0)))
1176cgOp prim args = ierror $ "Unimplemented primitive: <" ++ show prim ++ ">("
1178cgOp prim args = ierror $ "Unimplemented primitive: <" ++ show prim ++ ">("
1177 ++ intersperse ',' (take (length args) ['a'..]) ++ ")"
1179 ++ intersperse ',' (take (length args) ['a'..]) ++ ")"