FEAT: added missing UI32BYTES and UI32LEBYTES _bincode_ read commands

Author: Oldes

src/core/u-bincode.c

@@ -1431,6 +1431,26 @@ static REBCNT EncodedU32_Size(u32 value) {
 							cp += 3;
 							VAL_INDEX(buffer_read) += 3;
 							goto readNBytes;
+						case SYM_UI32BYTES:
+							ASSERT_READ_SIZE(value, cp, ep, 4);
+							n = ((u64)cp[3]      ) |
+							    ((u64)cp[2] << 8 ) |
+							    ((u64)cp[1] << 16) |
+							    ((u64)cp[0] << 24) ;
+							ASSERT_READ_SIZE(value, cp, ep, n);
+							cp += 4;
+							VAL_INDEX(buffer_read) += 4;
+							goto readNBytes;
+						case SYM_UI32LEBYTES:
+							ASSERT_READ_SIZE(value, cp, ep, 4);
+							n = ((u64)cp[0]      ) |
+							    ((u64)cp[1] << 8 ) |
+							    ((u64)cp[2] << 16) |
+							    ((u64)cp[3] << 24) ;
+							ASSERT_READ_SIZE(value, cp, ep, n);
+							cp += 4;
+							VAL_INDEX(buffer_read) += 4;
+							goto readNBytes;
 						case SYM_AT:
 							// uses absolute positioning from series HEAD!
 							next = ++value;

src/tests/units/bincode-test.r3

@@ -146,18 +146,25 @@ is-protected-error?: func[code][
 	--test-- "BinCode - UI8BYTES"
 		--assert object? binary/write b [UI8BYTES #{cafe}]
 		--assert #{02CAFE} = binary/read b 'bytes
+		--assert #{CAFE} = binary/read #{02CAFE} 'UI8BYTES
 	--test-- "BinCode - UI16BYTES"
 		--assert object? binary/write b [UI16BYTES #{cafe}]
 		--assert #{0002CAFE} = binary/read b 'bytes
+		--assert #{CAFE} = binary/read #{0002CAFE} 'UI16BYTES
 	--test-- "BinCode - UI16LEBYTES"
 		--assert object? binary/write b [UI16LEBYTES #{cafe}]
 		--assert #{0200CAFE} = binary/read b 'bytes
+		--assert #{CAFE} = binary/read #{0200CAFE} 'UI16LEBYTES
 	--test-- "BinCode - UI24BYTES"
 		--assert object? binary/write b [UI24BYTES #{cafe}]
 		--assert #{000002CAFE} = binary/read b 'bytes
+		--assert #{CAFE} = binary/read #{000002CAFE} 'UI24BYTES
+		--assert #{CAFE} = binary/read #{020000CAFE} 'UI24LEBYTES
 	--test-- "BinCode - UI32BYTES"
 		--assert object? binary/write b [UI32BYTES #{cafe}]
 		--assert #{00000002CAFE} = binary/read b 'bytes
+		--assert #{CAFE} = binary/read #{00000002CAFE} 'UI32BYTES
+		--assert #{CAFE} = binary/read #{02000000CAFE} 'UI32LEBYTES
 
 	--test-- "BinCode - write GET-WORD"
 		a: 42 b: binary/write #{} [ui8 :a]