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

SCM Repository

[diderot] Diff of /branches/charisee/src/compiler/mid-to-low/step2.sml
ViewVC logotype

Diff of /branches/charisee/src/compiler/mid-to-low/step2.sml

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

revision 2829, Wed Nov 12 23:24:38 2014 UTC revision 2838, Tue Nov 25 03:40:24 2014 UTC
# Line 29  Line 29 
29      val ty=DstTy.TensorTy shape      val ty=DstTy.TensorTy shape
30      val a=DstIL.Var.new("Cons" ,ty)      val a=DstIL.Var.new("Cons" ,ty)
31      val code=DstIL.ASSGN (a,DstIL.CONS(ty ,rest))      val code=DstIL.ASSGN (a,DstIL.CONS(ty ,rest))
32      val _=print("###"^tS.toStringAll(ty,code))      (*val _=print("###"^tS.toStringAll(ty,code))*)
33      in (a, [code])      in (a, [code])
34      end      end
35    
# Line 135  Line 135 
135          val (vD,D)= mkSubSca(lhs,[vA,vB])          val (vD,D)= mkSubSca(lhs,[vA,vB])
136          in (vD, A@B@D) end          in (vD, A@B@D) end
137      (*end case*))      (*end case*))
 (*  
 fun printMapp mapp=(case (lookup 0 mapp)  
 of NONE=>print(String.concat["\n No zero"])  
     |SOME s => print(String.concat["\n Found 0 =>",Int.toString(s)])  
 (*end case*))  
138    
139  *)  
 (*  val info=(params,args)*)  
140    
141  (* general expressions-removes zeros*)  (* general expressions-removes zeros*)
142  fun generalfn(dict,(body,origargs,info as (lhs,_,_)))=let  fun generalfn(dict,(body,origargs,info as (lhs,_,_)))=let

Legend:
Removed from v.2829  
changed lines
  Added in v.2838

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