X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FcodeGen%2FCgExpr.lhs;h=71087ca7c59c3dece4d02e7fcc8c6ea8a76812e1;hp=eb1d9f082c26bcccc241bb4e4ab977bee0c72a63;hb=cbbee4e8727c583daf32d9bf17f00afaa839ef10;hpb=5b7e2a875b089f31cd8dedb52d47ef9a93f276be

diff --git a/compiler/codeGen/CgExpr.lhs b/compiler/codeGen/CgExpr.lhs
index eb1d9f0..71087ca 100644
--- a/compiler/codeGen/CgExpr.lhs
+++ b/compiler/codeGen/CgExpr.lhs
@@ -179,6 +179,9 @@ cgExpr (StgOpApp (StgPrimOp primop) args res_ty)
 	     performReturn emitReturnInstr
   where
 	result_info = getPrimOpResultInfo primop
+
+cgExpr (StgOpApp (StgPrimCallOp primcall) args _res_ty)
+  = tailCallPrimCall primcall args
 \end{code}
 
 %********************************************************