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/compiler/CodeGen/hppa/hppaCpsRegs.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/CodeGen/hppa/hppaCpsRegs.sml

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

revision 93, Tue May 12 21:56:22 1998 UTC revision 106, Thu May 28 21:30:17 1998 UTC
# Line 35  Line 35 
35    
36    val limitptr  = T.REG 4    val limitptr  = T.REG 4
37    val varptr    = T.REG 7    val varptr    = T.REG 7
38    val exhaustedR = 21    val exhausted = NONE
   val exhausted = T.CC exhaustedR  
39    val storeptr  = T.REG 5    val storeptr  = T.REG 5
40    val allocptr  = T.REG 3    val allocptr  = T.REG 3
41    val exnptr    = T.REG 6    val exnptr    = T.REG 6
# Line 46  Line 45 
45    val stackptr  = T.REG 30    val stackptr  = T.REG 30
46    
47    val miscregs =    val miscregs =
48      map T.REG [1, 13, 14, 15, 16, 17, 18, 19, 22, 23, 24, 25, 26, 28, 2]      map T.REG [1, 13, 14, 15, 16, 17, 18, 19, 22, 23, 24, 25, 26, 28, 2, 21]
49    val calleesave = Array.fromList miscregs    val calleesave = Array.fromList miscregs
50    
51    (* Note: We need at least one register for shuffling purposes. *)    (* Note: We need at least one register for shuffling purposes. *)
# Line 58  Line 57 
57    
58    val availR =    val availR =
59      map (fn T.REG r => r)      map (fn T.REG r => r)
60          ([stdlink, stdclos, stdarg, stdcont,          ([stdlink, stdclos, stdarg, stdcont, gclinkreg, maskreg] @ miscregs)
           gclinkreg, maskreg, T.REG exhaustedR] @ miscregs)  
61    val dedicatedR = SL.remove(SL.uniq availR, allRegs)    val dedicatedR = SL.remove(SL.uniq availR, allRegs)
62    
63    val availF = SL.uniq(fromto(6, 30))    val availF = SL.uniq(fromto(6, 30))
# Line 68  Line 66 
66    
67  (*  (*
68   * $Log: hppaCpsRegs.sml,v $   * $Log: hppaCpsRegs.sml,v $
69     * Revision 1.2  1998/05/08 10:52:23  george
70     *   The exhausted register has been made optional -- leung
71     *
72   * Revision 1.1.1.1  1998/04/08 18:39:55  george   * Revision 1.1.1.1  1998/04/08 18:39:55  george
73   * Version 110.5   * Version 110.5
74   *   *

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

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