Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Tracker SCM

SCM Repository

[smlnj] Diff of /sml/trunk/src/MLRISC/ppc/emit/ppcMC.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/ppc/emit/ppcMC.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1333, Thu May 22 17:12:13 2003 UTC revision 1334, Thu May 22 22:46:30 2003 UTC
# Line 662  Line 662 
662           (I.RLWNM, SOME me) => rlwnm {ra=ra, rs=rs, sh=sh, mb=mb, me=me}           (I.RLWNM, SOME me) => rlwnm {ra=ra, rs=rs, sh=sh, mb=mb, me=me}
663         | (I.RLDCL, _) => rldcl {ra=ra, rs=rs, sh=sh, mb=mb}         | (I.RLDCL, _) => rldcl {ra=ra, rs=rs, sh=sh, mb=mb}
664         | (I.RLDCR, _) => rldcr {ra=ra, rs=rs, sh=sh, mb=mb}         | (I.RLDCR, _) => rldcr {ra=ra, rs=rs, sh=sh, mb=mb}
665           | _ => error "rotate"
666         )         )
667     and rotatei {oper, ra, rs, sh, mb, me} =     and rotatei {oper, ra, rs, sh, mb, me} =
668         let val sh = emit_operand sh         let val sh = emit_operand sh
# Line 677  Line 678 
678                 mb=mb}                 mb=mb}
679            | (I.RLDIMI, _) => rldimi {ra=ra, rs=rs, sh=(sh && 0wx1f), sh2=((sh << 0wx5) && 0wx1),            | (I.RLDIMI, _) => rldimi {ra=ra, rs=rs, sh=(sh && 0wx1f), sh2=((sh << 0wx5) && 0wx1),
680                 mb=mb}                 mb=mb}
681              | _ => error "rotatei"
682            )            )
683         end         end
684    

Legend:
Removed from v.1333  
changed lines
  Added in v.1334

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