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

SCM Repository

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

Diff of /branches/vis12/src/compiler/high-il/normalize.sml

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

revision 2983, Fri Mar 6 23:16:15 2015 UTC revision 2984, Sat Mar 7 00:05:29 2015 UTC
# Line 73  Line 73 
73     * override earlier controls.     * override earlier controls.
74     *)     *)
75      fun getControledImage img = (case getRHS img      fun getControledImage img = (case getRHS img
76             of SOME(Op.BorderCtlValue _, [img, _]) => SOME img             of SOME(Op.BorderCtlDefault _, [img, _]) => SOME img
77              | SOME(Op.BorderCtlClamp _, [img]) => SOME img              | SOME(Op.BorderCtlClamp _, [img]) => SOME img
78              | SOME(Op.BorderCtlMirror _, [img]) => SOME img              | SOME(Op.BorderCtlMirror _, [img]) => SOME img
79              | SOME(Op.BorderCtlWrap _, [img]) => SOME img              | SOME(Op.BorderCtlWrap _, [img]) => SOME img
# Line 340  Line 340 
340                    | SOME(Op.DiffField, _) => raise Fail "curl of del"                    | SOME(Op.DiffField, _) => raise Fail "curl of del"
341                    | _ => NONE                    | _ => NONE
342                  (* end case *))                  (* end case *))
343              | (Op.BorderCtlValue info, [img, v]) => (case getControledImage img              | (Op.BorderCtlDefault info, [img, v]) => (case getControledImage img
344                   of SOME img' => (                   of SOME img' => (
345                        ST.tick cntBorderBoder;                        ST.tick cntBorderBoder;
346                        decUse img;                        decUse img;
347                        SOME[(lhs, IL.OP(Op.BorderCtlValue info, [img', v]))])                        SOME[(lhs, IL.OP(Op.BorderCtlDefault info, [img', v]))])
348                    | NONE => NONE                    | NONE => NONE
349                  (* end case *))                  (* end case *))
350              | (Op.BorderCtlClamp info, [img]) => (case getControledImage img              | (Op.BorderCtlClamp info, [img]) => (case getControledImage img

Legend:
Removed from v.2983  
changed lines
  Added in v.2984

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