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

SCM Repository

[diderot] Diff of /branches/pure-cfg/src/compiler/high-to-mid/high-to-mid.sml
ViewVC logotype

Diff of /branches/pure-cfg/src/compiler/high-to-mid/high-to-mid.sml

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

revision 711, Wed Mar 30 17:07:20 2011 UTC revision 712, Wed Mar 30 22:22:36 2011 UTC
# Line 126  Line 126 
126                | SrcOp.CL => assign DstOp.CL                | SrcOp.CL => assign DstOp.CL
127                | SrcOp.PrincipleEvec ty => assign (DstOp.PrincipleEvec(cvtTy ty))                | SrcOp.PrincipleEvec ty => assign (DstOp.PrincipleEvec(cvtTy ty))
128                | SrcOp.Trace(SrcTy.TensorTy[d, _]) => assign (DstOp.Trace d)                | SrcOp.Trace(SrcTy.TensorTy[d, _]) => assign (DstOp.Trace d)
129    (* FIXME: tensors get flattened into slow-to-fast order *)
130                | SrcOp.Subscript ty => assign (DstOp.Subscript(cvtTy ty))                | SrcOp.Subscript ty => assign (DstOp.Subscript(cvtTy ty))
131                  | SrcOp.Slice(ty, mask) => raise Fail "FIXME: Slice"
132                | SrcOp.Max => assign DstOp.Max                | SrcOp.Max => assign DstOp.Max
133                | SrcOp.Min => assign DstOp.Min                | SrcOp.Min => assign DstOp.Min
134                | SrcOp.Sin => assign DstOp.Sin                | SrcOp.Sin => assign DstOp.Sin
# Line 168  Line 170 
170                | SrcIL.OP(SrcOp.Field _, args) => []                | SrcIL.OP(SrcOp.Field _, args) => []
171                | SrcIL.OP(rator, args) => expandOp (env, rename (env, y), rator, args)                | SrcIL.OP(rator, args) => expandOp (env, rename (env, y), rator, args)
172                | SrcIL.APPLY(f, args) => assign(DstIL.APPLY(f, renameList(env, args)))                | SrcIL.APPLY(f, args) => assign(DstIL.APPLY(f, renameList(env, args)))
173    (* FIXME: flatten cons into slow-to-fast index order *)
174                | SrcIL.CONS args => assign (DstIL.CONS(renameList(env, args)))                | SrcIL.CONS args => assign (DstIL.CONS(renameList(env, args)))
175              (* end case *)              (* end case *)
176            end            end

Legend:
Removed from v.711  
changed lines
  Added in v.712

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