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

SCM Repository

[diderot] Diff of /branches/vis12/src/compiler/simplify/eval.sml
ViewVC logotype

Diff of /branches/vis12/src/compiler/simplify/eval.sml

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

revision 1140, Fri May 6 14:16:00 2011 UTC revision 1301, Thu Jun 9 23:58:40 2011 UTC
# Line 217  Line 217 
217                        end                        end
218                    | _ => NONE                    | _ => NONE
219                  (* end case *))                  (* end case *))
220              | S.E_Input(ty, name, optDefault) => raise Fail "impossible"              | S.E_Input(ty, name, desc, optDefault) => raise Fail "impossible"
221              | S.E_LoadImage info => SOME(ImgV info)              | S.E_LoadImage info => SOME(ImgV info)
222            (* end case *))            (* end case *))
223    
# Line 267  Line 267 
267                  exception Done of value VMap.map                  exception Done of value VMap.map
268                  fun evalStm (stm, env) = (case stm                  fun evalStm (stm, env) = (case stm
269                         of S.S_Var _ => raise Fail "unexpected variable decl"                         of S.S_Var _ => raise Fail "unexpected variable decl"
270                          | S.S_Assign(x, S.E_Input(ty, name, optDefault)) =>                          | S.S_Assign(x, S.E_Input(ty, name, desc, optDefault)) =>
271                              if VSet.member(statics, x)                              if VSet.member(statics, x)
272                                then let                                then let
273                                  val optDefault = Option.map (evalVar env) optDefault                                  val optDefault = Option.map (evalVar env) optDefault

Legend:
Removed from v.1140  
changed lines
  Added in v.1301

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