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.sml
ViewVC logotype

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

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

revision 429, Wed Sep 8 09:47:00 1999 UTC revision 469, Wed Nov 10 22:42:52 1999 UTC
# Line 6  Line 6 
6   * -- Allen   * -- Allen
7   *)   *)
8    
9  functor InstructionStreamFn(structure P : PSEUDO_OPS  functor InstructionStreamFn(P : PSEUDO_OPS) : INSTRUCTION_STREAM =
                             structure B : BLOCK_NAMES  
                            ) : INSTRUCTION_STREAM =  
10  struct  struct
11    
12     structure P = P     structure P = P
    structure B = B  
13    
14     datatype ('a,'b,'c,'d,'e,'f) stream =     datatype ('a,'b,'c,'d,'e,'f) stream =
15        STREAM of        STREAM of
# Line 23  Line 20 
20          defineLabel : Label.label -> unit,     (* define a local label *)          defineLabel : Label.label -> unit,     (* define a local label *)
21          entryLabel  : Label.label -> unit,     (* define an external label *)          entryLabel  : Label.label -> unit,     (* define an external label *)
22          comment     : string -> unit,          (* emit comment *)          comment     : string -> unit,          (* emit comment *)
         blockName   : B.name -> unit,          (* change block name *)  
23          annotation  : Annotations.annotation -> unit, (* add annotation *)          annotation  : Annotations.annotation -> unit, (* add annotation *)
24          exitBlock   : 'd -> unit,              (* mark the end of a procedure *)          exitBlock   : 'd -> unit,              (* mark the end of a procedure *)
25          alias       : 'e -> unit,              (* generate alias information *)          alias       : 'e -> unit,              (* generate alias information *)

Legend:
Removed from v.429  
changed lines
  Added in v.469

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