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 1622, Fri Nov 11 20:07:50 2011 UTC revision 1623, Fri Nov 11 21:58:50 2011 UTC
# Line 266  Line 266 
266                | SrcOp.Input(ty, s, desc) => assign (DstOp.Input(cvtTy ty, s, desc))                | SrcOp.Input(ty, s, desc) => assign (DstOp.Input(cvtTy ty, s, desc))
267                | SrcOp.InputWithDefault(ty, s, desc) =>                | SrcOp.InputWithDefault(ty, s, desc) =>
268                    assign (DstOp.InputWithDefault(cvtTy ty, s, desc))                    assign (DstOp.InputWithDefault(cvtTy ty, s, desc))
269                  | SrcOp.ToString ty => assign (DstOp.ToString(cvtTy ty))
270                | rator => raise Fail("bogus operator " ^ SrcOp.toString rator)                | rator => raise Fail("bogus operator " ^ SrcOp.toString rator)
271              (* end case *)              (* end case *)
272            end            end
# Line 292  Line 293 
293            val rator' = (case rator            val rator' = (case rator
294                   of SrcOp.Eigen2x2 => DstOp.EigenVecs2x2                   of SrcOp.Eigen2x2 => DstOp.EigenVecs2x2
295                    | SrcOp.Eigen3x3 => DstOp.EigenVecs3x3                    | SrcOp.Eigen3x3 => DstOp.EigenVecs3x3
296                      | SrcOp.Print n => DstOp.Print n
297                    | _ => raise Fail("bogus operator " ^ SrcOp.toString rator)                    | _ => raise Fail("bogus operator " ^ SrcOp.toString rator)
298                  (* end case *))                  (* end case *))
299            val xs' = Env.renameList(env, xs)            val xs' = Env.renameList(env, xs)

Legend:
Removed from v.1622  
changed lines
  Added in v.1623

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