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/branches/primop-branch/src/MLRISC/ra/getreg.sml
ViewVC logotype

Diff of /sml/branches/primop-branch/src/MLRISC/ra/getreg.sml

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

revision 544, Tue Feb 22 22:56:38 2000 UTC revision 545, Thu Feb 24 13:56:44 2000 UTC
# Line 20  Line 20 
20    
21    val _ = app (fn r => Array.update(allRegs,r,true)) available    val _ = app (fn r => Array.update(allRegs,r,true)) available
22    
23    fun getreg{pref,stamp,proh} =    fun getreg{pref,stamp:int,proh} =
24    let (* use preferred registers whenever possible *)    let (* use preferred registers whenever possible *)
25        fun checkPreferred [] = find(!lastReg)        fun checkPreferred [] = find(!lastReg)
26          | checkPreferred(r::rs) =          | checkPreferred(r::rs) =
# Line 47  Line 47 
47            end            end
48    in  checkPreferred pref end    in  checkPreferred pref end
49    
50    fun getpair{pref,stamp,proh} =    fun getpair{pref,stamp:int,proh} =
51    let (* if not, use the round robin scheme to look for a register *)    let (* if not, use the round robin scheme to look for a register *)
52        fun find(start) =        fun find(start) =
53            let val limit = Array.length allRegs            let val limit = Array.length allRegs

Legend:
Removed from v.544  
changed lines
  Added in v.545

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