Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/src/MLRISC/ppc/instructions/ppcShuffle.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/ppc/instructions/ppcShuffle.sml

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

revision 1002, Fri Nov 30 17:11:33 2001 UTC revision 1003, Fri Dec 7 02:45:32 2001 UTC
# Line 12  Line 12 
12     * Allen     * Allen
13     *)     *)
14    fun move{src=I.Direct rs, dst=I.Direct rd} =    fun move{src=I.Direct rs, dst=I.Direct rd} =
15          [I.ARITH{oper=I.OR, rt=rd, ra=rs, rb=rs, Rc=false, OE=false}]          [I.arith{oper=I.OR, rt=rd, ra=rs, rb=rs, Rc=false, OE=false}]
16      | move{src=I.Direct rs, dst=I.Displace{base, disp}} =      | move{src=I.Direct rs, dst=I.Displace{base, disp}} =
17          [I.ST{st=I.STW, rs=rs, ra=base, d=disp, mem=mem}]          [I.st{st=I.STW, rs=rs, ra=base, d=disp, mem=mem}]
18      | move{src=I.Displace{base, disp}, dst=I.Direct rt} =      | move{src=I.Displace{base, disp}, dst=I.Direct rt} =
19          [I.L{ld=I.LWZ, rt=rt, ra=base, d=disp, mem=mem}]          [I.l{ld=I.LWZ, rt=rt, ra=base, d=disp, mem=mem}]
20      | move _ = error "move"      | move _ = error "move"
21    
22    fun fmove{src=I.FDirect fs, dst=I.FDirect fd} =    fun fmove{src=I.FDirect fs, dst=I.FDirect fd} =
23          [I.FUNARY{oper=I.FMR, fb=fs, ft=fd, Rc=false}]          [I.funary{oper=I.FMR, fb=fs, ft=fd, Rc=false}]
24      | fmove{src=I.FDirect fs, dst=I.Displace{base, disp}} =      | fmove{src=I.FDirect fs, dst=I.Displace{base, disp}} =
25          [I.STF{st=I.STFD, fs=fs, ra=base, d=disp, mem=mem}]          [I.stf{st=I.STFD, fs=fs, ra=base, d=disp, mem=mem}]
26      | fmove{src=I.Displace{base, disp}, dst=I.FDirect ft} =      | fmove{src=I.Displace{base, disp}, dst=I.FDirect ft} =
27          [I.LF{ld=I.LFD, ft=ft, ra=base, d=disp, mem=mem}]          [I.lf{ld=I.LFD, ft=ft, ra=base, d=disp, mem=mem}]
28      | fmove _ = error "fmove"      | fmove _ = error "fmove"
29    
30    val shuffle = Shuffle.shuffle {mvInstr=move, ea=I.Direct}    val shuffle = Shuffle.shuffle {mvInstr=move, ea=I.Direct}

Legend:
Removed from v.1002  
changed lines
  Added in v.1003

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