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 2669, Fri Jun 13 02:08:31 2014 UTC revision 2670, Wed Jul 9 21:54:54 2014 UTC
# Line 370  Line 370 
370                    in                    in
371                      (env, [Dst.S_LoadNrrd(t, ty, nrrd)])                      (env, [Dst.S_LoadNrrd(t, ty, nrrd)])
372                    end*)                    end*)
373    
374    
375    
376                | Src.OP(rator,args) =>let                | Src.OP(rator,args) =>let
377                      (*Target.isHwVec*)                      (*Target.isHwVec*)
378                  val args'=List.map (useVar env) args                  val args'=List.map (useVar env) args
# Line 388  Line 391 
391                              else assignExp (env, exp)                              else assignExp (env, exp)
392                          end                          end
393                      (*end case*))                      (*end case*))
394    
395                     end
396    
397                    (*
398                  | Src.OP(rator,args) =>let
399                    val argslists=List.map useVar  args
400                    fun mk([]::_, exps)= List.map rev exps
401                      | mk(argss, exps)=let
402                        val (args, rest)=List.foldr
403                            (fn (x::xs,(args, rest))=> (x::args',xs::rest)) ([],[]) args
404                        in mk (rest,E.Op(rest,args::exps))
405                   end                   end
406                    in
407                        (argslists,[])
408                    end
409    
410                    *)
411    
412                | Src.APPLY(f, args) =>                | Src.APPLY(f, args) =>
413                    bind (env, lhs, Dst.E_Apply(f, List.map (useVar env) args))                    bind (env, lhs, Dst.E_Apply(f, List.map (useVar env) args))

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

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