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/system/Basis/Implementation/NJ/prof-control.sml
ViewVC logotype

Diff of /sml/trunk/src/system/Basis/Implementation/NJ/prof-control.sml

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

revision 417, Fri Sep 3 23:51:27 1999 UTC revision 498, Tue Dec 7 15:44:50 1999 UTC
# Line 105  Line 105 
105            end            end
106    
107      fun register names = let      fun register names = let
108            val ref (list as UNIT{base,size,...}::_) = units          val list = !units
109            val UNIT { base, size, ... } = List.hd list
110            val count = newlines names            val count = newlines names
111            val a = Array.array(count,0)            val a = Array.array(count,0)
112            val b = base+size            val b = base+size

Legend:
Removed from v.417  
changed lines
  Added in v.498

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