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/x86.md
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/x86/x86.md

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

revision 429, Wed Sep 8 09:47:00 1999 UTC revision 498, Tue Dec 7 15:44:50 1999 UTC
# Line 102  Line 102 
102     | LabelEA    of LabelExp.labexp     | LabelEA    of LabelExp.labexp
103     | Direct     of $GP     | Direct     of $GP
104     | FDirect    of $FP     | FDirect    of $FP
105       | MemReg     of int (* pseudo memory register *)
106     | Displace   of {base: $GP, disp:operand, mem:Region.region}     | Displace   of {base: $GP, disp:operand, mem:Region.region}
107     | Indexed    of {base: $GP option, index: $GP, scale:int, disp:operand,     | Indexed    of {base: $GP option, index: $GP, scale:int, disp:operand,
108                      mem:Region.region}                      mem:Region.region}
# Line 167  Line 168 
168         | I.LabelEA le => emit_labexp le         | I.LabelEA le => emit_labexp le
169         | I.Relative _ => error "emit_operand"         | I.Relative _ => error "emit_operand"
170         | I.Direct r => emit_GP r         | I.Direct r => emit_GP r
171           | I.MemReg r => emit_operand(memReg opn)
172         | I.FDirect f =>         | I.FDirect f =>
173              let val f' = regmap f              let val f' = regmap f
174              in  if f' < (32+8) then emit_FP f' else emit_operand(memReg opn) end              in  if f' < (32+8) then emit_FP f' else emit_operand(memReg opn) end
# Line 215  Line 217 
217          ``j<cond>, <stupidGas opnd>''          ``j<cond>, <stupidGas opnd>''
218    
219      | CALL of operand * C.cellset * C.cellset * Region.region      | CALL of operand * C.cellset * C.cellset * Region.region
220          ``call\t<stupidGas operand><region>''          ``call\t<stupidGas operand><region><
221              emit_defs(cellset1)><
222              emit_uses(cellset2)>''
223    
224      | RET of operand option      | RET of operand option
225          ``ret<case operand of NONE => ()          ``ret<case operand of NONE => ()

Legend:
Removed from v.429  
changed lines
  Added in v.498

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