%
% (c) The GRASP Project, Glasgow University, 1992-1998
%
-% $Id: CgRetConv.lhs,v 1.25 2000/09/06 10:23:52 simonmar Exp $
+% $Id: CgRetConv.lhs,v 1.26 2000/09/07 13:25:28 simonpj Exp $
%
\section[CgRetConv]{Return conventions for the code generator}
dataReturnConvPrim VoidRep = VoidReg
-- Return a primitive-array pointer in the usual register:
-dataReturnConvPrim ArrayRep = VanillaReg ArrayRep ILIT(1)
+dataReturnConvPrim ArrayRep = VanillaReg ArrayRep ILIT(1)
dataReturnConvPrim ByteArrayRep = VanillaReg ByteArrayRep ILIT(1)
-dataReturnConvPrim PrimPtrRep = VanillaReg PrimPtrRep ILIT(1)
+dataReturnConvPrim PrimPtrRep = VanillaReg PrimPtrRep ILIT(1)
+dataReturnConvPrim ThreadIdRep = VanillaReg ThreadIdRep ILIT(1)
-dataReturnConvPrim StablePtrRep = VanillaReg StablePtrRep ILIT(1)
+dataReturnConvPrim StablePtrRep = VanillaReg StablePtrRep ILIT(1)
dataReturnConvPrim ForeignObjRep = VanillaReg ForeignObjRep ILIT(1)
-dataReturnConvPrim WeakPtrRep = VanillaReg WeakPtrRep ILIT(1)
+dataReturnConvPrim WeakPtrRep = VanillaReg WeakPtrRep ILIT(1)
#ifdef DEBUG
-dataReturnConvPrim PtrRep = panic "dataReturnConvPrim: PtrRep"
-dataReturnConvPrim _ = panic "dataReturnConvPrim: other"
+dataReturnConvPrim rep = pprPanic "dataReturnConvPrim:" (ppr rep)
#endif
\end{code}