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/staged-alloc/allocator/staged-allocation-fn.sml
ViewVC logotype

Diff of /MLRISC/trunk/staged-alloc/allocator/staged-allocation-fn.sml

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

revision 3165, Wed Jul 30 00:02:25 2008 UTC revision 3166, Wed Jul 30 00:03:25 2008 UTC
# Line 265  Line 265 
265      fun freeze (stages, (_, ob, regs)) =      fun freeze (stages, (_, ob, regs)) =
266              {overflowBlock=ob, allocatedRegs=regs}              {overflowBlock=ob, allocatedRegs=regs}
267    
268      (* extract the kind of a location *)
269        fun kindOfLoc (REG(_, k, _)) = k
270          | kindOfLoc (BLOCK_OFFSET(_, k, _)) = k
271          | kindOfLoc (COMBINE(l1, l2)) = kindOfLoc l1
272          | kindOfLoc (NARROW(_, _, k)) = k
273    
274    end (* StagedAllocationFn *)    end (* StagedAllocationFn *)

Legend:
Removed from v.3165  
changed lines
  Added in v.3166

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