Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Annotation of /sml/trunk/src/compiler/TopLevel/viscomp/generic-vc.sml
ViewVC logotype

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 228 - (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 : monnier 227 * $Log$
54 : monnier 165 *)

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