Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Annotation of /MLRISC/trunk/amd64/instructions/amd64Shuffle.sml
ViewVC logotype

Annotation of /MLRISC/trunk/amd64/instructions/amd64Shuffle.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2619 - (view) (download)

1 : mrainey 2619 signature AMD64SHUFFLE = sig
2 :     structure I : AMD64INSTR
3 :    
4 :     type t = {tmp:I.operand option, dst:CellsBasis.cell list, src:CellsBasis.cell list}
5 :    
6 :     val shuffle : t -> I.instruction list
7 :     val shufflefp : t -> I.instruction list
8 :     end
9 :    
10 :     functor AMD64Shuffle (I : AMD64INSTR) : AMD64SHUFFLE =
11 :     struct
12 :    
13 :     structure I = I
14 :     structure C = I.C
15 :     structure CB = CellsBasis
16 :     structure Shuffle = Shuffle (I)
17 :    
18 :     type t = {tmp:I.operand option, dst:CellsBasis.cell list,
19 :     src:CellsBasis.cell list}
20 :    
21 :     exception foo
22 :     val shuffle = Shuffle.shuffle
23 :     {mvInstr=fn{dst, src} => [I.move{mvOp=I.MOVQ, src=src, dst=dst}],
24 :     ea=fn r => I.Direct (64, r)}
25 :    
26 :     fun shufflefp x = raise Fail "todo"
27 :    
28 :     end (* AMD64Shuffle *)

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