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/tree-to-cxx.sml
ViewVC logotype

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

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

revision 4347, Tue Aug 2 15:32:27 2016 UTC revision 4348, Tue Aug 2 15:48:33 2016 UTC
# Line 412  Line 412 
412                                        [CL.mkUnOp(CL.%++, CL.mkVar ix)],                                        [CL.mkUnOp(CL.%++, CL.mkVar ix)],
413                                        CL.prependStm(defx, blk'))                                        CL.prependStm(defx, blk'))
414                                    end                                    end
415                                | Ty.SeqTy(_, NONE) => CL.mkFor(                                | Ty.SeqTy(_, NONE) => let
416                                    CL.T_Named "auto", [( x', CL.mkDispatch(seq, "begin", []))],                                    val ix = freshVar "it"
417                                    CL.mkBinOp(CL.mkVar x', CL.#!=, CL.mkDispatch(seq, "end", [])),                                    val defx = CL.mkDeclInit(CL.T_Named "auto", x',
418                                    [CL.mkUnOp(CL.%++, CL.mkVar x')],                                          CL.mkUnOp(CL.%*, CL.mkVar ix))
419                                    blk')                                    in
420                                        CL.mkFor(
421                                          CL.T_Named "auto", [(ix, CL.mkDispatch(seq, "cbegin", []))],
422                                          CL.mkBinOp(CL.mkVar ix, CL.#!=, CL.mkDispatch(seq, "cend", [])),
423                                          [CL.mkUnOp(CL.%++, CL.mkVar ix)],
424                                          CL.prependStm(defx, blk'))
425                                      end
426                                | _ => raise Fail "impossible"                                | _ => raise Fail "impossible"
427                              (* end case *))                              (* end case *))
428                        in                        in

Legend:
Removed from v.4347  
changed lines
  Added in v.4348

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