import CgHpc
import CgUtils
import ClosureInfo
-import Cmm
-import CmmUtils
+import OldCmm
+import OldCmmUtils
import VarSet
import Literal
import PrimOp
performReturn emitReturnInstr
where
result_info = getPrimOpResultInfo primop
+
+cgExpr (StgOpApp (StgPrimCallOp primcall) args _res_ty)
+ = tailCallPrimCall primcall args
\end{code}
%********************************************************