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

SCM Repository

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

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

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

revision 2668, Thu Jun 12 03:29:04 2014 UTC revision 2669, Fri Jun 13 02:08:31 2014 UTC
# Line 274  Line 274 
274              (* end case *)              (* end case *)
275            end            end
276    
277        (*HERE- since we are using arrays, nothing can be inline
278        Fix later if it needs to be fixed*)
279    (* is a CONS inline? *)    (* is a CONS inline? *)
280      fun isInlineCons ty = (case ty      fun isInlineCons ty = (*(case ty
281             of Ty.SeqTy(Ty.IntTy, _) => true             of Ty.SeqTy(Ty.IntTy, _) => true
282              | Ty.TensorTy dd => Target.inlineCons(List.length dd)              | Ty.TensorTy dd => Target.inlineCons(List.length dd)
283              | Ty.SeqTy _ => false              | Ty.SeqTy _ => false
284     (*CCCC-? DO we have this type*)     (*CCCC-? DO we have this type*)
285             (* | Ty.DynSeqTy ty => false*)             (* | Ty.DynSeqTy ty => false*)
286              | _ => raise Fail(concat["invalid CONS<", Ty.toString ty, ">"])              | _ => raise Fail(concat["invalid CONS<", Ty.toString ty, ">"])
287            (* end case *))            (* end case *))*) false
288    
289    (* translate a LowIL assignment to a list of zero or more target statements in reverse    (* translate a LowIL assignment to a list of zero or more target statements in reverse
290     * order.     * order.

Legend:
Removed from v.2668  
changed lines
  Added in v.2669

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