SCM Repository
| [smlnj] / sml / trunk / system / Basis / Implementation / word8-vector-slice.sml |
Diff of /sml/trunk/system/Basis/Implementation/word8-vector-slice.sml
Parent Directory
| 
Revision Log
| 
Patch
| revision 4784, Tue Sep 4 15:26:47 2018 UTC | revision 4785, Wed Sep 5 14:05:17 2018 UTC | |
|---|---|---|
| # | Line 19 | Line 19 |
| 19 | ||
| 20 | (* fast add/subtract avoiding the overflow test *) | (* fast add/subtract avoiding the overflow test *) |
| 21 | infix 6 -- ++ | infix 6 -- ++ |
| 22 | (* 64BIT: FIXME *) | |
| 23 | fun x -- y = InlineT.Word31.copyt_int31 (InlineT.Word31.copyf_int31 x - | fun x -- y = InlineT.Word31.copyt_int31 (InlineT.Word31.copyf_int31 x - |
| 24 | InlineT.Word31.copyf_int31 y) | InlineT.Word31.copyf_int31 y) |
| 25 | fun x ++ y = InlineT.Word31.copyt_int31 (InlineT.Word31.copyf_int31 x + | fun x ++ y = InlineT.Word31.copyt_int31 (InlineT.Word31.copyf_int31 x + |
|
||||||||
| root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
| Powered by ViewVC 1.0.0 |
