SCM Repository
Diff of /sml/trunk/src/MLRISC/mltree/mltree-rtl.sml
Parent Directory
| 
Revision Log
| 
Patch
| revision 591, Mon Apr 3 01:19:20 2000 UTC | revision 593, Tue Apr 4 07:26:33 2000 UTC | |
|---|---|---|
| # | Line 156 | Line 156 |
| 156 | | r => ":"^ #rexp pr r | | r => ":"^ #rexp pr r |
| 157 | val body = "$"^k^"["^ lhs pr e^r^"]" | val body = "$"^k^"["^ lhs pr e^r^"]" |
| 158 | in if t = t' orelse t = 0 then body else | in if t = t' orelse t = 0 then body else |
| 159 | showEnd endian^showTy t'^showTy t^body | showEnd endian^showTy t'^showTy t^" "^body |
| 160 | end | end |
| 161 | and lhs pr (T.REG(ty,r)) = #dstReg pr (ty,r) | and lhs pr (T.REG(ty,r)) = #dstReg pr (ty,r) |
| 162 | | lhs pr e = #rexp pr e | | lhs pr e = #rexp pr e |
|
||||||||
| root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
| Powered by ViewVC 1.0.0 |
