Diff of /sml/trunk/src/compiler/CodeGen/main/mlriscGen.sml

Parent Directory | Revision Log | Patch

	revision 585, Wed Mar 29 23:55:35 2000 UTC	revision 586, Thu Mar 30 05:08:07 2000 UTC
#	Line 204	Line 204
204	* Otherwise, we'll just use the normal version.	* Otherwise, we'll just use the normal version.
205	*)	*)
206	val gctypes = !gctypes	val gctypes = !gctypes
207
208		val _       = if gctypes then
209		let val gcMap = GCCells.newGCMap()
210		in  enterGC := Intmap.add gcMap;
211		GCCells.setGCMap gcMap
212		end
213		else ()
214
215	val (newReg, newRegWithCty, newRegWithKind, newFreg)  =	val (newReg, newRegWithCty, newRegWithKind, newFreg)  =
216	if gctypes then	if gctypes then
217	let val newReg  = GCCells.newCell Cells.GP	let val newReg  = GCCells.newCell Cells.GP
#	Line 213	Line 221
221	in  (newReg, newRegWithCty, newRegWithKind, newFreg) end	in  (newReg, newRegWithCty, newRegWithKind, newFreg) end
222	else (Cells.newReg, Cells.newReg, Cells.newReg, Cells.newFreg)	else (Cells.newReg, Cells.newReg, Cells.newReg, Cells.newFreg)
223
	val _       = if gctypes then
	let val gcMap = GCCells.newGCMap()
	in  enterGC := Intmap.add gcMap;
	GCCells.setGCMap gcMap
	end
	else ()
224	fun markPTR e = if gctypes then M.MARK(e,ptr) else e	fun markPTR e = if gctypes then M.MARK(e,ptr) else e
225	fun markI32 e = if gctypes then M.MARK(e,i32) else e	fun markI32 e = if gctypes then M.MARK(e,i32) else e
226	fun markFLT e = if gctypes then M.FMARK(e,flt) else e	fun markFLT e = if gctypes then M.FMARK(e,flt) else e

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

Legend: Removed from v.585   changed lines   Added in v.586

---

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