Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Tracker SCM

SCM Repository

[smlnj] Diff of /sml/branches/idlbasis-devel/src/MLRISC/instructions/cells-basis.sml
ViewVC logotype

Diff of /sml/branches/idlbasis-devel/src/MLRISC/instructions/cells-basis.sml

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

revision 858, Wed Jun 27 21:20:27 2001 UTC revision 859, Wed Jun 27 21:43:12 2001 UTC
# Line 38  Line 38 
38          DESC of          DESC of
39          {kind             : cellkind,          {kind             : cellkind,
40           counter          : int ref,           counter          : int ref,
41             dedicated        : int ref,
42                (* It is sometimes desirable to allocate dedicated
43                 * pseudo registers that will get rewritten to something else,
44                 * e.g., the virtual frame pointer.
45                 * Since these registers are never assigned a register  by
46                 * the register allocator, a limited number of these kinds
47                 * of registers may be generated.
48                 *)
49           low              : int,           low              : int,
50           high             : int,           high             : int,
51           toString         : register_id -> string,           toString         : register_id -> string,
# Line 187  Line 195 
195        in f l        in f l
196        end        end
197    
198          fun member(x, l) =
199              let val x = registerId x
200              in  List.exists (fn y => registerId y = x) l
201              end
202    
203        fun rmv(cell, l) = let        fun rmv(cell, l) = let
204          val c = registerId cell          val c = registerId cell
205          fun f [] = []          fun f [] = []
# Line 289  Line 302 
302          DESC          DESC
303          {kind             = MEM,          {kind             = MEM,
304           counter          = ref 0,           counter          = ref 0,
305             dedicated        = ref 0,
306           low              = 0,           low              = 0,
307           high             = ~1,           high             = ~1,
308           toString         = fn m => "m"^i2s m,           toString         = fn m => "m"^i2s m,

Legend:
Removed from v.858  
changed lines
  Added in v.859

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