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 /MLRISC/trunk/amd64/mltree/amd64-opcodes.sml
ViewVC logotype

Diff of /MLRISC/trunk/amd64/mltree/amd64-opcodes.sml

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

revision 3171, Wed Jul 30 23:29:29 2008 UTC revision 3172, Thu Jul 31 01:09:25 2008 UTC
# Line 72  Line 72 
72        | loadZXOp (16, 32) = I.MOVZWL        | loadZXOp (16, 32) = I.MOVZWL
73        | loadZXOp (8, 64) = I.MOVZBQ        | loadZXOp (8, 64) = I.MOVZBQ
74        | loadZXOp (16, 64) = I.MOVZWQ        | loadZXOp (16, 64) = I.MOVZWQ
75        | loadZXOp _ = raise Fail "impossible"        | loadZXOp (fTy, tTy) = raise Fail ("incompatible "^Int.toString fTy^" "^Int.toString tTy)
76    
77     (* fromTy, toTy *)     (* fromTy, toTy *)
78      fun loadSXOp (8, 64) = I.MOVSBQ      fun loadSXOp (8, 64) = I.MOVSBQ
# Line 80  Line 80 
80        | loadSXOp (8, 32) = I.MOVSBL        | loadSXOp (8, 32) = I.MOVSBL
81        | loadSXOp (16, 32) = I.MOVSWL        | loadSXOp (16, 32) = I.MOVSWL
82        | loadSXOp (32, 64) = I.MOVSLQ        | loadSXOp (32, 64) = I.MOVSLQ
83        | loadSXOp _ = raise Fail "impossible"        | loadSXOp (fTy, tTy) = raise Fail ("incompatible "^Int.toString fTy^" "^Int.toString tTy)
84    
85      val fopcodes32 = {MOV=I.MOVSS, ADD=I.ADDSS, SUB=I.SUBSS,      val fopcodes32 = {MOV=I.MOVSS, ADD=I.ADDSS, SUB=I.SUBSS,
86                        MUL=I.MULSS, DIV=I.DIVSS, UCOM=I.UCOMISS}                        MUL=I.MULSS, DIV=I.DIVSS, UCOM=I.UCOMISS}

Legend:
Removed from v.3171  
changed lines
  Added in v.3172

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