SCM Repository
[smlnj] Diff of /sml/branches/SMLNJ/src/MLRISC/ppc/mltree/ppc.sml
Diff of /sml/branches/SMLNJ/src/MLRISC/ppc/mltree/ppc.sml
Parent Directory
|
Revision Log
|
Patch
100 |
|
|
101 |
fun selectInstructions |
fun selectInstructions |
102 |
(S.STREAM{emit,comment, |
(S.STREAM{emit,comment, |
103 |
defineLabel,entryLabel,blockName,pseudoOp,annotation, |
defineLabel,entryLabel,pseudoOp,annotation, |
104 |
beginCluster,endCluster,exitBlock,phi,alias,...}) = |
beginCluster,endCluster,exitBlock,phi,alias,...}) = |
105 |
let (* mark an instruction with annotations *) |
let (* mark an instruction with annotations *) |
106 |
fun mark'(instr,[]) = instr |
fun mark'(instr,[]) = instr |
730 |
pseudoOp = pseudoOp, |
pseudoOp = pseudoOp, |
731 |
defineLabel = defineLabel, |
defineLabel = defineLabel, |
732 |
entryLabel = entryLabel, |
entryLabel = entryLabel, |
|
blockName = blockName, |
|
733 |
comment = comment, |
comment = comment, |
734 |
annotation = annotation, |
annotation = annotation, |
735 |
exitBlock = exitBlock, |
exitBlock = exitBlock, |
|
Legend:
Removed from v.468 |
|
changed lines |
|
Added in v.469 |
|
|