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

SCM Repository

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

Diff of /branches/vis15/src/compiler/low-to-tree/low-to-tree.sml

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

revision 3881, Thu May 19 18:54:02 2016 UTC revision 3882, Thu May 19 19:50:46 2016 UTC
# Line 296  Line 296 
296                | Op.RealToInt 1 => bindOp TOp.RealToInt                | Op.RealToInt 1 => bindOp TOp.RealToInt
297                | Op.RealToInt d => let                | Op.RealToInt d => let
298                    val layout = Env.layoutVec env d                    val layout = Env.layoutVec env d
299                      val (_, args) = vectorArg (env, hd args)
300                    in                    in
301                      case #pieces layout                      case #pieces layout
302                       of [w] => Env.TREE(T.E_Op(TOp.VToInt(d, w), List.map (singleArg env) args))                       of [w] => Env.TREE(T.E_Op(TOp.VToInt(d, w), args))
303                        | _ => raise Fail(concat["FIXME: RealToInt<", Int.toString d, ">"])                        | _ => raise Fail(concat["FIXME: RealToInt<", Int.toString d, ">"])
304                      (* end case *)                      (* end case *)
305                    end                    end

Legend:
Removed from v.3881  
changed lines
  Added in v.3882

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