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

Diff of /sml/trunk/src/compiler/CodeGen/alpha32/alpha32CG.sml

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

revision 475, Wed Nov 10 22:59:58 1999 UTC revision 498, Tue Dec 7 15:44:50 1999 UTC
# Line 39  Line 39 
39            structure Asm       = Alpha32AsmEmitter            structure Asm       = Alpha32AsmEmitter
40    
41            val sp = I.C.stackptrR            val sp = I.C.stackptrR
42            val stack = I.Region.stack            val spill = CPSRegions.spill
43    
44            fun pure _ = false            fun pure _ = false
45    
# Line 63  Line 63 
63    
64            (* spill register *)            (* spill register *)
65            fun spillInstrR(r,offset) =            fun spillInstrR(r,offset) =
66                [I.STORE{stOp=I.STL, b=sp, d=I.IMMop offset, r=r, mem=stack}]                [I.STORE{stOp=I.STL, b=sp, d=I.IMMop offset, r=r, mem=spill}]
67            fun spillInstrF(r,offset) =            fun spillInstrF(r,offset) =
68                [I.FSTORE{stOp=I.STT, b=sp, d=I.IMMop offset, r=r, mem=stack}]                [I.FSTORE{stOp=I.STT, b=sp, d=I.IMMop offset, r=r, mem=spill}]
69    
70            (* reload register *)            (* reload register *)
71            fun reloadInstrR(r,offset,rest) =            fun reloadInstrR(r,offset,rest) =
72                I.LOAD{ldOp=I.LDL, b=sp, d=I.IMMop offset, r=r, mem=stack}::rest                I.LOAD{ldOp=I.LDL, b=sp, d=I.IMMop offset, r=r, mem=spill}::rest
73            fun reloadInstrF(r,offset,rest) =            fun reloadInstrF(r,offset,rest) =
74                I.FLOAD{ldOp=I.LDT, b=sp, d=I.IMMop offset, r=r, mem=stack}::rest                I.FLOAD{ldOp=I.LDT, b=sp, d=I.IMMop offset, r=r, mem=spill}::rest
75           )           )
76    )    )

Legend:
Removed from v.475  
changed lines
  Added in v.498

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