[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 (file)
--- 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_ "