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/system/Basis/Implementation/word31.sml
ViewVC logotype

Diff of /sml/trunk/src/system/Basis/Implementation/word31.sml

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

revision 1182, Thu Mar 28 16:41:29 2002 UTC revision 1183, Fri Mar 29 19:09:48 2002 UTC
# Line 38  Line 38 
38      val op + : word * word -> word = W31.+      val op + : word * word -> word = W31.+
39      val op - : word * word -> word = W31.-      val op - : word * word -> word = W31.-
40      val op div : word * word -> word = W31.div      val op div : word * word -> word = W31.div
41      fun op mod(a:word,b:word):word = a-(a div b)*b      val op mod : word * word -> word = W31.mod
42    
43      val <<  : word * word -> word = W31.chkLshift      val <<  : word * word -> word = W31.chkLshift
44      val >>  : word * word -> word = W31.chkRshiftl      val >>  : word * word -> word = W31.chkRshiftl
# Line 53  Line 53 
53      val op < : word * word -> bool = W31.<      val op < : word * word -> bool = W31.<
54      val op <= : word * word -> bool = W31.<=      val op <= : word * word -> bool = W31.<=
55    
56      fun min (w1, w2) = if (w1 < w2) then w1 else w2      val min : word * word -> word = W31.min
57      fun max (w1, w2) = if (w1 > w2) then w1 else w2      val max : word * word -> word = W31.max
58    
59      fun fmt radix = (NumFormat.fmtWord radix) o  W31.toLargeWord      fun fmt radix = (NumFormat.fmtWord radix) o  W31.toLargeWord
60      val toString = fmt StringCvt.HEX      val toString = fmt StringCvt.HEX

Legend:
Removed from v.1182  
changed lines
  Added in v.1183

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