mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-19 03:29:08 +02:00
* fix #41091: apply patch by @yoozaa80 to use the length of the WideString instead of the single-/multibyte encoded string
This commit is contained in:
parent
d595976f4c
commit
5e57516498
@ -466,7 +466,7 @@ var block : TVerBlockHeader;
|
|||||||
begin
|
begin
|
||||||
before:=RawData.Position;
|
before:=RawData.Position;
|
||||||
block.length:=0;
|
block.length:=0;
|
||||||
block.vallength:=length(aValue)+1;
|
block.vallength:=length(WideString(aValue))+1;
|
||||||
block.valtype:=1;
|
block.valtype:=1;
|
||||||
block.key:=aKey;
|
block.key:=aKey;
|
||||||
{$IFDEF ENDIAN_BIG}
|
{$IFDEF ENDIAN_BIG}
|
||||||
|
Loading…
Reference in New Issue
Block a user