paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-30 17:01:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

Apply same changes as for tstruth2bu.pp to reflect change on HexToBin that checks Length of TBytes parameters

Browse Source
This commit is contained in:
Pierre Muller 2025-05-22 07:39:56 +00:00
parent d659ca7427
commit abd14e713b
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/test/units/strutils/tstruth2b.pp
View File

@ -175,7 +175,7 @@ begin
FillChar(BinValueBytes[0], Length(BinValueBytes), 0);
BinBufLen := Length(BinValueBytes);
ret := HexToBin(HexValueBytes, 2, BinValueBytes, 2, BinBufLen);
if ret <> 2 then halt(14);
if ret <> BinBufLen - 2 then halt(14);
if BinValueBytes[0] <> 0 then halt(14);
if BinValueBytes[1] <> 0 then halt(14);
if BinValueBytes[2] <> 236 then halt(14);
@ -188,7 +188,7 @@ begin
FillChar(BinValueBytes[0], Length(BinValueBytes), 0);
BinBufLen := Length(BinValueBytes);
ret := HexToBin(PChar(HexInputW), 2, BinValueBytes, 2, BinBufLen);
if ret <> 2 then halt(15);
if ret <> BinBufLen - 2 then halt(15);
if BinValueBytes[0] <> 0 then halt(15);
if BinValueBytes[1] <> 0 then halt(15);
if BinValueBytes[2] <> 236 then halt(15);
@ -198,7 +198,7 @@ begin
FillChar(BinValueBytes[0], Length(BinValueBytes), 0);
BinBufLen := Length(BinValueBytes);
ret := HexToBin(HexValueBytes, 2, BinValueBytes, 2, BinBufLen);
if ret <> 2 then halt(16);
if ret <> BinBufLen - 2 then halt(16);
if BinValueBytes[0] <> 0 then halt(16);
if BinValueBytes[1] <> 0 then halt(16);
if BinValueBytes[2] <> 236 then halt(16);