Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/src/MLRISC/flowgraph/cfg.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/flowgraph/cfg.sml

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

revision 933, Wed Sep 19 19:31:19 2001 UTC revision 959, Fri Oct 12 21:21:41 2001 UTC
# Line 101  Line 101 
101            val l = Label.anon ()            val l = Label.anon ()
102            in            in
103              labels := [l];              labels := [l];
             data := !data @ [LABEL l];  (* JHR *)  
104              l              l
105            end            end
106      fun insns(BLOCK{insns, ...}) = insns      fun insns(BLOCK{insns, ...}) = insns
# Line 177  Line 176 
176         in  emitHeader S block;         in  emitHeader S block;
177             app (fn PSEUDO p => pseudoOp p             app (fn PSEUDO p => pseudoOp p
178                   | LABEL l  => defineLabel l) (!data);                   | LABEL l  => defineLabel l) (!data);
179  (*           app defineLabel (!labels); *) (* JHR *)             app defineLabel (!labels);
180             if outline then () else app emit (rev (!insns));             if outline then () else app emit (rev (!insns));
181             emitFooter S block             emitFooter S block
182         end         end

Legend:
Removed from v.933  
changed lines
  Added in v.959

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