Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Diff of /branches/charisee/src/compiler/mid-to-low/mid-to-low.sml
ViewVC logotype

Diff of /branches/charisee/src/compiler/mid-to-low/mid-to-low.sml

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

revision 465, Thu Oct 28 22:17:34 2010 UTC revision 467, Fri Oct 29 13:34:08 2010 UTC
# Line 143  Line 143 
143                  in                  in
144                    (m, [(m, DstIL.OP(DstOp.Mul ty, [x, coeff]))])                    (m, [(m, DstIL.OP(DstOp.Mul ty, [x, coeff]))])
145                  end                  end
146              | eval (i, coeff:r) = let              | eval (i, coeff::r) = let
147                  val (m, stms) = eval(i+1, r)                  val (m, stms) = eval(i+1, r)
148                  val s = sTmp i                  val s = sTmp i
149                  val m' = mTmp i                  val m' = pTmp i
150                  val stms =                  val stms =
151                        (m', DstIL.OP(DstOp.Mul ty, [x, s])) ::                        (m', DstIL.OP(DstOp.Mul ty, [x, s])) ::
152                        (s, DstIL.OP(DstOp.Add ty, [coeff, m])) ::                        (s, DstIL.OP(DstOp.Add ty, [coeff, m])) ::

Legend:
Removed from v.465  
changed lines
  Added in v.467

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