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

SCM Repository

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

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

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

revision 744, Wed Apr 6 13:16:05 2011 UTC revision 745, Wed Apr 6 13:46:25 2011 UTC
# Line 159  Line 159 
159                  in                  in
160                    (m', stms)                    (m', stms)
161                  end                  end
162            val evalCode = let            val evalCode = (case coeffs
163                  val a0::r = coeffs                   of [a0] => (* constant function *)
164                          [(result, DstIL.VAR a0)]
165                      | a0::r => let
166                  val (m, stms) = eval (1, r)                  val (m, stms) = eval (1, r)
167                  in                  in
168                    List.rev ((result, DstIL.OP(DstOp.Add ty, [a0, m]))::stms)                    List.rev ((result, DstIL.OP(DstOp.Add ty, [a0, m]))::stms)
169                  end                  end
170                    (* end case *))
171            in            in
172              coeffVecs @ evalCode              coeffVecs @ evalCode
173            end            end

Legend:
Removed from v.744  
changed lines
  Added in v.745

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