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

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

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

revision 2404, Wed Apr 11 22:34:25 2007 UTC revision 2405, Thu Apr 12 22:51:44 2007 UTC
# Line 199  Line 199 
199           | _ => raise StagedAlloc           | _ => raise StagedAlloc
200        (* esac *))        (* esac *))
201    
   fun process {counters, stages} slots = raise Fail ""  
 (*      let val str0 = init counters  
           val step = mkStep stages  
           fun processSlot (slot, (str, lss)) =  
               let val (str, ls) = step (str, slot)  
               in  
                   (str, ls :: lss)  
               end (* processSlot *)  
           val (_, lss) = foldl processSlot (str0, []) slots  
       in  
           resetCounter ();  
           rev lss  
       end (* process *) *)  
   
202  end (* StagedAllocationFn *)  end (* StagedAllocationFn *)

Legend:
Removed from v.2404  
changed lines
  Added in v.2405

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