paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 00:28:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix #41091: apply patch by @yoozaa80 to use the length of the WideString instead of the single-/multibyte encoded string

Browse Source
This commit is contained in:
Sven/Sarah Barth 2025-01-07 21:22:04 +01:00
parent d595976f4c
commit 5e57516498
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-res/src/versionresource.pp
View File

@ -466,7 +466,7 @@ var block : TVerBlockHeader;
begin
before:=RawData.Position;
block.length:=0;
block.vallength:=length(aValue)+1;
block.vallength:=length(WideString(aValue))+1;
block.valtype:=1;
block.key:=aKey;
{$IFDEF ENDIAN_BIG}