SCM Repository
[smlnj] Diff of /sml/trunk/src/MLRISC/ppc/mltree/ppc.sml
Diff of /sml/trunk/src/MLRISC/ppc/mltree/ppc.sml
Parent Directory
|
Revision Log
|
Patch
304 |
end |
end |
305 |
| call _ = error "pops<>0 not implemented" |
| call _ = error "pops<>0 not implemented" |
306 |
|
|
307 |
and branch(T.CMP(_, _, T.LI _, T.LI _), _, _) = error "branch" |
and branch(T.CMP(_, _, T.LI _, T.LI _), _, _) = error "branch(LI,LI)" |
308 |
| branch(T.CMP(ty, cc, e1 as T.LI _, e2), lab, an) = |
| branch(T.CMP(ty, cc, e1 as T.LI _, e2), lab, an) = |
309 |
let val cc' = T.Basis.swapCond cc |
let val cc' = T.Basis.swapCond cc |
310 |
in branch(T.CMP(ty, cc', e2, e1), lab, an) |
in branch(T.CMP(ty, cc', e2, e1), lab, an) |
|
Legend:
Removed from v.1503 |
|
changed lines |
|
Added in v.1504 |
|
|