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

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/cxx-util/gen-tys-and-ops.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/cxx-util/gen-tys-and-ops.sml

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

revision 3935, Mon Jun 6 10:28:36 2016 UTC revision 3936, Mon Jun 6 10:34:23 2016 UTC
# Line 120  Line 120 
120    
121      datatype operation = datatype CollectInfo.operation      datatype operation = datatype CollectInfo.operation
122    
123      (* builds AST for the statememt "return (x <= lo) ? lo : (hi < x) ? hi : x;" *)
124      fun mkClampStm (x, lo, hi) =      fun mkClampStm (x, lo, hi) =
125            mkReturn(            mkReturn(
126              CL.mkCond(CL.mkBinOp(x, CL.#<=, lo), lo,              CL.mkCond(CL.mkBinOp(x, CL.#<=, lo), lo,

Legend:
Removed from v.3935  
changed lines
  Added in v.3936

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