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

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/translate/analyze-simple.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/translate/analyze-simple.sml

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

revision 4042, Fri Jun 24 19:04:21 2016 UTC revision 4043, Sun Jun 26 14:00:38 2016 UTC
# Line 119  Line 119 
119            val u = (case e            val u = (case e
120                   of S.E_Var x => [x]                   of S.E_Var x => [x]
121                    | S.E_Lit _ => []                    | S.E_Lit _ => []
122                      | S.E_Kernel _ => []
123                    | S.E_Select _ => raise Fail "unexpected E_Select" (* should be handled by doStm *)                    | S.E_Select _ => raise Fail "unexpected E_Select" (* should be handled by doStm *)
124                    | S.E_Apply _ => raise Fail "unexpected E_Apply"                    | S.E_Apply _ => raise Fail "unexpected E_Apply"
125                    | S.E_Prim(_, _, xs, _) => xs                    | S.E_Prim(_, _, xs, _) => xs
# Line 128  Line 129 
129                    | S.E_Coerce{x, ...} => [x]                    | S.E_Coerce{x, ...} => [x]
130                    | S.E_LoadSeq _ => []                    | S.E_LoadSeq _ => []
131                    | S.E_LoadImage _ => []                    | S.E_LoadImage _ => []
132                      | S.E_InsideImage(pos, img, _) => [pos, img]
133                  (* end case *))                  (* end case *))
134            in            in
135              addList (u, vs)              addList (u, vs)

Legend:
Removed from v.4042  
changed lines
  Added in v.4043

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