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/trunk/src/MLRISC/ra/raBitmatrix.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/ra/raBitmatrix.sml

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

revision 1229, Fri May 31 21:10:34 2002 UTC revision 1230, Mon Jun 3 18:32:08 2002 UTC
# Line 25  Line 25 
25         val mask = W.-(W.fromInt size, 0w1)         val mask = W.-(W.fromInt size, 0w1)
26     in  W.toIntX(W.andb(h, mask)) end     in  W.toIntX(W.andb(h, mask)) end
27    
28     val empty = BM{table=SMALL(ref(A.array(0, [])), 0w0), elems=ref 0, edges=0}     val empty = BM{table=SMALL(ref(A.array(2, [])), 0w0), elems=ref 0, edges=0}
29    
30     (*     (*
31     val indices = A.array(1024,0)     val indices = A.array(1024,0)

Legend:
Removed from v.1229  
changed lines
  Added in v.1230

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