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/branches/SMLNJ/src/compiler/CodeGen/alpha32/alpha32MLTree.sml
ViewVC logotype

Diff of /sml/branches/SMLNJ/src/compiler/CodeGen/alpha32/alpha32MLTree.sml

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

revision 247, Sat Apr 17 18:47:13 1999 UTC revision 411, Fri Sep 3 00:25:03 1999 UTC
# Line 2  Line 2 
2    
3  (* specialised alpha32 instruction set *)  (* specialised alpha32 instruction set *)
4  structure Alpha32Instr =  structure Alpha32Instr =
5    Alpha32Instr(structure Const=SMLNJConstant    AlphaInstr(structure Const=SMLNJConstant
6                 structure Region=CPSRegions)                 structure Region=CPSRegions)
7    
8  structure Alpha32Shuffle = Alpha32Shuffle(Alpha32Instr)  structure Alpha32Shuffle = AlphaShuffle(Alpha32Instr)
9    
10  structure Alpha32PseudoInstrs =  structure Alpha32PseudoInstrs =
11    Alpha32PseudoInstrs(structure Instr = Alpha32Instr)    Alpha32PseudoInstrs(structure Instr = Alpha32Instr)
12    
   
13  structure Alpha32PseudoOps =  structure Alpha32PseudoOps =
14    PseudoOpsLittle(structure M=Alpha32Spec val nop = NONE)    PseudoOpsLittle(structure M=Alpha32Spec val nop = NONE)
15    
# Line 20  Line 19 
19              structure P=Alpha32PseudoOps              structure P=Alpha32PseudoOps
20              structure B=FunctionNames)              structure B=FunctionNames)
21    
22    structure Alpha32Stream = InstructionStreamFn(structure P = Alpha32PseudoOps
23                                                  structure B = FunctionNames)
24    
25  structure Alpha32AsmEmitter=  structure Alpha32AsmEmitter=
26    Alpha32AsmEmitter(structure Instr=Alpha32Instr    AlphaAsmEmitter(structure Instr=Alpha32Instr
27                      structure PseudoOps=Alpha32PseudoOps                      structure PseudoOps=Alpha32PseudoOps
28                      structure Stream=Alpha32Stream
29                      structure Shuffle = Alpha32Shuffle)                      structure Shuffle = Alpha32Shuffle)
30    
31  structure Alpha32MCEmitter =  structure Alpha32MCEmitter =
32    Alpha32MCEmitter(structure Instr=Alpha32Instr    AlphaMCEmitter(structure Instr=Alpha32Instr
33                     structure PseudoOps=Alpha32PseudoOps                     structure PseudoOps=Alpha32PseudoOps
34                     structure Stream=Alpha32Stream
35                     structure CodeString=CodeString)                     structure CodeString=CodeString)
36    
37    (*  Don't need this any more!
38        We now support the alpha32x by generating different instructions.
39           -- Allen.
40    
41  structure Alpha32XMCEmitter =  structure Alpha32XMCEmitter =
42    Alpha32XMCEmitter(structure Instr=Alpha32Instr    Alpha32XMCEmitter(structure Instr=Alpha32Instr
43                     structure PseudoOps=Alpha32PseudoOps                     structure PseudoOps=Alpha32PseudoOps
44                     structure CodeString=CodeString)                     structure CodeString=CodeString)
45    *)
46    
47    
48  structure Alpha32MLTree =  structure Alpha32MLTree =
49    MLTreeF(structure Const=SMLNJConstant    MLTreeF(structure Const=SMLNJConstant
50            structure P=Alpha32PseudoOps            structure P=Alpha32PseudoOps
51            structure R=CPSRegions            structure R=CPSRegions
52            structure B=FunctionNames)            structure B=FunctionNames
53              type rextension = unit
54              type fextension = unit
55             )
56    
57  (*  (*
58   * $Log: alpha32MLTree.sml,v $   * $Log: alpha32MLTree.sml,v $
  * Revision 1.5  1999/03/22 17:22:14  george  
  *   Changes to support new GC API  
  *  
59   * Revision 1.4  1998/12/30 20:21:21  jhr   * Revision 1.4  1998/12/30 20:21:21  jhr
60   *   Modifications to support code generation directly into code objects.   *   Modifications to support code generation directly into code objects.
61   *   *

Legend:
Removed from v.247  
changed lines
  Added in v.411

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