Annotation of /sml/trunk/src/compiler/TopLevel/viscomp/generic-vc.sml

Parent Directory | Revision Log

---

Revision 165 - (view) (download)

1 :	monnier	165	(*
2 :			* Copyright 1998 by Bell Laboratories
3 :			* generic-vc.sml -- machine independent part of viscomp
4 :			*
5 :			* by Matthias Blume (10/1998)
6 :			*)
7 :
8 :			structure GenericVC : GENERIC_VC = struct
9 :			structure Stats = Stats
10 :			structure Control = Control
11 :			structure Source = Source
12 :			structure SourceMap = SourceMap
13 :			structure ErrorMsg = ErrorMsg
14 :			structure Symbol = Symbol
15 :			structure StaticEnv = StaticEnv
16 :			structure DynamicEnv = DynamicEnv
17 :			structure BareEnvironment = Environment
18 :			structure Environment = CMEnv.Env
19 :			structure CoerceEnv = CoerceEnv
20 :			structure EnvRef = EnvRef
21 :			structure ModuleId = ModuleId
22 :			structure CMStaticEnv = CMStaticEnv
23 :			structure PersStamps = PersStamps
24 :			structure PrettyPrint = PrettyPrint
25 :			structure PPTable = struct
26 :			val install_pp
27 :			: string list -> (PrettyPrint.ppstream -> 'a -> unit) -> unit
28 :			= Unsafe.cast PPTable.install_pp
29 :			end (* PPTable *)
30 :			structure MakePid = struct
31 :			fun makePid (context, se) =
32 :			#hash (PickMod.pickleEnv (context, CMStaticEnv.unCM se))
33 :			end
34 :			structure Ast = Ast
35 :
36 :			structure PrintHooks : PRINTHOOKS = struct
37 :			fun prAbsyn env d =
38 :			PrettyPrint.with_pp (ErrorMsg.defaultConsumer())
39 :			(fn ppstrm => PPAbsyn.ppDec(env,NONE) ppstrm (d,200))
40 :			end
41 :			(*
42 :			structure AllocProf =
43 :			struct
44 :			val reset = AllocProf.reset
45 :			val print = AllocProf.print_profile_info
46 :			end
47 :			*)
48 :			val version = Version.version
49 :			val banner = Version.banner
50 :			end
51 :
52 :			(*
53 :			* $Log$
54 :			*)

---

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