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

SCM Repository

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

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

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

revision 4013, Tue Jun 21 17:16:47 2016 UTC revision 4014, Tue Jun 21 18:58:13 2016 UTC
# Line 44  Line 44 
44            (* end case *))            (* end case *))
45    
46    (* get the image referenced on a RHS and its border control (if any) *)    (* get the image referenced on a RHS and its border control (if any) *)
47      fun getRHSImage x = (case getRHSOp x      fun getRHSImage x = (case SrcIR.Var.getDef x
48             of (SrcOp.BorderCtlDefault info, [img, v]) => (info, BCtl.Default v)             of SrcIR.GLOBAL gv => let
49              | (SrcOp.BorderCtlClamp info, [img]) => (info, BCtl.clamp)                  val SrcTy.ImageTy info = SrcIR.GlobalVar.ty gv
50              | (SrcOp.BorderCtlMirror info, [img]) => (info, BCtl.mirror)                  in
51              | (SrcOp.BorderCtlWrap info, [img]) => (info, BCtl.wrap)                    (info, BCtl.None)
52              | (SrcOp.LoadImage(SrcTy.ImageTy info, _), _) => (info, BCtl.None)                  end
53                | SrcIR.OP(SrcOp.BorderCtlDefault info, [img, v]) => (info, BCtl.Default v)
54                | SrcIR.OP(SrcOp.BorderCtlClamp info, [img]) => (info, BCtl.clamp)
55                | SrcIR.OP(SrcOp.BorderCtlMirror info, [img]) => (info, BCtl.mirror)
56                | SrcIR.OP(SrcOp.BorderCtlWrap info, [img]) => (info, BCtl.wrap)
57                | SrcIR.OP(SrcOp.LoadImage(SrcTy.ImageTy info, _), _) => (info, BCtl.None)
58              | _ => raise Fail "bogus image variable"              | _ => raise Fail "bogus image variable"
59            (* end case *))            (* end case *))
60    

Legend:
Removed from v.4013  
changed lines
  Added in v.4014

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