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/x86/instructions/x86Shuffle.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/x86/instructions/x86Shuffle.sml

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

revision 888, Thu Jul 19 20:24:21 2001 UTC revision 889, Thu Jul 19 20:35:20 2001 UTC
# Line 81  Line 81 
81  struct  struct
82    structure I = I    structure I = I
83    structure C = I.C    structure C = I.C
84      structure CB = CellsBasis
85    structure Shuffle = Shuffle(I)    structure Shuffle = Shuffle(I)
86    
87    type t = {tmp:I.ea option, dst:C.cell list, src:C.cell list}    type t = {tmp:I.ea option, dst:CB.cell list, src:CB.cell list}
88    
89    exception foo    exception foo
90    val shuffle =    val shuffle =
# Line 109  Line 110 
110    let val n =  length src    let val n =  length src
111    in  if n <= 7 then    in  if n <= 7 then
112           let fun gen(s::ss, d::ds, pushes, pops) =           let fun gen(s::ss, d::ds, pushes, pops) =
113                   if C.sameColor(s,d) then gen(ss, ds, pushes, pops)                   if CB.sameColor(s,d) then gen(ss, ds, pushes, pops)
114                   else gen(ss, ds, I.FLDL(I.FDirect s)::pushes,                   else gen(ss, ds, I.FLDL(I.FDirect s)::pushes,
115                                        I.FSTPL(I.FDirect d)::pops)                                        I.FSTPL(I.FDirect d)::pops)
116                 | gen(_, _, pushes, pops) = List.revAppend(pushes, pops)                 | gen(_, _, pushes, pops) = List.revAppend(pushes, pops)

Legend:
Removed from v.888  
changed lines
  Added in v.889

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