mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-01 09:01:31 +02:00
* mantis #29588 setblobdata moved over pointer ref type.
git-svn-id: trunk@33049 -
This commit is contained in:
parent
8287773b16
commit
79305ce4da
@ -1104,7 +1104,7 @@ Var
|
||||
|
||||
begin
|
||||
SetLength(Temp,ASize);
|
||||
Move(Buffer^,Temp,ASize);
|
||||
Move(Buffer^,Temp[1],ASize);
|
||||
AsBlob:=Temp;
|
||||
end;
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user