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/MLRISC/instructions/stream.sig
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/instructions/stream.sig

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

revision 651, Thu Jun 1 18:34:03 2000 UTC revision 984, Wed Nov 21 19:00:08 2001 UTC
# Line 10  Line 10 
10  sig  sig
11    
12     structure P : PSEUDO_OPS     structure P : PSEUDO_OPS
13       datatype ('a,'b,'c,'d) stream =
    datatype ('a,'b,'c,'d,'e,'f) stream =  
14        STREAM of        STREAM of
15        { beginCluster: int -> 'b,               (* start new compilation unit *)        { beginCluster: int -> unit,             (* start new compilation unit *)
16          endCluster  : 'c -> unit,              (* end compilation unit *)          endCluster  : 'b -> 'd,                      (* end compilation unit *)
17          emit        : 'a,                      (* emit instruction *)          emit        : 'a -> unit,                        (* emit instruction *)
18          pseudoOp    : P.pseudo_op -> unit,     (* emit a pseudo op *)          pseudoOp    : P.pseudo_op -> unit,     (* emit a pseudo op *)
19          defineLabel : Label.label -> unit,     (* define a local label *)          defineLabel : Label.label -> unit,     (* define a local label *)
20          entryLabel  : Label.label -> unit,     (* define an external label *)          entryLabel  : Label.label -> unit,     (* define an external label *)
21          comment     : string -> unit,          (* emit comment *)          comment     : string -> unit,          (* emit comment *)
22          annotation  : Annotations.annotation -> unit, (* add annotation *)          annotation  : Annotations.annotation -> unit, (* add annotation *)
23          exitBlock   : 'd -> unit,              (* mark the end of a procedure *)          getAnnotations: unit -> Annotations.propList ref, (* get annotations *)
24          alias       : 'e -> unit,              (* generate alias information *)          exitBlock   : 'c -> unit              (* mark the end of a procedure *)
         phi         : 'f -> unit               (* generate phi-function *)  
25        }        }
26    
27     (* Note:     (* Note:

Legend:
Removed from v.651  
changed lines
  Added in v.984

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