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

* Partially undo revision 16529: removing VariantToShortString breaks webtbs/tw14536 which calls the mentioned function directly instead of using typecast.

Browse Source 
git-svn-id: trunk@16557 -
This commit is contained in:
sergei 2010-12-11 23:25:20 +00:00
parent 29265ed672
commit 3c2d918cfe
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/objpas/cvarutil.inc
View File

@ -1422,6 +1422,11 @@ begin
end;
Function VariantToShortString(const VargSrc : TVarData) : ShortString;
begin
Result:=VariantToAnsiString(VargSrc);
end;
{ ---------------------------------------------------------------------
Some debug routines
---------------------------------------------------------------------}

1
rtl/objpas/varutilh.inc
View File

@ -71,6 +71,7 @@ function VariantToInt64(const VargSrc : TVarData ) : Int64;
function VariantToQWord(const VargSrc : TVarData ) : Qword;
function VariantToWideString(const VargSrc : TVarData) : WideString;
function VariantToAnsiString(const VargSrc : TVarData) : AnsiString;
function VariantToShortString(const VargSrc : TVarData) : ShortString;
{Debug routines }
procedure DumpVariant(const VSrc : Variant);