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

Diff of /MLRISC/trunk/amd64/instructions/amd64Props.sml

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

revision 2927, Thu Jan 17 00:46:52 2008 UTC revision 2928, Fri Jan 18 00:50:49 2008 UTC
# Line 102  Line 102 
102      fun loadOperand {opn, t} = I.move {mvOp=I.MOVQ, src=opn, dst=I.Direct (64, t)}      fun loadOperand {opn, t} = I.move {mvOp=I.MOVQ, src=opn, dst=I.Direct (64, t)}
103    
104      fun hashOpn(I.Immed i) = Word.fromInt(Int32.toInt i)      fun hashOpn(I.Immed i) = Word.fromInt(Int32.toInt i)
105          | hashOpn(I.Immed64 i) = Word.fromInt(Int64.toInt i)
106        | hashOpn(I.ImmedLabel le) = MLTreeHash.hash le + 0w123        | hashOpn(I.ImmedLabel le) = MLTreeHash.hash le + 0w123
107        | hashOpn(I.Relative i) = Word.fromInt i + 0w1232        | hashOpn(I.Relative i) = Word.fromInt i + 0w1232
108        | hashOpn(I.LabelEA le) = MLTreeHash.hash le + 0w44444        | hashOpn(I.LabelEA le) = MLTreeHash.hash le + 0w44444
# Line 112  Line 113 
113        | hashOpn(I.Indexed {base, index, scale, disp, ...}) =        | hashOpn(I.Indexed {base, index, scale, disp, ...}) =
114          CB.hashCell index + Word.fromInt scale + hashOpn disp          CB.hashCell index + Word.fromInt scale + hashOpn disp
115      fun eqOpn(I.Immed a,I.Immed b) = a = b      fun eqOpn(I.Immed a,I.Immed b) = a = b
116          | eqOpn(I.Immed64 a,I.Immed64 b) = a = b
117        | eqOpn(I.ImmedLabel a,I.ImmedLabel b) = MLTreeEval.==(a,b)        | eqOpn(I.ImmedLabel a,I.ImmedLabel b) = MLTreeEval.==(a,b)
118        | eqOpn(I.Relative a,I.Relative b) = a = b        | eqOpn(I.Relative a,I.Relative b) = a = b
119        | eqOpn(I.LabelEA a,I.LabelEA b) = MLTreeEval.==(a,b)        | eqOpn(I.LabelEA a,I.LabelEA b) = MLTreeEval.==(a,b)

Legend:
Removed from v.2927  
changed lines
  Added in v.2928

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