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/sparc/instructions/sparcShuffle.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/sparc/instructions/sparcShuffle.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 11  Line 11 
11    val zeroR = Option.valOf(I.C.zeroReg CB.GP)    val zeroR = Option.valOf(I.C.zeroReg CB.GP)
12    
13    fun move{src=I.Direct rs, dst=I.Direct rt} =    fun move{src=I.Direct rs, dst=I.Direct rt} =
14         [I.ARITH{a=I.OR, r=zeroR, i=I.REG rs, d=rt}]         [I.arith{a=I.OR, r=zeroR, i=I.REG rs, d=rt}]
15      | move{src=I.Displace{base, disp}, dst=I.Direct rt} =      | move{src=I.Displace{base, disp}, dst=I.Direct rt} =
16         [I.LOAD{l=I.LD, r=base, i=I.IMMED disp, d=rt, mem=mem}]         [I.load{l=I.LD, r=base, i=I.IMMED disp, d=rt, mem=mem}]
17      | move{src=I.Direct rs, dst=I.Displace{base, disp}} =      | move{src=I.Direct rs, dst=I.Displace{base, disp}} =
18         [I.STORE{s=I.ST, r=base, i=I.IMMED disp, d=rs, mem=mem}]         [I.store{s=I.ST, r=base, i=I.IMMED disp, d=rs, mem=mem}]
19      | move _ = error "move"      | move _ = error "move"
20    
21    fun fmove{src=I.FDirect fs, dst=I.FDirect fd} =    fun fmove{src=I.FDirect fs, dst=I.FDirect fd} =
22         [I.FPop1{a=I.FMOVd, r=fs, d=fd}]         [I.fpop1{a=I.FMOVd, r=fs, d=fd}]
23      | fmove{src=I.Displace{base, disp}, dst=I.FDirect ft} =      | fmove{src=I.Displace{base, disp}, dst=I.FDirect ft} =
24         [I.FLOAD{l=I.LDDF, r=base, i=I.IMMED disp, d=ft, mem=mem}]         [I.fload{l=I.LDDF, r=base, i=I.IMMED disp, d=ft, mem=mem}]
25      | fmove{src=I.FDirect fs, dst=I.Displace{base, disp}} =      | fmove{src=I.FDirect fs, dst=I.Displace{base, disp}} =
26         [I.FSTORE{s=I.STDF, r=base, i=I.IMMED disp, d=fs, mem=mem}]         [I.fstore{s=I.STDF, r=base, i=I.IMMED disp, d=fs, mem=mem}]
27      | fmove _ = error "fmove"      | fmove _ = error "fmove"
28    
29    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