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/compiler/MiscUtil/profile/sprof.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/MiscUtil/profile/sprof.sml

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

revision 419, Fri Sep 3 23:51:27 1999 UTC revision 592, Mon Apr 3 07:04:12 2000 UTC
# Line 25  Line 25 
25   *     we will merge in Chesakov's SProf in the future (ZHONG).   *     we will merge in Chesakov's SProf in the future (ZHONG).
26   *)   *)
27    
28  fun instrumDec (coreEnv,  fun instrumDec (env,
29          compInfo as {mkLvar, ...} : CompBasic.compInfo) source absyn = absyn          compInfo as {mkLvar, ...} : CompBasic.compInfo) source absyn = absyn
30    
31  (*  (*
# Line 33  Line 33 
33  infix -->  infix -->
34  val xsym = Symbol.varSymbol "x"  val xsym = Symbol.varSymbol "x"
35    
36  fun instrumDec coreEnv source absyn =  fun instrumDec env source absyn =
37   if not(!SMLofNJ.Internals.ProfControl.sprofiling) then absyn   if not(!SMLofNJ.Internals.ProfControl.sprofiling) then absyn
38   else let   else let
39    
# Line 196  Line 196 
196                                                  --> alpha)])}}                                                  --> alpha)])}}
197    
198  val V.VAL registerVar = Lookup.lookVal  val V.VAL registerVar = Lookup.lookVal
199      (coreEnv,      (env,
200       SP.SPATH [Symbol.strSymbol "Core", Symbol.varSymbol "profile_sregister"],       SP.SPATH [CoreSym.coreSym, Symbol.varSymbol "profile_sregister"],
201       fn _ => fn s => fn _ => err "222 in sprof")       fn _ => fn s => fn _ => err "222 in sprof")
202    
203  val absyn' =instrdec((0,0),nil,absyn)  val absyn' =instrdec((0,0),nil,absyn)

Legend:
Removed from v.419  
changed lines
  Added in v.592

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