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

SCM Repository

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

Diff of /branches/vis15/src/compiler/high-to-mid/high-to-mid.sml

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

revision 3736, Fri Apr 8 19:31:05 2016 UTC revision 3739, Sat Apr 9 01:36:37 2016 UTC
# Line 96  Line 96 
96                    val t = DstIR.Var.new("one", DstTy.realTy)                    val t = DstIR.Var.new("one", DstTy.realTy)
97                    in [                    in [
98                      (t, DstIR.LIT(Literal.Real(RealLit.one))),                      (t, DstIR.LIT(Literal.Real(RealLit.one))),
99  (* FIXME: shouldn't be IDiv; should be real division! *)                      (y, DstIR.EINAPP(MkOperators.divRR, [t, x]))
                     (y, DstIR.OP(DstOp.IDiv, [t, x]))  
100                    ] end                    ] end
101  (* FIXME: shouldn't be IMul; should be real multiplication! *)                | SOME 2 => [(y, DstIR.EINAPP(MkOperators.mulRR, [x, x]))]
               | SOME 2 => [(y, DstIR.OP(DstOp.IMul, [x, x]))]  
102  (* FIXME: expand into multiplications  (* FIXME: expand into multiplications
103                | SOME n =>                | SOME n =>
104  *) | SOME _ => pow()  *) | SOME _ => pow()

Legend:
Removed from v.3736  
changed lines
  Added in v.3739

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