X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fcmm%2FPprC.hs;h=3ee3738e7b9bb8e5e4cc47b9eb4236ee5c7e1143;hb=8fd6a1efca90be81dc97a679bf430aaffecc568d;hp=04aa9e90ca0dd76285924dc5508262c60a3521a6;hpb=497302c44ad08c6c27d0e15d94a787f332c0cfec;p=ghc-hetmet.git

diff --git a/compiler/cmm/PprC.hs b/compiler/cmm/PprC.hs
index 04aa9e9..3ee3738 100644
--- a/compiler/cmm/PprC.hs
+++ b/compiler/cmm/PprC.hs
@@ -253,7 +253,8 @@ pprStmt stmt = case stmt of
                                  )
                     in (fun_proto lbl, myCall)
 	      _ -> 
-                   (empty {- no proto -}, cast_fn)
+                   (empty {- no proto -},
+                    pprCall cast_fn cconv results args safety <> semi)
 			-- for a dynamic call, no declaration is necessary.
 
     CmmCall (CmmPrim op) results args safety _ret ->