paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 13:09:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed undefined return value of SysGetData function. Also don't ignore the input BufSize parameter but pass it on to GetValueData. Bug #19962.

Browse Source 
git-svn-id: trunk@18178 -
This commit is contained in:
sergei 2011-08-12 10:43:12 +00:00
parent 47b943d236
commit b8c6c7c893
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/fcl-registry/src/xregreg.inc
View File

@ -47,10 +47,9 @@ function TRegistry.SysGetData(const Name: String; Buffer: Pointer;
Var Var
DataType : TDataType; DataType : TDataType;
BS : Integer;
begin begin
If TXmlregistry(FSysData).GetValueData(Name,DataType,Buffer^,BS) then Result:=BufSize;
If TXmlregistry(FSysData).GetValueData(Name,DataType,Buffer^,Result) then
begin begin
Case DataType of Case DataType of
dtUnknown : RegData:=rdUnknown; dtUnknown : RegData:=rdUnknown;