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

SCM Repository

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

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

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

revision 1524, Mon Oct 10 18:29:43 2011 UTC revision 1525, Thu Oct 13 15:57:40 2011 UTC
# Line 15  Line 15 
15      structure SrcIL = MidIL      structure SrcIL = MidIL
16      structure SrcOp = MidOps      structure SrcOp = MidOps
17      structure SrcSV = SrcIL.StateVar      structure SrcSV = SrcIL.StateVar
18        structure SrcTy = MidILTypes
19      structure VTbl = SrcIL.Var.Tbl      structure VTbl = SrcIL.Var.Tbl
20      structure DstIL = LowIL      structure DstIL = LowIL
21      structure DstTy = LowILTypes      structure DstTy = LowILTypes
# Line 357  Line 358 
358                | SrcOp.MulMatVec(d1, d2) => assign (DstOp.MulMatVec(d1, d2))                | SrcOp.MulMatVec(d1, d2) => assign (DstOp.MulMatVec(d1, d2))
359                | SrcOp.MulMatMat(d1, d2, d3) => assign (DstOp.MulMatMat(d1, d2, d3))                | SrcOp.MulMatMat(d1, d2, d3) => assign (DstOp.MulMatMat(d1, d2, d3))
360                | SrcOp.Cross => assign (DstOp.Cross)                | SrcOp.Cross => assign (DstOp.Cross)
               | SrcOp.Select(ty, i) => assign (DstOp.Select(ty, i))  
361                | SrcOp.Norm ty => assign (DstOp.Norm ty)                | SrcOp.Norm ty => assign (DstOp.Norm ty)
362                | SrcOp.Normalize d => assign (DstOp.Normalize d)                | SrcOp.Normalize d => assign (DstOp.Normalize d)
363                | SrcOp.Scale ty => assign (DstOp.Scale ty)                | SrcOp.Scale ty => assign (DstOp.Scale ty)
364                | SrcOp.Zero ty => assign (DstOp.Zero ty)                | SrcOp.Zero ty => assign (DstOp.Zero ty)
365                | SrcOp.PrincipleEvec ty => assign (DstOp.PrincipleEvec ty)                | SrcOp.PrincipleEvec ty => assign (DstOp.PrincipleEvec ty)
366    (* FIXME: at some stage, we want to switch to separate EigenVals/EigenVecs functions *)
367                  | SrcOp.Eigen2x2 => raise Fail "FIXME: Eigen2x2"
368                  | SrcOp.Eigen3x3 => raise Fail "FIXME: Eigen3x3"
369                | SrcOp.Identity n => assign (DstOp.Identity n)                | SrcOp.Identity n => assign (DstOp.Identity n)
370                | SrcOp.Trace d => expandTrace (y, d, args')                | SrcOp.Trace d => expandTrace (y, d, args')
371                  | SrcOp.Select(ty as SrcTy.TupleTy tys, i) => assign (DstOp.Select(ty, i))
372                  | SrcOp.Index(ty, i) => assign (DstOp.Index(ty, i))
373                | SrcOp.Subscript ty => assign (DstOp.Subscript ty)                | SrcOp.Subscript ty => assign (DstOp.Subscript ty)
374                | SrcOp.Ceiling d => assign (DstOp.Ceiling d)                | SrcOp.Ceiling d => assign (DstOp.Ceiling d)
375                | SrcOp.Floor d => assign (DstOp.Floor d)                | SrcOp.Floor d => assign (DstOp.Floor d)
# Line 382  Line 387 
387                | SrcOp.Input(ty, s, desc) => assign (DstOp.Input(ty, s, desc))                | SrcOp.Input(ty, s, desc) => assign (DstOp.Input(ty, s, desc))
388                | SrcOp.InputWithDefault(ty, s, desc) =>                | SrcOp.InputWithDefault(ty, s, desc) =>
389                    assign (DstOp.InputWithDefault(ty, s, desc))                    assign (DstOp.InputWithDefault(ty, s, desc))
390                  | rator => raise Fail("bogus operator " ^ SrcOp.toString rator)
391              (* end case *)              (* end case *)
392            end            end
393    

Legend:
Removed from v.1524  
changed lines
  Added in v.1525

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