#FEATURE by cg
authorClaus Gittinger <cg@exept.de>
Wed, 27 Apr 2016 15:04:32 +0200
changeset 3790 7fcb69f3d0c5
parent 3789 13eb679d2e21
child 3791 9e23b969b2d1
child 3792 32302aed6bfd
#FEATURE by cg class: Parser changed: #byteArray preps for signedByteArray support (experimental)
Parser.st
--- a/Parser.st	Wed Apr 27 14:16:58 2016 +0200
+++ b/Parser.st	Wed Apr 27 15:04:32 2016 +0200
@@ -6761,6 +6761,11 @@
                 ^ #Error
             ].
         ].
+        ((elem isMemberOf:SmallInteger) and:[elem between:-128 and:-1]) ifTrue:[
+            parserFlags allowSignedByteArrayElements ifTrue:[
+                elem := elem bitAnd:16rFF.
+            ].    
+        ].    
         ((elem isMemberOf:SmallInteger) and:[elem between:0 and:255]) ifTrue:[
             index := index + 1.
             bytes at:index put:elem.