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

* Apply patch from Serge Anvarov, change var to const for buffer param (bug ID 35106)

Browse Source 
git-svn-id: trunk@44479 -
This commit is contained in:
michael 2020-04-01 07:33:46 +00:00
parent a24a4b9745
commit 3030ffb9c1
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-registry/src/registry.pp
View File

@ -160,8 +160,8 @@ type
procedure RenameValue(const OldName, NewName: String);
procedure WriteCurrency(const Name: UnicodeString; Value: Currency);
procedure WriteCurrency(const Name: String; Value: Currency);
procedure WriteBinaryData(const Name: UnicodeString; var Buffer; BufSize: Integer);
procedure WriteBinaryData(const Name: String; var Buffer; BufSize: Integer);
procedure WriteBinaryData(const Name: UnicodeString; const Buffer; BufSize: Integer);
procedure WriteBinaryData(const Name: String; const Buffer; BufSize: Integer);
procedure WriteBool(const Name: UnicodeString; Value: Boolean);
procedure WriteBool(const Name: String; Value: Boolean);
procedure WriteDate(const Name: UnicodeString; Value: TDateTime);
@ -794,12 +794,12 @@ begin
Result:=ValueExists(UnicodeString(Name));
end;
procedure TRegistry.WriteBinaryData(const Name: UnicodeString; var Buffer; BufSize: Integer);
procedure TRegistry.WriteBinaryData(const Name: UnicodeString; const Buffer; BufSize: Integer);
begin
PutData(Name, @Buffer, BufSize, rdBinary);
end;
procedure TRegistry.WriteBinaryData(const Name: String; var Buffer;
procedure TRegistry.WriteBinaryData(const Name: String; const Buffer;
BufSize: Integer);
begin
WriteBinaryData(UnicodeString(Name), Buffer, BufSize);