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

SCM Repository

[diderot] Diff of /branches/charisee_dev/src/compiler/c-util/tree-to-c-fn.sml
ViewVC logotype

Diff of /branches/charisee_dev/src/compiler/c-util/tree-to-c-fn.sml

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

revision 3282, Tue Oct 13 19:46:34 2015 UTC revision 3283, Wed Oct 14 01:58:37 2015 UTC
# Line 256  Line 256 
256    
257              | (Op.Subscript ty0, [a, CL.E_Int(ix,_), CL.E_Int(jx,_)] ) =>              | (Op.Subscript ty0, [a, CL.E_Int(ix,_), CL.E_Int(jx,_)] ) =>
258                  indexTensor (Op.IndexTensor(false,Ty.indexTy[IntInf.toInt ix,IntInf.toInt jx] ,ty0),[a])                  indexTensor (Op.IndexTensor(false,Ty.indexTy[IntInf.toInt ix,IntInf.toInt jx] ,ty0),[a])
259                | (Op.Subscript ty0, [a, CL.E_Int(ix,_), CL.E_Int(jx,_),CL.E_Int(kx,_)] ) =>
260                    indexTensor (Op.IndexTensor(false,Ty.indexTy[IntInf.toInt ix,IntInf.toInt jx,IntInf.toInt kx] ,ty0),[a])
261              | (Op.Subscript ty, t::(ixs as _::_)) =>              | (Op.Subscript ty, t::(ixs as _::_)) =>
262                  raise Fail(concat["Subscript<", Ty.toString ty, "> unsupported"])                  raise Fail(concat["Subscript<", Ty.toString ty, "> unsupported"])
263              | (Op.Ceiling d, args) => CL.mkApply(N.addTySuffix("ceil", d), args)              | (Op.Ceiling d, args) => CL.mkApply(N.addTySuffix("ceil", d), args)

Legend:
Removed from v.3282  
changed lines
  Added in v.3283

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