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/alpha/instructions/alphaShuffle.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/alpha/instructions/alphaShuffle.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 9  Line 9 
9    val zeroR = I.REGop(Option.valOf(I.C.zeroReg CellsBasis.GP))    val zeroR = I.REGop(Option.valOf(I.C.zeroReg CellsBasis.GP))
10    
11    fun move{src=I.Direct rs, dst=I.Direct rd} =    fun move{src=I.Direct rs, dst=I.Direct rd} =
12          [I.OPERATE{oper=I.BIS, ra=rs, rb=zeroR, rc=rd}]          [I.operate{oper=I.BIS, ra=rs, rb=zeroR, rc=rd}]
13      | move{src=I.Direct rs, dst=I.Displace{base, disp}} =      | move{src=I.Direct rs, dst=I.Displace{base, disp}} =
14          [I.STORE{stOp=I.STL, r=rs, b=base, d=I.IMMop disp, mem=mem}]          [I.store{stOp=I.STL, r=rs, b=base, d=I.IMMop disp, mem=mem}]
15      | move{src=I.Displace{base, disp}, dst=I.Direct rt} =      | move{src=I.Displace{base, disp}, dst=I.Direct rt} =
16          [I.LOAD{ldOp=I.LDL, r=rt, b=base, d=I.IMMop disp, mem=mem}]          [I.load{ldOp=I.LDL, r=rt, b=base, d=I.IMMop disp, mem=mem}]
17    
18    fun fmove{src=I.FDirect fs, dst=I.FDirect fd} =    fun fmove{src=I.FDirect fs, dst=I.FDirect fd} =
19          [I.FOPERATE{oper=I.CPYS, fa=fs, fb=fs, fc=fd}]          [I.foperate{oper=I.CPYS, fa=fs, fb=fs, fc=fd}]
20      | fmove{src=I.FDirect fs, dst=I.Displace{base, disp}} =      | fmove{src=I.FDirect fs, dst=I.Displace{base, disp}} =
21          [I.FSTORE{stOp=I.STT, r=fs, b=base, d=I.IMMop disp, mem=mem}]          [I.fstore{stOp=I.STT, r=fs, b=base, d=I.IMMop disp, mem=mem}]
22      | fmove{src=I.Displace{base, disp}, dst=I.FDirect ft} =      | fmove{src=I.Displace{base, disp}, dst=I.FDirect ft} =
23          [I.FLOAD{ldOp=I.LDT, r=ft, b=base, d=I.IMMop disp, mem=mem}]          [I.fload{ldOp=I.LDT, r=ft, b=base, d=I.IMMop disp, mem=mem}]
24    
25    val shuffle = Shuffle.shuffle {mvInstr=move, ea=I.Direct}    val shuffle = Shuffle.shuffle {mvInstr=move, ea=I.Direct}
26    

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