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/CodeGen/cpscompile/frag.sig
ViewVC logotype

Annotation of /sml/trunk/src/compiler/CodeGen/cpscompile/frag.sig

Parent Directory Parent Directory | Revision Log Revision Log


Revision 94 - (view) (download) (as text)

1 : monnier 16 (* frag.sig --- code and data fragments that need to be compiled.
2 :     *
3 :     * COPYRIGHT (c) 1995 AT&T Bell Laboratories.
4 :     *
5 :     *)
6 :    
7 :     signature FRAG = sig
8 :     structure T : MLTREE
9 :     datatype generated =
10 :     UNGEN of CPS.lvar * CPS.lvar list * CPS.cty list * CPS.cexp
11 :     | GEN of T.mlrisc list
12 :    
13 :     datatype frag =
14 :     STANDARD of {func: CPS.function option ref,
15 :     fmlTyps: CPS.cty list}
16 :     | KNOWNFUN of generated ref
17 :     | KNOWNCHK of generated ref
18 :     | STRINGfrag of string
19 :     | REALfrag of string
20 :    
21 :     val makeFrag : CPS.function * Label.label -> frag
22 :     val next : unit -> (Label.label * frag) option
23 :     val add : (Label.label * frag) -> unit
24 :     end (* FRAG *)
25 :    
26 :    
27 :    
28 :    
29 :    
30 :     (*
31 :     * $Log: frag.sig,v $
32 : monnier 93 * Revision 1.1.1.1 1998/04/08 18:39:54 george
33 :     * Version 110.5
34 : monnier 16 *
35 :     *)

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