# HG changeset patch # User Claus Gittinger # Date 1487015098 -3600 # Node ID 9503363c3f3f8ce6adf60b39d6d55614d6009b04 # Parent 0d0ac206b48a8369d5ca345e5dcf359a65e8ccd6 #OTHER by cg comment/format diff -r 0d0ac206b48a -r 9503363c3f3f UninterpretedBytes.st --- a/UninterpretedBytes.st Mon Feb 13 20:44:57 2017 +0100 +++ b/UninterpretedBytes.st Mon Feb 13 20:44:58 2017 +0100 @@ -1261,12 +1261,13 @@ "return the 2-bytes starting at index as an (unsigned) Integer. The index is a smalltalk index (i.e. 1-based). The value is retrieved MSB-first (high 8 bits at lower index) if msb is true; - LSB-first (i.e. low 8-bits at lower byte index) if its false)" + LSB-first (i.e. low 8-bits at lower byte index) if it's false)" ^ self unsignedInt16At:index MSB:msb - "Modified: / 21.1.1998 / 17:46:07 / cg" - "Created: / 5.3.1998 / 11:49:29 / stefan" + "Modified: / 21-01-1998 / 17:46:07 / cg" + "Created: / 05-03-1998 / 11:49:29 / stefan" + "Modified (comment): / 13-02-2017 / 20:34:05 / cg" ! unsignedShortAt:index put:value @@ -1327,13 +1328,15 @@ "return the 2-bytes starting at index as an (unsigned) Integer. The index is a smalltalk index (i.e. 1-based). The value is retrieved MSB (high 8 bits at lower index) if msb is true; - LSB-first (i.e. low 8-bits at lower byte index) if its false. + LSB-first (i.e. low 8-bits at lower byte index) if it's false. Notice: the index is a byte index; thus, this allows for unaligned access to words on any boundary. Question: should it be retrieve signed values ? (see ByteArray>>signedWordAt:)" ^ self unsignedInt16At:index MSB:msb + + "Modified (comment): / 13-02-2017 / 20:34:09 / cg" ! wordAt:index put:value