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

SCM Repository

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

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

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

revision 2055, Tue Oct 23 15:22:30 2012 UTC revision 2056, Wed Oct 24 12:46:03 2012 UTC
# Line 282  Line 282 
282                | SrcOp.LoadSeq(ty, nrrd) => assign (DstOp.LoadSeq(cvtTy ty, nrrd))                | SrcOp.LoadSeq(ty, nrrd) => assign (DstOp.LoadSeq(cvtTy ty, nrrd))
283                | SrcOp.LoadImage(ty, nrrd, info) =>                | SrcOp.LoadImage(ty, nrrd, info) =>
284                    assign (DstOp.LoadImage(DstTy.ImageTy info, nrrd, info))                    assign (DstOp.LoadImage(DstTy.ImageTy info, nrrd, info))
285                | SrcOp.Input inp => assign (DstOp.Input(Inputs.map cvtTy inp))                | SrcOp.Input inp => (case Inputs.imageInfo inp
286                       of SOME info => let
287                            val Inputs.INP{name, desc, init, ...} = inp
288                            in
289                              assign (DstOp.Input(Inputs.INP{
290                                  ty = DstTy.ImageTy info,
291                                  name = name, desc = desc,
292                                  init = init
293                                }))
294                            end
295                        | _ => assign (DstOp.Input(Inputs.map cvtTy inp))
296                      (* end case *))
297                | rator => raise Fail("bogus operator " ^ SrcOp.toString rator)                | rator => raise Fail("bogus operator " ^ SrcOp.toString rator)
298              (* end case *)              (* end case *)
299            end            end
300    handle ex => (print(concat["error converting ", SrcOp.toString rator, "\n"]); raise ex)
301    
302    (* expand a SrcIL assignment to a list of DstIL assignments *)    (* expand a SrcIL assignment to a list of DstIL assignments *)
303      fun expand (env, (y, rhs)) = let      fun expand (env, (y, rhs)) = let

Legend:
Removed from v.2055  
changed lines
  Added in v.2056

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