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

SCM Repository

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

Diff of /trunk/src/compiler/mid-to-low/mid-to-low.sml

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

revision 466, Thu Oct 28 23:00:52 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.466  
changed lines
  Added in v.467
root@smlnj-gforge.cs.uchicago.edu
 ViewVC Help
Powered by ViewVC 1.0.0  
Powered By FusionForge