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 /MLRISC/trunk/amd64/ra/amd64RegAlloc.sml
ViewVC logotype

Diff of /MLRISC/trunk/amd64/ra/amd64RegAlloc.sml

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

revision 2998, Sat Apr 19 01:31:01 2008 UTC revision 3801, Fri Jan 18 22:03:06 2013 UTC
# Line 184  Line 184 
184           val available = List.map CB.registerId Float.avail           val available = List.map CB.registerId Float.avail
185           val first = CB.registerId (I.C.FPReg 0))           val first = CB.registerId (I.C.FPReg 0))
186    
187    (*
188      local      local
189        val dedicatedR = Array.array (nGPRegs, false)        val dedicatedR = Array.array (nGPRegs, false)
190        val dedicatedF = Array.array (nFPRegs, false)        val dedicatedF = Array.array (nFPRegs, false)
# Line 199  Line 200 
200        val isDedicatedR = isDedicated dedicatedR        val isDedicatedR = isDedicated dedicatedR
201        val isDedicatedF = isDedicated dedicatedF        val isDedicatedF = isDedicated dedicatedF
202      end (* local *)      end (* local *)
203    *)
204        local
205            val dedicatedR = Vector.fromList (List.map CB.registerId Int.dedicated)
206            val dedicatedF = Vector.fromList (List.map CB.registerId Float.dedicated)
207        in
208            fun isDedicatedR r = Vector.exists (fn q => q = r) dedicatedR
209            fun isDedicatedF r = Vector.exists (fn q => q = r) dedicatedF
210        end
211    
212      fun copy {dst, src, tmp} = I.COPY {k=CB.GP, sz=64, dst=dst, src=src, tmp=tmp}      fun copy {dst, src, tmp} = I.COPY {k=CB.GP, sz=64, dst=dst, src=src, tmp=tmp}
213      fun fcopy{dst, src, tmp} = I.COPY{k=CB.FP, sz=64, dst=dst, src=src, tmp=tmp}      fun fcopy{dst, src, tmp} = I.COPY{k=CB.FP, sz=64, dst=dst, src=src, tmp=tmp}

Legend:
Removed from v.2998  
changed lines
  Added in v.3801

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