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/library/word64.sml
ViewVC logotype

Diff of /MLRISC/trunk/library/word64.sml

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

revision 410, Fri Sep 3 00:25:03 1999 UTC revision 469, Wed Nov 10 22:42:52 1999 UTC
# Line 140  Line 140 
140    
141     fun max (w1, w2) = if gt(w1,w2) then w1 else w2     fun max (w1, w2) = if gt(w1,w2) then w1 else w2
142    
143     fun divide((a,b),(0w0,0w0):word) = raise Div     fun divide((a,b):word,(0w0,0w0):word) = raise Div
144         | divide((0w0,b),(0w0,d)) = (0w0:W.word,b div d)
145       | divide((a,b),(c,d)) = raise Match       | divide((a,b),(c,d)) = raise Match
146        (* okay, not yet supported, I'm lazy *)        (* okay, not yet supported, I'm lazy *)
147    

Legend:
Removed from v.410  
changed lines
  Added in v.469

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