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

rtl: DoVarCopyComplex should copy variant strings by ref (reason: this is delphi compatible behavior)

Browse Source 
git-svn-id: trunk@14325 -
This commit is contained in:
paul 2009-12-04 14:57:17 +00:00
parent 9243d89025
commit 4e29be8a36
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/variants.pp
View File

@ -2197,6 +2197,8 @@ begin
RefAnyProc(Dest); RefAnyProc(Dest);
end else if vType and varArray <> 0 then end else if vType and varArray <> 0 then
DoVarCopyArray(Dest, Source, @DoVarCopy) DoVarCopyArray(Dest, Source, @DoVarCopy)
else if (vType and varByRef <> 0) and (vType xor varByRef = varString) then
Dest := Source
else if FindCustomVariantType(vType, Handler) then else if FindCustomVariantType(vType, Handler) then
Handler.Copy(Dest, Source, False) Handler.Copy(Dest, Source, False)
else else