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/tprof.sml
ViewVC logotype

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

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

revision 591, Mon Apr 3 01:19:20 2000 UTC revision 592, Mon Apr 3 07:04:12 2000 UTC
# Line 83  Line 83 
83  fun clean (path as name::names) = if S.eq(name,anonSym) then names else path  fun clean (path as name::names) = if S.eq(name,anonSym) then names else path
84    | clean x = x    | clean x = x
85    
86  fun instrumDec' (coreEnv, compInfo as {mkLvar=mkv, ...} : EU.compInfo) absyn =  fun instrumDec' (env, compInfo as {mkLvar=mkv, ...} : EU.compInfo) absyn =
87   let val countarrayvar = tmpvar("countarray",CONty(arrayTycon,[intTy]),mkv)   let val countarrayvar = tmpvar("countarray",CONty(arrayTycon,[intTy]),mkv)
88       val countarray = varexp countarrayvar       val countarray = varexp countarrayvar
89    
# Line 95  Line 95 
95    
96       val register =       val register =
97           case Lookup.lookVal           case Lookup.lookVal
98                    (coreEnv,                    (env,
99                     SP.SPATH [S.strSymbol "Core",                     SP.SPATH [CoreSym.coreSym,
100                               S.varSymbol "profile_register"],                               S.varSymbol "profile_register"],
101                     fn _ => fn s => fn _ => bug "222 in prof") of                     fn _ => fn s => fn _ => bug "222 in prof") of
102               V.VAL r => r               V.VAL r => r
# Line 318  Line 318 
318    
319                             val exnMatch =                             val exnMatch =
320                                 case Lookup.lookVal                                 case Lookup.lookVal
321                                          (coreEnv,                                          (env,
322                                           SP.SPATH [S.strSymbol "Core",                                           SP.SPATH [CoreSym.coreSym,
323                                                     S.varSymbol "Match"],                                                     S.varSymbol "Match"],
324                                           fn _ => fn s => fn _ =>                                           fn _ => fn s => fn _ =>
325                                                              bug "250 in prof")                                                              bug "250 in prof")
# Line 371  Line 371 
371    in absyn2    in absyn2
372   end   end
373    
374  fun instrumDec (coreEnv, compInfo) absyn =  fun instrumDec (env, compInfo) absyn =
375        if !SMLofNJ.Internals.ProfControl.profMode        if !SMLofNJ.Internals.ProfControl.profMode
376          then instrumDec' (coreEnv, compInfo) absyn          then instrumDec' (env, compInfo) absyn
377          else absyn          else absyn
378    
379  end (* local *)  end (* local *)

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

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