From 07b1a3d211cb17e7867c98e3ef782f296a8b904f Mon Sep 17 00:00:00 2001 From: svenbarth Date: Sun, 3 Mar 2019 14:50:05 +0000 Subject: [PATCH] * adjust signature of variant managers olevarfromint so that 64-bit values can be passed as well (as was probably intended originally) git-svn-id: trunk@41570 - --- packages/rtl-objpas/src/inc/variants.pp | 2 +- rtl/inc/varianth.inc | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/packages/rtl-objpas/src/inc/variants.pp b/packages/rtl-objpas/src/inc/variants.pp index 153453cb29..9f5f723c0d 100644 --- a/packages/rtl-objpas/src/inc/variants.pp +++ b/packages/rtl-objpas/src/inc/variants.pp @@ -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 diff --git a/rtl/inc/varianth.inc b/rtl/inc/varianth.inc index 91fa75cf8a..8417b54b71 100644 --- a/rtl/inc/varianth.inc +++ b/rtl/inc/varianth.inc @@ -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);