stream-read-uleb128 ( stream -- n )
LEB128 Encoding

Prev:read-uleb128 ( -- n )
Next:>leb128 ( n: integer -- byte-array )


Vocabulary
leb128

Inputs
streaman object


Outputs
nan object


Definition


:: stream-read-uleb128 ( stream -- n )
0 0 [
stream stream-read1 :> ( i b ) b 127 bitand i 7 * shift
+ i 1 + b 7 bit?
] loop drop ;