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

* adjust signature of variant managers olevarfromint so that 64-bit values can be passed as well (as was probably intended originally)

Browse Source 
git-svn-id: trunk@41570 -
This commit is contained in:
svenbarth 2019-03-03 14:50:05 +00:00
parent 2430174213
commit 07b1a3d211
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/rtl-objpas/src/inc/variants.pp
View File

@ -2488,7 +2488,7 @@ begin
DoOleVarFromVar(TVarData(aDest), TVarData(aSource));
end;
procedure sysolevarfromint(var Dest : olevariant; const Source : LongInt; const range : ShortInt);
procedure sysolevarfromint(var Dest : olevariant; const Source : Int64; const range : ShortInt);
begin
DoVarClearIfComplex(TVarData(Dest));
with TVarData(Dest) do begin

2
rtl/inc/varianth.inc
View File

@ -186,7 +186,7 @@ type
olevarfrompstr: procedure(var dest : olevariant; const source : shortstring);
olevarfromlstr: procedure(var dest : olevariant; const source : ansistring);
olevarfromvar: procedure(var dest : olevariant; const source : variant);
olevarfromint: procedure(var dest : olevariant; const source : longint;const range : shortint);
olevarfromint: procedure(var dest : olevariant; const source : int64;const range : shortint);
{ operators }
varop : procedure(var left : variant;const right : variant;opcode : tvarop);