Commit 04a28507 authored by simonpj's avatar simonpj
Browse files

[project @ 2000-09-07 13:25:28 by simonpj]

Primitives can return ThreadId# values
parent c77080dd
%
% (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}
......@@ -87,17 +87,17 @@ dataReturnConvPrim DoubleRep = DoubleReg ILIT(1)
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}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment