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

SCM Repository

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

Diff of /branches/vis12/src/compiler/tree-il/low-to-tree-fn.sml

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

revision 1688, Wed Jan 25 13:36:13 2012 UTC revision 1689, Wed Jan 25 14:55:43 2012 UTC
# Line 278  Line 278 
278                    val inline = (case ty                    val inline = (case ty
279                           of Ty.SeqTy(Ty.IntTy, _) => true                           of Ty.SeqTy(Ty.IntTy, _) => true
280                            | Ty.TensorTy dd => Target.inlineCons(List.length dd)                            | Ty.TensorTy dd => Target.inlineCons(List.length dd)
281                              | Ty.SeqTy _ => false
282                              | Ty.DynSeqTy ty => false
283                              | _ => raise Fail(concat["invalid CONS<", Ty.toString ty, ">"])
284                          (* end case *))                          (* end case *))
285                    val exp = T.E_Cons(ty, List.map (useVar env) args)                    val exp = T.E_Cons(ty, List.map (useVar env) args)
286                    in                    in

Legend:
Removed from v.1688  
changed lines
  Added in v.1689

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