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/alpha32/alpha32Shuffle.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/alpha32/alpha32Shuffle.sml

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

revision 105, Thu May 28 21:30:17 1998 UTC revision 106, Thu May 28 21:30:17 1998 UTC
# Line 19  Line 19 
19      | fmove{src=I.Displace{base, disp}, dst=I.FDirect ft} =      | fmove{src=I.Displace{base, disp}, dst=I.FDirect ft} =
20          [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}]
21    
22    val shuffle =    val shuffle = Shuffle.shuffle {mvInstr=move, ea=I.Direct}
     Shuffle.shuffle  
       {mvInstr =  
          fn {src=I.Direct rs, dst=I.Direct rd} =>  
               [I.OPERATE{oper=I.BIS, ra=rs, rb=I.REGop 31, rc=rd}],  
        ea = I.Direct}  
23    
24    val shufflefp =    val shufflefp = Shuffle.shuffle {mvInstr=fmove, ea=I.FDirect}
     Shuffle.shuffle  
       {mvInstr =  
          fn {src=I.FDirect fs, dst=I.FDirect fd} =>  
               [I.FOPERATE{oper=I.CPYS, fa=fs, fb=fs, fc=fd}],  
        ea = I.FDirect}  
25  end  end
26    
27  (*  (*
28   * $Log: alpha32Shuffle.sml,v $   * $Log: alpha32Shuffle.sml,v $
29     * Revision 1.2  1998/05/19 15:43:47  george
30     *   Minor cleanup.
31     *
32   * Revision 1.1.1.1  1998/04/08 18:39:01  george   * Revision 1.1.1.1  1998/04/08 18:39:01  george
33   * Version 110.5   * Version 110.5
34   *   *

Legend:
Removed from v.105  
changed lines
  Added in v.106

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