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 730, Fri Nov 10 14:04:49 2000 UTC revision 731, Fri Nov 10 22:57:45 2000 UTC
# Line 82  Line 82 
82     and emit_MEM r = itow ((regmap r) - 64)     and emit_MEM r = itow ((regmap r) - 64)
83     and emit_CTRL r = itow ((regmap r) - 64)     and emit_CTRL r = itow ((regmap r) - 64)
84     fun modrm {mod, reg, rm} = eWord8 ((op mod << 0wx6) + ((reg << 0wx3) + rm))     fun modrm {mod, reg, rm} = eWord8 ((op mod << 0wx6) + ((reg << 0wx3) + rm))
85       and reg {opc, reg} = eWord8 ((opc << 0wx3) + reg)
86     and sib {ss, index, base} = eWord8 ((ss << 0wx6) + ((index << 0wx3) + base))     and sib {ss, index, base} = eWord8 ((ss << 0wx6) + ((index << 0wx3) + base))
87     and immed8 {imm} = eWord8 imm     and immed8 {imm} = eWord8 imm
88     and immed32 {imm} = eWord32 imm     and immed32 {imm} = eWord32 imm
# Line 118  Line 119 
119       | emitInstr (I.FBINARY{binOp, src, dst}) = error "FBINARY"       | emitInstr (I.FBINARY{binOp, src, dst}) = error "FBINARY"
120       | emitInstr (I.FIBINARY{binOp, src}) = error "FIBINARY"       | emitInstr (I.FIBINARY{binOp, src}) = error "FIBINARY"
121       | emitInstr (I.FUNARY funOp) = error "FUNARY"       | emitInstr (I.FUNARY funOp) = error "FUNARY"
122         | emitInstr (I.FUCOM operand) = error "FUCOM"
123         | emitInstr (I.FUCOMP operand) = error "FUCOMP"
124       | emitInstr (I.FUCOMPP) = error "FUCOMPP"       | emitInstr (I.FUCOMPP) = error "FUCOMPP"
125       | emitInstr (I.FCOMPP) = error "FCOMPP"       | emitInstr (I.FCOMPP) = error "FCOMPP"
126       | emitInstr (I.FXCH{opnd}) = error "FXCH"       | emitInstr (I.FXCH{opnd}) = error "FXCH"
# Line 141  Line 144 
144       | emitInstr (I.FILDLL operand) = error "FILDLL"       | emitInstr (I.FILDLL operand) = error "FILDLL"
145       | emitInstr (I.FNSTSW) = error "FNSTSW"       | emitInstr (I.FNSTSW) = error "FNSTSW"
146       | emitInstr (I.FENV{fenvOp, opnd}) = error "FENV"       | emitInstr (I.FENV{fenvOp, opnd}) = error "FENV"
147         | emitInstr (I.FMOVE{fsize, src, dst}) = error "FMOVE"
148         | emitInstr (I.FILOAD{isize, ea, dst}) = error "FILOAD"
149         | emitInstr (I.FBINOP{fsize, binOp, lsrc, rsrc, dst}) = error "FBINOP"
150         | emitInstr (I.FIBINOP{isize, binOp, lsrc, rsrc, dst}) = error "FIBINOP"
151         | emitInstr (I.FUNOP{fsize, unOp, src, dst}) = error "FUNOP"
152         | emitInstr (I.FCMP{fsize, lsrc, rsrc}) = error "FCMP"
153       | emitInstr (I.SAHF) = error "SAHF"       | emitInstr (I.SAHF) = error "SAHF"
154       | emitInstr (I.ANNOTATION{i, a}) = error "ANNOTATION"       | emitInstr (I.ANNOTATION{i, a}) = error "ANNOTATION"
155       | emitInstr (I.SOURCE{}) = ()       | emitInstr (I.SOURCE{}) = ()

Legend:
Removed from v.730  
changed lines
  Added in v.731

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