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/sparc/instructions/sparccomp-instr-ext.sml
ViewVC logotype

Diff of /MLRISC/trunk/sparc/instructions/sparccomp-instr-ext.sml

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

revision 3184, Tue Aug 5 22:36:49 2008 UTC revision 3185, Tue Aug 5 22:40:13 2008 UTC
# Line 47  Line 47 
47           (I.instruction, I.C.cellset, I.operand, I.addressing_mode, CFG.cfg) TS.reducer           (I.instruction, I.C.cellset, I.operand, I.addressing_mode, CFG.cfg) TS.reducer
48    
49      fun compileSext reducer { stm: stm, an: T.an list } = let      fun compileSext reducer { stm: stm, an: T.an list } = let
50          val TS.REDUCER { emit, ... } = reducer          val TS.REDUCER { emit, operand, reduceOperand, ... } = reducer
51      in      in
52          case stm of X.UNIMP i => emit (I.unimp {const22 = i}, an)          case stm
53             of X.UNIMP i => emit (I.unimp {const22 = i}, an)
54              | X.SAVE (r, i, d) => emit(I.save{r=reduceOperand(operand r), i=operand i, d=reduceOperand(operand d)}, an)
55              | X.RESTORE (r, i, d) => emit(I.restore{r=reduceOperand(operand r), i=operand i, d=reduceOperand(operand d)}, an)
56      end      end
57  end  end

Legend:
Removed from v.3184  
changed lines
  Added in v.3185

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