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 3037, Tue May 27 06:30:07 2008 UTC revision 3038, Tue May 27 23:48:15 2008 UTC
# Line 94  Line 94 
94      fun toMemSize sz = sz div memSize      fun toMemSize sz = sz div memSize
95    
96      fun insStr (str, c, n) = Str.insert (str, c, n)      fun insStr (str, c, n) = Str.insert (str, c, n)
97      fun findStr (str, c) = valOf (Str.find (str, c))      fun findStr (str, c) = (case Str.find (str, c)
98              of SOME v => v
99               | NONE => raise Fail "staged allocation: cannot find counter in store"
100              (* end case *))
101      val find = findStr      val find = findStr
102    
103      fun dropBits (0, rs) = rs      fun dropBits (0, rs) = rs

Legend:
Removed from v.3037  
changed lines
  Added in v.3038

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