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

Diff of /sml/trunk/system/Basis/Implementation/char-array.sml

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

revision 4784, Tue Sep 4 15:26:47 2018 UTC revision 4785, Wed Sep 5 14:05:17 2018 UTC
# Line 11  Line 11 
11    
12      (* fast add/subtract avoiding the overflow test *)      (* fast add/subtract avoiding the overflow test *)
13      infix -- ++      infix -- ++
14    (* 64BIT: FIXME *)
15      fun x -- y = InlineT.Word31.copyt_int31 (InlineT.Word31.copyf_int31 x -      fun x -- y = InlineT.Word31.copyt_int31 (InlineT.Word31.copyf_int31 x -
16                                               InlineT.Word31.copyf_int31 y)                                               InlineT.Word31.copyf_int31 y)
17      fun x ++ y = InlineT.Word31.copyt_int31 (InlineT.Word31.copyf_int31 x +      fun x ++ y = InlineT.Word31.copyt_int31 (InlineT.Word31.copyf_int31 x +

Legend:
Removed from v.4784  
changed lines
  Added in v.4785

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