Diff of /sml/trunk/src/MLRISC/x86/mltree/x86.sml

Parent Directory | Revision Log | Patch

	revision 1118, Wed Mar 6 15:30:25 2002 UTC	revision 1119, Wed Mar 6 15:52:44 2002 UTC
#	Line 290	Line 290
290	| cond T.EQ = I.EQ | cond T.NE  = I.NE	| cond T.EQ = I.EQ | cond T.NE  = I.NE
291	| cond T.GE = I.GE | cond T.GEU = I.AE	| cond T.GE = I.GE | cond T.GEU = I.AE
292	| cond T.GT = I.GT | cond T.GTU = I.A	| cond T.GT = I.GT | cond T.GTU = I.A
293		| cond cc = error(concat["cond(", T.Basis.condToString cc, ")"])
294
295	fun zero dst = emit(I.BINARY{binOp=I.XORL, src=dst, dst=dst})	fun zero dst = emit(I.BINARY{binOp=I.XORL, src=dst, dst=dst})
296
#	Line 1178	Line 1179
1179	| T.?>   => (sahf(); j(I.P,lab); testil 0x4100; j(I.EQ,lab))	| T.?>   => (sahf(); j(I.P,lab); testil 0x4100; j(I.EQ,lab))
1180	| T.<>   => (testil 0x4400; j(I.EQ,lab))	| T.<>   => (testil 0x4400; j(I.EQ,lab))
1181	| T.?=   => (testil 0x4400; j(I.NE,lab))	| T.?=   => (testil 0x4400; j(I.NE,lab))
1182	| _      => error "fbranch"	| _      => error(concat[
1183		"fbranch(", T.Basis.fcondToString fcc, ")"
1184		])
1185	(*esac*)	(*esac*)
1186	val fcc = compare()	val fcc = compare()
1187	in  emit I.FNSTSW;	in  emit I.FNSTSW;

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

Legend: Removed from v.1118   changed lines   Added in v.1119

---

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