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

SCM Repository

[diderot] Diff of /branches/pure-cfg/src/compiler/c-target/c-target.sml
ViewVC logotype

Diff of /branches/pure-cfg/src/compiler/c-target/c-target.sml

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

revision 1156, Sun May 8 21:20:52 2011 UTC revision 1157, Mon May 9 15:47:35 2011 UTC
# Line 75  Line 75 
75                  (fn (x, e, stms) => ToC.trAssign(env, x, e)@stms)                  (fn (x, e, stms) => ToC.trAssign(env, x, e)@stms)
76                    [stm]                    [stm]
77                      (stateVars, args)                      (stateVars, args)
78                ) handle ListPair.UnequalLengths =>                ) handle ListPair.UnequalLengths => (
79                  raise Fail(concat["saveState ", cxt, ": length mismatch"])                  print(concat["saveState ", cxt, ": length mismatch; ", Int.toString(List.length args), " args\n"]);
80                    raise Fail(concat["saveState ", cxt, ": length mismatch"]))
81          fun block (ENV{vMap, scope, ...}, blk) = (case scope          fun block (ENV{vMap, scope, ...}, blk) = (case scope
82                 of StrandScope stateVars => ToC.trBlock (vMap, saveState "StrandScope" stateVars, blk)                 of StrandScope stateVars => ToC.trBlock (vMap, saveState "StrandScope" stateVars, blk)
83                  | MethodScope stateVars => ToC.trBlock (vMap, saveState "MethodScope" stateVars, blk)                  | MethodScope stateVars => ToC.trBlock (vMap, saveState "MethodScope" stateVars, blk)

Legend:
Removed from v.1156  
changed lines
  Added in v.1157

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