From: sof <unknown>
Date: Mon, 9 Nov 1998 17:51:30 +0000 (+0000)
Subject: [project @ 1998-11-09 17:51:30 by sof]
X-Git-Tag: Approx_2487_patches~212
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=2726167bfd053dd5ad0e0cca40b8d24f72189b2c;p=ghc-hetmet.git

[project @ 1998-11-09 17:51:30 by sof]
fixed _casm_ ppr glitch
---

diff --git a/ghc/compiler/prelude/PrimOp.lhs b/ghc/compiler/prelude/PrimOp.lhs
index 836e8c4..a9cc05c 100644
--- a/ghc/compiler/prelude/PrimOp.lhs
+++ b/ghc/compiler/prelude/PrimOp.lhs
@@ -1996,7 +1996,7 @@ pprPrimOp (CCallOp fun is_casm may_gc cconv arg_tys res_ty)
 
 	before
 	  | is_casm && may_gc = "_casm_GC_ ``"
-	  | is_casm	      = "casm_ ``"
+	  | is_casm	      = "_casm_ ``"
 	  | may_gc	      = "_ccall_GC_ "
 	  | otherwise	      = "_ccall_ "