Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Tracker SCM

SCM Repository

[smlnj] Diff of /sml/trunk/src/compiler/Basics/stats/stats.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/Basics/stats/stats.sml

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

revision 1333, Thu May 22 17:12:13 2003 UTC revision 1334, Thu May 22 22:46:30 2003 UTC
# Line 72  Line 72 
72                    allStats := insert(p,!allStats); p                    allStats := insert(p,!allStats); p
73                  end                  end
74            (* end case *))            (* end case *))
75      fun addStat(STAT{tot=[c],...}) n = addCounter c n      fun addStat(STAT{tot = (c :: _),...}) n = addCounter c n
76          | addStat(STAT{tot = [], ... }) _ = ()
77    
78      val say = Control_Print.say      val say = Control_Print.say
79      val flush = Control_Print.flush      val flush = Control_Print.flush

Legend:
Removed from v.1333  
changed lines
  Added in v.1334

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