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

Diff of /sml/trunk/src/MLRISC/x86/emit/x86MC.sml

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

revision 1202, Sat May 18 01:05:18 2002 UTC revision 1203, Sat May 18 18:21:53 2002 UTC
# Line 161  Line 161 
161         | I.FDirect _ => extension {opc=opc, opnd=memReg opnd}         | I.FDirect _ => extension {opc=opc, opnd=memReg opnd}
162         | I.Displace{base, disp, ...} =>         | I.Displace{base, disp, ...} =>
163           let           let
164  (*#line 472.13 "x86/x86.mdl"*)  (*#line 475.13 "x86/x86.mdl"*)
165               val immed = immedOpnd {opnd=disp}               val immed = immedOpnd {opnd=disp}
166           in ()           in ()
167           end           end
# Line 209  Line 209 
209       | emitInstr (I.TESTB{lsrc, rsrc}) = error "TESTB"       | emitInstr (I.TESTB{lsrc, rsrc}) = error "TESTB"
210       | emitInstr (I.BITOP{bitOp, lsrc, rsrc}) = error "BITOP"       | emitInstr (I.BITOP{bitOp, lsrc, rsrc}) = error "BITOP"
211       | emitInstr (I.BINARY{binOp, src, dst}) = error "BINARY"       | emitInstr (I.BINARY{binOp, src, dst}) = error "BINARY"
212         | emitInstr (I.SHIFT{shiftOp, src, dst, count}) = error "SHIFT"
213       | emitInstr (I.CMPXCHG{lock, sz, src, dst}) = error "CMPXCHG"       | emitInstr (I.CMPXCHG{lock, sz, src, dst}) = error "CMPXCHG"
214       | emitInstr (I.MULTDIV{multDivOp, src}) = error "MULTDIV"       | emitInstr (I.MULTDIV{multDivOp, src}) = error "MULTDIV"
215       | emitInstr (I.MUL3{dst, src2, src1}) = error "MUL3"       | emitInstr (I.MUL3{dst, src2, src1}) = error "MUL3"
# Line 230  Line 231 
231       | emitInstr (I.FUCOMP operand) = error "FUCOMP"       | emitInstr (I.FUCOMP operand) = error "FUCOMP"
232       | emitInstr (I.FUCOMPP) = error "FUCOMPP"       | emitInstr (I.FUCOMPP) = error "FUCOMPP"
233       | emitInstr (I.FCOMPP) = error "FCOMPP"       | emitInstr (I.FCOMPP) = error "FCOMPP"
234         | emitInstr (I.FCOMI operand) = error "FCOMI"
235         | emitInstr (I.FCOMIP operand) = error "FCOMIP"
236         | emitInstr (I.FUCOMI operand) = error "FUCOMI"
237         | emitInstr (I.FUCOMIP operand) = error "FUCOMIP"
238       | emitInstr (I.FXCH{opnd}) = error "FXCH"       | emitInstr (I.FXCH{opnd}) = error "FXCH"
239       | emitInstr (I.FSTPL operand) = error "FSTPL"       | emitInstr (I.FSTPL operand) = error "FSTPL"
240       | emitInstr (I.FSTPS operand) = error "FSTPS"       | emitInstr (I.FSTPS operand) = error "FSTPS"
# Line 256  Line 261 
261       | emitInstr (I.FBINOP{fsize, binOp, lsrc, rsrc, dst}) = error "FBINOP"       | emitInstr (I.FBINOP{fsize, binOp, lsrc, rsrc, dst}) = error "FBINOP"
262       | emitInstr (I.FIBINOP{isize, binOp, lsrc, rsrc, dst}) = error "FIBINOP"       | emitInstr (I.FIBINOP{isize, binOp, lsrc, rsrc, dst}) = error "FIBINOP"
263       | emitInstr (I.FUNOP{fsize, unOp, src, dst}) = error "FUNOP"       | emitInstr (I.FUNOP{fsize, unOp, src, dst}) = error "FUNOP"
264       | emitInstr (I.FCMP{fsize, lsrc, rsrc}) = error "FCMP"       | emitInstr (I.FCMP{i, fsize, lsrc, rsrc}) = error "FCMP"
265       | emitInstr (I.SAHF) = error "SAHF"       | emitInstr (I.SAHF) = error "SAHF"
266       | emitInstr (I.LAHF) = error "LAHF"       | emitInstr (I.LAHF) = error "LAHF"
267       | emitInstr (I.SOURCE{}) = ()       | emitInstr (I.SOURCE{}) = ()

Legend:
Removed from v.1202  
changed lines
  Added in v.1203

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