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/gen-helpers.sml
ViewVC logotype

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

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

revision 2532, Wed Jan 29 22:33:05 2014 UTC revision 2533, Thu Jan 30 04:58:56 2014 UTC
# Line 57  Line 57 
57          (* end case *))          (* end case *))
58    
59    
60    fun getImage  x  = (case SrcIL.Var.binding x
61        of SrcIL.VB_RHS(SrcIL.OP(SrcOp.LoadImage(img),_))=> img
62        | vb => (raise Fail (String.concat["\n -- Not an image, ", SrcIL.Var.toString x," found ", SrcIL.vbToString vb,"\n"]))
63    (* end case *))
64    
65    
66    
67    
68    
69  fun printX(DstIL.ASSGN (x, DstIL.OP(opss,args)))= let  fun printX(DstIL.ASSGN (x, DstIL.OP(opss,args)))= let
# Line 115  Line 122 
122    
123    
124  fun getShape(params, id)=(case List.nth(params,id)  fun getShape(params, id)=(case List.nth(params,id)
125          of E.TEN(3,shape)=> DstTy.iVecTy(2) (*FIX HERE*)          of E.TEN(3,[shape])=> DstTy.iVecTy(shape) (*FIX HERE*)
126          | E.TEN(_,shape)=> DstTy.TensorTy shape          | E.TEN(_,shape)=> DstTy.TensorTy shape
127          |_=> raise Fail "NONE Tensor Param")          |_=> raise Fail "NONE Tensor Param")
128    

Legend:
Removed from v.2532  
changed lines
  Added in v.2533

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