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

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

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

revision 579, Wed Mar 22 06:33:08 2000 UTC revision 593, Tue Apr 4 07:26:33 2000 UTC
# Line 140  Line 140 
140    
141      fun unary opnd = (operandDef opnd, operandUse opnd)      fun unary opnd = (operandDef opnd, operandUse opnd)
142      fun cmptest{lsrc, rsrc} = ([], operandAcc(lsrc, operandUse rsrc))      fun cmptest{lsrc, rsrc} = ([], operandAcc(lsrc, operandUse rsrc))
143      fun push arg = ([], operandUse arg)      fun push arg = ([C.stackptrR], operandAcc(arg, [C.stackptrR]))
144      fun float opnd = ([], operandUse opnd)      fun float opnd = ([], operandUse opnd)
145    in    in
146      case instr      case instr
# Line 157  Line 157 
157             if rs=rd then ([rd],[]) else ([rd],[rs,rd])             if rs=rd then ([rd],[]) else ([rd],[rs,rd])
158        | I.BINARY{src,dst,...} =>        | I.BINARY{src,dst,...} =>
159             (operandDef dst, operandAcc(src, operandUse dst))             (operandDef dst, operandAcc(src, operandUse dst))
160        | I.LEAVE               => error "leave"        | I.ENTER _             => ([C.stackptrR], [C.stackptrR])
161          | I.LEAVE               => ([C.stackptrR], [C.stackptrR])
162        | I.MULTDIV arg         => multdiv arg        | I.MULTDIV arg         => multdiv arg
163        | I.MUL3{src1, src2=SOME _, dst}=> ([dst], operandUse src1)        | I.MUL3{src1, src2=SOME _, dst}=> ([dst], operandUse src1)
164        | I.MUL3{src1, dst, ...}=> ([dst], dst::operandUse src1)        | I.MUL3{src1, dst, ...}=> ([dst], dst::operandUse src1)

Legend:
Removed from v.579  
changed lines
  Added in v.593

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