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/pack-real64-swap.sml
ViewVC logotype

Diff of /sml/trunk/system/Basis/Implementation/pack-real64-swap.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 16  Line 16 
16    
17      (* fast add avoiding the overflow test *)      (* fast add avoiding the overflow test *)
18      infix ++      infix ++
19    (* 64BIT: FIXME *)
20      fun x ++ y = InlineT.Word31.copyt_int31 (InlineT.Word31.copyf_int31 x +      fun x ++ y = InlineT.Word31.copyt_int31 (InlineT.Word31.copyf_int31 x +
21                                               InlineT.Word31.copyf_int31 y)                                               InlineT.Word31.copyf_int31 y)
22    

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