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

SCM Repository

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

Diff of /branches/pure-cfg/src/compiler/codegen/codegen-fn.sml

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

revision 841, Mon Apr 18 17:58:45 2011 UTC revision 842, Mon Apr 18 17:58:57 2011 UTC
# Line 48  Line 48 
48                        val x' = T.Var.state(strand, x)                        val x' = T.Var.state(strand, x)
49                        in                        in
50                          case (isOut, !outputVar)                          case (isOut, !outputVar)
51                           of (true, NONE) => outputVar := SOME x'                           of (true, NONE) => outputVar := SOME(IL.Var.ty x, x')
52                            | (false, _) => ()                            | (false, _) => ()
53                            | _ => raise Fail("multiple outputs in " ^ Atom.toString name)                            | _ => raise Fail("multiple outputs in " ^ Atom.toString name)
54                          (* end case *);                          (* end case *);
# Line 65  Line 65 
65              T.Strand.init (strand, params', T.Tr.block (env, stateInit));              T.Strand.init (strand, params', T.Tr.block (env, stateInit));
66              case !outputVar              case !outputVar
67               of NONE => raise Fail("no output specified for strand " ^ Atom.toString name)               of NONE => raise Fail("no output specified for strand " ^ Atom.toString name)
68                | SOME x => T.Strand.output (strand, x)                | SOME(ty, x) => T.Strand.output (strand, ty, x)
69              (* end case *);              (* end case *);
70              List.app (trMethod (strand, List.map #2 state, env)) methods              List.app (trMethod (strand, List.map #2 state, env)) methods
71            end            end

Legend:
Removed from v.841  
changed lines
  Added in v.842

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