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 1333, Thu May 22 17:12:13 2003 UTC revision 1334, Thu May 22 22:46:30 2003 UTC
# Line 3  Line 3 
3    structure Shuffle = Shuffle(I)    structure Shuffle = Shuffle(I)
4    
5    type t = {tmp:I.ea option, dst:CellsBasis.cell list, src:CellsBasis.cell list}    type t = {tmp:I.ea option, dst:CellsBasis.cell list, src:CellsBasis.cell list}
6      fun error msg = MLRiscErrorMsg.error("AlphaShuffle",msg)
7    
8    val zeroR = I.REGop(Option.valOf(I.C.zeroReg CellsBasis.GP))    val zeroR = I.REGop(Option.valOf(I.C.zeroReg CellsBasis.GP))
9    
# Line 12  Line 13 
13          [I.store{stOp=I.STL, r=rs, b=base, d=I.LABop disp, mem=mem}]          [I.store{stOp=I.STL, r=rs, b=base, d=I.LABop disp, mem=mem}]
14      | move{src=I.Displace{base, disp, mem}, dst=I.Direct rt} =      | move{src=I.Displace{base, disp, mem}, dst=I.Direct rt} =
15          [I.load{ldOp=I.LDL, r=rt, b=base, d=I.LABop disp, mem=mem}]          [I.load{ldOp=I.LDL, r=rt, b=base, d=I.LABop disp, mem=mem}]
16        | move _ = error "move"
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}]
# Line 19  Line 21 
21          [I.fstore{stOp=I.STT, r=fs, b=base, d=I.LABop disp, mem=mem}]          [I.fstore{stOp=I.STT, r=fs, b=base, d=I.LABop disp, mem=mem}]
22      | fmove{src=I.Displace{base, disp, mem}, dst=I.FDirect ft} =      | fmove{src=I.Displace{base, disp, mem}, dst=I.FDirect ft} =
23          [I.fload{ldOp=I.LDT, r=ft, b=base, d=I.LABop disp, mem=mem}]          [I.fload{ldOp=I.LDT, r=ft, b=base, d=I.LABop disp, mem=mem}]
24        | fmove _ = error "fmove"
25    
26    val shuffle = Shuffle.shuffle {mvInstr=move, ea=I.Direct}    val shuffle = Shuffle.shuffle {mvInstr=move, ea=I.Direct}
27    

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