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

Diff of /sml/trunk/src/compiler/CodeGen/sparc/sparcCpsRegs.sml

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

revision 554, Thu Mar 2 21:29:44 2000 UTC revision 555, Fri Mar 3 16:10:30 2000 UTC
# Line 10  Line 10 
10    structure SL = SortedList    structure SL = SortedList
11    structure C = SparcCells    structure C = SparcCells
12    
   type rexp = (unit, unit, unit, unit) T.rexp  
   type fexp = (unit, unit, unit, unit) T.fexp  
   type ccexp = (unit, unit, unit, unit) T.ccexp  
   
13    val GP = C.GPReg    val GP = C.GPReg
14    val FP = C.FPReg    val FP = C.FPReg
15    
16    fun REG r = T.REG(32,GP r) : rexp    fun REG r = T.REG(32,GP r)
17    fun FREG f = T.FREG(64,FP f) : fexp    fun FREG f = T.FREG(64,FP f)
18    
19    val stdarg    = REG(24) (* %i0 *)    val stdarg    = REG(24) (* %i0 *)
20    val stdcont   = REG(25) (* %i1 *)    val stdcont   = REG(25) (* %i1 *)
# Line 34  Line 30 
30    val exnptr    = REG(7)  (* %g7 *)    val exnptr    = REG(7)  (* %g7 *)
31    
32    val returnPtr = GP 15    val returnPtr = GP 15
33    val gcLink    = T.REG(32,returnPtr) : rexp    val gcLink    = T.REG(32,returnPtr)
34    val stackptr  = REG(14)    val stackptr  = REG(14)
35    
36     (* Warning %o2 is used as the asmTmp     (* Warning %o2 is used as the asmTmp

Legend:
Removed from v.554  
changed lines
  Added in v.555

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