%
% (c) The GRASP/AQUA Project, Glasgow University, 1992-1998
%
-% $Id: CgTailCall.lhs,v 1.33 2002/04/29 14:03:42 simonmar Exp $
+% $Id: CgTailCall.lhs,v 1.35 2002/10/25 16:54:56 simonpj Exp $
%
%********************************************************
%* *
import CgMonad
import AbsCSyn
-import PprAbsC ( pprAmode )
import AbsCUtils ( mkAbstractCs, getAmodeRep )
import CgBindery ( getArgAmodes, getCAddrMode, getCAddrModeAndInfo )
performPrimReturn doc amode
= let
kind = getAmodeRep amode
- ret_reg = WARN( case kind of { PtrRep -> True; other -> False }, text "primRet" <+> doc <+> pprAmode amode )
- dataReturnConvPrim kind
+ ret_reg = dataReturnConvPrim kind
assign_possibly = case kind of
VoidRep -> AbsCNop