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/MLRISC/hppa/hppaRegAlloc.sml
ViewVC logotype

Diff of /sml/branches/SMLNJ/src/MLRISC/hppa/hppaRegAlloc.sml

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

revision 105, Thu May 28 21:30:17 1998 UTC revision 106, Thu May 28 21:30:17 1998 UTC
# Line 30  Line 30 
30     end=     end=
31  struct  struct
32    
33      structure C=I.C
34    
35    (* liveness analysis for general purpose registers *)    (* liveness analysis for general purpose registers *)
36    structure RegLiveness =    structure RegLiveness =
37      Liveness(structure Flowgraph=F      Liveness(structure Flowgraph=F
38               structure Instruction=I               structure Instruction=I
39               val defUse = P.defUseR               val defUse = P.defUse C.GP
40               fun regSet c = #1 (c:HppaCells.cellset)               fun regSet c = #1 (c:HppaCells.cellset)
41               fun cellset((_,f),r) = (r,f))               fun cellset((_,f),r) = (r,f))
42    
# Line 47  Line 49 
49             structure I = I             structure I = I
50             structure Liveness=RegLiveness             structure Liveness=RegLiveness
51    
52             val defUse = P.defUseR             val defUse = P.defUse C.GP
53             val firstPseudoR = 32             val firstPseudoR = 32
54             val maxPseudoR = HppaCells.maxReg             val maxPseudoR = HppaCells.maxCell
55             val numRegs = HppaCells.numRegs             val numRegs = HppaCells.numCell HppaCells.GP
56             fun regSet c = #1 (c:HppaCells.cellset)             fun regSet c = #1 (c:HppaCells.cellset)
57          end)          end)
58    
# Line 58  Line 60 
60    structure FregLiveness =    structure FregLiveness =
61      Liveness(structure Flowgraph=F      Liveness(structure Flowgraph=F
62               structure Instruction=I               structure Instruction=I
63               val defUse = P.defUseF               val defUse = P.defUse C.FP
64               fun regSet c = #2 (c:HppaCells.cellset)               fun regSet c = #2 (c:HppaCells.cellset)
65               fun cellset((r,_),f) = (r,f))               fun cellset((r,_),f) = (r,f))
66    
# Line 70  Line 72 
72             structure I = I             structure I = I
73             structure Liveness=FregLiveness             structure Liveness=FregLiveness
74    
75             val defUse = P.defUseF             val defUse = P.defUse C.FP
76             val firstPseudoR = 32             val firstPseudoR = 32
77             val maxPseudoR = HppaCells.maxFreg             val maxPseudoR = HppaCells.maxCell
78             val numRegs = HppaCells.numFregs             val numRegs = HppaCells.numCell HppaCells.FP
79             fun regSet c = #2 (c:HppaCells.cellset)             fun regSet c = #2 (c:HppaCells.cellset)
80          end)          end)
81  end  end
82    
83  (*  (*
84   * $Log: hppaRegAlloc.sml,v $   * $Log: hppaRegAlloc.sml,v $
85     * Revision 1.2  1998/05/19 15:45:55  george
86     *   The instructions properties now exports a generic defUse function that is
87     *   curried over the cellclass, i.e., defUseR and defUseF are gone.
88     *
89   * Revision 1.1.1.1  1998/04/08 18:39:01  george   * Revision 1.1.1.1  1998/04/08 18:39:01  george
90   * Version 110.5   * Version 110.5
91   *   *

Legend:
Removed from v.105  
changed lines
  Added in v.106

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