Diff of /sml/trunk/compiler/CodeGen/main/machine-gen.sml

Parent Directory | Revision Log | Patch

	revision 1015, Tue Jan 15 21:46:00 2002 UTC	revision 1016, Tue Jan 15 23:10:06 2002 UTC
#	Line 53	Line 53
53	structure ExpandCpys =	structure ExpandCpys =
54	CFGExpandCopies	CFGExpandCopies
55	(structure CFG = CFG	(structure CFG = CFG
56	structure ExpandCopies =	structure Shuffle = Shuffle)
	struct
	structure I = I
	fun expandCopies(I.COPY{k, dst, src, tmp, ...}) =
	(case k
	of CellsBasis.GP => Shuffle.shuffle{dst=dst, src=src, tmp=tmp}
	| CellsBasis.FP => Shuffle.shufflefp{dst=dst, src=src, tmp=tmp}
	| _ => MLRiscErrorMsg.error ("MachineGen", "expandCopies")
	(*esac*))
	| expandCopies(I.ANNOTATION{i, ...}) = expandCopies(i)
	| expandCopies instr = [instr]
	end
	)
57
58	fun omitFramePointer(cfg as G.GRAPH graph) = let	fun omitFramePointer(cfg as G.GRAPH graph) = let
59	val CFG.INFO{annotations, ...} = #graph_info graph	val CFG.INFO{annotations, ...} = #graph_info graph

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

Legend: Removed from v.1015   changed lines   Added in v.1016

---

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