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

Diff of /sml/trunk/src/MLRISC/mltree/mltree.sml

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

revision 909, Fri Aug 24 17:48:53 2001 UTC revision 984, Wed Nov 21 19:00:08 2001 UTC
# Line 6  Line 6 
6    
7  functor MLTreeF(structure Constant  : CONSTANT  functor MLTreeF(structure Constant  : CONSTANT
8                  structure Region    : REGION                  structure Region    : REGION
                 structure Stream    : INSTRUCTION_STREAM  
9                  structure Extension : MLTREE_EXTENSION                  structure Extension : MLTREE_EXTENSION
10                 ) : MLTREE =                 ) : MLTREE =
11  struct  struct
12    structure Constant = Constant    structure Constant = Constant
   structure PseudoOp = Stream.P  
   structure Stream = Stream  
13    structure Region = Region    structure Region = Region
14    structure Basis  = MLTreeBasis    structure Basis  = MLTreeBasis
15    structure Extension = Extension    structure Extension = Extension
# Line 212  Line 209 
209         and labexp = rexp         and labexp = rexp
210    
211    (*    (*
    * Instruction streams  
    *)  
   type ('i,'cellset, 'cfg) stream = ('i, an list, 'cellset, 'cfg) Stream.stream  
   
   (*  
    * Extension mechanism  
    *)  
   
   datatype ('instr,'cellset,'operand,'addressing_mode, 'cfg) reducer =  
     REDUCER of  
     { reduceRexp    : rexp -> reg,  
       reduceFexp    : fexp -> reg,  
       reduceCCexp   : ccexp -> reg,  
       reduceStm     : stm * an list -> unit,  
       operand       : rexp -> 'operand,  
       reduceOperand : 'operand -> reg,  
       addressOf     : rexp -> 'addressing_mode,  
       emit          : 'instr * an list -> unit,  
       instrStream   : ('instr,'cellset, 'cfg) stream,  
       mltreeStream  : (stm,mlrisc list, 'cfg) stream  
     }  
   
   (*  
212     * Useful type abbreviations for working for MLTree.     * Useful type abbreviations for working for MLTree.
213     *)     *)
214    type rewriter =  (* rewriting functions *)    type rewriter =  (* rewriting functions *)

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

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