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/ppc/ppcCG.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/CodeGen/ppc/ppcCG.sml

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

revision 497, Tue Dec 7 15:44:50 1999 UTC revision 498, Tue Dec 7 15:44:50 1999 UTC
# Line 38  Line 38 
38            structure Asm       = PPCAsmEmitter            structure Asm       = PPCAsmEmitter
39    
40            val sp = I.C.stackptrR            val sp = I.C.stackptrR
41            val stack = I.Region.stack            val spill = CPSRegions.spill
42    
43            fun pure _ = false            fun pure _ = false
44    
# Line 62  Line 62 
62    
63            (* spill register *)            (* spill register *)
64            fun spillInstrR(rs,offset) =            fun spillInstrR(rs,offset) =
65                [I.ST{st=I.STW, ra=sp, d=I.ImmedOp offset, rs=rs, mem=stack}]                [I.ST{st=I.STW, ra=sp, d=I.ImmedOp offset, rs=rs, mem=spill}]
66            fun spillInstrF(fs,offset) =            fun spillInstrF(fs,offset) =
67                [I.STF{st=I.STFD, ra=sp, d=I.ImmedOp offset, fs=fs, mem=stack}]                [I.STF{st=I.STFD, ra=sp, d=I.ImmedOp offset, fs=fs, mem=spill}]
68    
69            (* reload register *)            (* reload register *)
70            fun reloadInstrR(rt,offset,rest) =            fun reloadInstrR(rt,offset,rest) =
71                I.L{ld=I.LWZ, ra=sp, d=I.ImmedOp offset, rt=rt, mem=stack}::rest                I.L{ld=I.LWZ, ra=sp, d=I.ImmedOp offset, rt=rt, mem=spill}::rest
72            fun reloadInstrF(ft,offset,rest) =            fun reloadInstrF(ft,offset,rest) =
73                I.LF{ld=I.LFD, ra=sp, d=I.ImmedOp offset, ft=ft, mem=stack}::rest                I.LF{ld=I.LFD, ra=sp, d=I.ImmedOp offset, ft=ft, mem=spill}::rest
74           )           )
75    )    )

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

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