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

SCM Repository

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

Diff of /branches/vis12/src/compiler/translate/translate.sml

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

revision 2025, Wed Oct 10 17:17:11 2012 UTC revision 2026, Thu Oct 11 00:26:15 2012 UTC
# Line 221  Line 221 
221                        [IL.ASSGN(lhs, IL.VAR(lookup env x))]                        [IL.ASSGN(lhs, IL.VAR(lookup env x))]
222                    | _ => raise Fail "unsupported type coercion"                    | _ => raise Fail "unsupported type coercion"
223                  (* end case *))                  (* end case *))
224                | S.E_LoadSeq(ty, nrrd) => raise Fail "FIXME"
225                | S.E_LoadImage(ty, nrrd, info) => raise Fail "FIXME"
226            (* end case *))            (* end case *))
227    
228    (* add nodes to save the strand state, followed by an exit node *)    (* add nodes to save the strand state, followed by an exit node *)
# Line 232  Line 234 
234                ListPair.foldlEq save IL.CFG.empty (dstState, stateOut),                ListPair.foldlEq save IL.CFG.empty (dstState, stateOut),
235                exit)                exit)
236            end            end
237  handle ex => raise ex  (*DEBUG*)handle ex => raise ex
238    
239      fun cvtBlock (state, env : env, joinStk, S.Block stms) = let      fun cvtBlock (state, env : env, joinStk, S.Block stms) = let
240            fun cvt (env : env, cfg, []) = (cfg, env)            fun cvt (env : env, cfg, []) = (cfg, env)

Legend:
Removed from v.2025  
changed lines
  Added in v.2026

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