#FEATURE by cg
class: Parser
changed: #byteArray
preps for signedByteArray support (experimental)
--- 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.