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 4092, Fri Aug 14 11:43:56 2015 UTC revision 4785, Wed Sep 5 14:05:17 2018 UTC
# Line 4  Line 4 
4   * All rights reserved.   * All rights reserved.
5   *)   *)
6    
7  structure CharArray : MONO_ARRAY_2015 =  structure CharArray : MONO_ARRAY =
8    struct    struct
9      structure String = StringImp      structure String = StringImp
10      structure A = InlineT.CharArray      structure A = InlineT.CharArray
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.4092  
changed lines
  Added in v.4785

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