Diff of /sml/trunk/src/MLRISC/ppc/flowgraph/ppcDarwinPseudoOps.sml

Parent Directory | Revision Log | Patch

	revision 1026, Fri Jan 18 14:54:17 2002 UTC	revision 1027, Fri Jan 18 15:50:59 2002 UTC
#	Line 34	Line 34
34	val sizeOf = Endian.sizeOf	val sizeOf = Endian.sizeOf
35	val emitValue = Endian.emitValue	val emitValue = Endian.emitValue
36
37		val labelToString = Label.fmt {gPrefix="", aPrefix="L"}
38
39	fun prIntInf i =	fun prIntInf i =
40	if IntInf.sign i < 0 then "-"^IntInf.toString(IntInf.~ i)	if IntInf.sign i < 0 then "-"^IntInf.toString(IntInf.~ i)
41	else IntInf.toString i	else IntInf.toString i
#	Line 52	Line 54
54
55	fun lexpToString le = toStr(le, 0)	fun lexpToString le = toStr(le, 0)
56
57	and toStr(T.LABEL lab, _) = Label.fmt labFmt lab	and toStr(T.LABEL lab, _) = labelToString lab
58	| toStr(T.LABEXP le, p) = toStr(le, p)	| toStr(T.LABEXP le, p) = toStr(le, p)
59	| toStr(T.CONST c, _) =	| toStr(T.CONST c, _) =
60	(prInt(T.Constant.valueOf c) handle _ => T.Constant.toString c)	(prInt(T.Constant.valueOf c) handle _ => T.Constant.toString c)
#	Line 79	Line 81
81	| toString(PB.ALIGN_ENTRY)    = "\t.align\t4"     (* 16 byte boundary *)	| toString(PB.ALIGN_ENTRY)    = "\t.align\t4"     (* 16 byte boundary *)
82	| toString(PB.ALIGN_LABEL)    = "\t.align\t2"	| toString(PB.ALIGN_LABEL)    = "\t.align\t2"
83
84	| toString(PB.DATA_LABEL lab) = Label.fmt labFmt lab ^ ":"	| toString(PB.DATA_LABEL lab) = labelToString lab ^ ":"
85	| toString(PB.DATA_READ_ONLY) = "\t.const_data"	| toString(PB.DATA_READ_ONLY) = "\t.const_data"
86	| toString(PB.DATA)           = "\t.data"	| toString(PB.DATA)           = "\t.data"
87	| toString(PB.BSS)            = "\t.section\t__DATA,__BSS"	| toString(PB.BSS)            = "\t.section\t__DATA,__BSS"
#	Line 121	Line 123
123	| toString(PB.COMMENT txt) = Fmt.format "; %s" [Fmt.STR txt]	| toString(PB.COMMENT txt) = Fmt.format "; %s" [Fmt.STR txt]
124	| toString(PB.EXT _) = error "EXT"	| toString(PB.EXT _) = error "EXT"
125
126	fun defineLabel lab = Label.fmt labFmt lab ^ ":"	fun defineLabel lab = labelToString lab ^ ":"
127
128	end	end

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

Legend: Removed from v.1026   changed lines   Added in v.1027

---

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