Diff of /sml/trunk/src/compiler/DebugProf/profile/btimp.sml

Parent Directory | Revision Log | Patch

	revision 1228, Thu May 23 19:05:40 2002 UTC	revision 1229, Fri May 31 21:10:34 2002 UTC
#	Line 18	Line 18
18	* author: Matthias Blume (blume@kurims.kyoto-u.ac.jp)	* author: Matthias Blume (blume@kurims.kyoto-u.ac.jp)
19	*)	*)
20	structure BTImp : sig	structure BTImp : sig
21		val install : bool ref -> unit
22	end = struct	end = struct
23
24	structure M = IntRedBlackMap	structure M = IntRedBlackMap
#	Line 184	Line 185
185	do_report	do_report
186	end	end
187
188	fun install () =	fun install enabled = let
189		fun mode x = !enabled before Option.app (fn new => enabled := new) x
190		in
191	SMLofNJ.Internals.BTrace.install	SMLofNJ.Internals.BTrace.install
192	{ corefns = { save = save,	{ corefns = { save = save,
193	push = push,	push = push,
#	Line 193	Line 196
196	reserve = reserve,	reserve = reserve,
197	register = register,	register = register,
198	report = report },	report = report },
199	reset = reset }	reset = reset,
200		mode = mode }
201	val _ = install ()	end
202	end	end

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

Legend: Removed from v.1228   changed lines   Added in v.1229

---

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