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

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/target-cpu/gen-global-update.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/target-cpu/gen-global-update.sml

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

revision 4587, Sun Sep 18 19:58:38 2016 UTC revision 4588, Mon Sep 19 02:13:20 2016 UTC
# Line 23  Line 23 
23      fun mkReduce (red, e1, e2) = (case red      fun mkReduce (red, e1, e2) = (case red
24             of R.ALL => CL.mkBinOp(e1, CL.#&&, e2)             of R.ALL => CL.mkBinOp(e1, CL.#&&, e2)
25              | R.EXISTS => CL.mkBinOp(e1, CL.#||, e2)              | R.EXISTS => CL.mkBinOp(e1, CL.#||, e2)
26              | R.MAX => CL.mkApply("std::max", [e1, e2])              | R.IMAX => CL.mkApply("std::max", [e1, e2])
27              | R.MIN => CL.mkApply("std::min", [e1, e2])              | R.RMAX => CL.mkApply("std::max", [e1, e2])
28              | R.PRODUCT => CL.mkBinOp(e1, CL.#*, e2)              | R.IMIN => CL.mkApply("std::min", [e1, e2])
29              | R.SUM => CL.mkBinOp(e1, CL.#+, e2)              | R.RMIN => CL.mkApply("std::min", [e1, e2])
30                | R.IPRODUCT => CL.mkBinOp(e1, CL.#*, e2)
31                | R.RPRODUCT => CL.mkBinOp(e1, CL.#*, e2)
32                | R.ISUM => CL.mkBinOp(e1, CL.#+, e2)
33                | R.RSUM => CL.mkBinOp(e1, CL.#+, e2)
34            (* end case *))            (* end case *))
35    
36    (* code generation for sequential map-reduce *)    (* code generation for sequential map-reduce *)

Legend:
Removed from v.4587  
changed lines
  Added in v.4588

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