Diff of /sml/trunk/src/MLRISC/sparc/c-calls/sparc-c-calls.sml

Parent Directory | Revision Log | Patch

	revision 841, Fri Jun 15 21:38:20 2001 UTC	revision 1043, Mon Jan 28 21:26:03 2002 UTC
#	Line 68	Line 68
68	val mem = T.Region.memory	val mem = T.Region.memory
69	val stack = T.Region.memory	val stack = T.Region.memory
70
71		val paramAreaOffset = 68
72
73	fun LI i = T.LI (T.I.fromInt (32, i))	fun LI i = T.LI (T.I.fromInt (32, i))
74
75	val GP = C.GPReg	val GP = C.GPReg
#	Line 93	Line 95
95	| _ => T.ADD (32, x, T.LI d')	| _ => T.ADD (32, x, T.LI d')
96	end	end
97
98	fun argaddr n = addli (spreg, 68+4*n)	fun argaddr n = addli (spreg, paramAreaOffset + 4*n)
99
100	(* temp location for transfers through memory *)	(* temp location for transfers through memory *)
101	val tmpaddr = argaddr 1	val tmpaddr = argaddr 1
#	Line 134	Line 136
136	pack (0, 1, l)	pack (0, 1, l)
137	end	end
138
139	fun genCall { name, proto, structRet, saveRestoreDedicated,	fun genCall { name, proto, paramAlloc, structRet, saveRestoreDedicated,
140	callComment, args } = let	callComment, args } = let
141	val { conv, retTy, paramTys } = proto	val { conv, retTy, paramTys } = proto
142	val _ = case conv of	val _ = case conv of

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

Legend: Removed from v.841   changed lines   Added in v.1043

---

root@smlnj-gforge.cs.uchicago.edu	ViewVC Help
Powered by ViewVC 1.0.0