paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-21 01:49:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed tw4700.

Browse Source 
git-svn-id: trunk@5388 -
This commit is contained in:
yury 2006-11-15 07:17:41 +00:00
parent 4010d66c2c
commit 63a162ac83
2 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/inc/variant.inc
View File

@ -953,6 +953,21 @@ operator :=(const source : terror) dest : olevariant;{$ifdef SYSTEMINLINE}inline
begin begin
variantmanager.olevarfromint(dest,source,-sizeof(terror)); variantmanager.olevarfromint(dest,source,-sizeof(terror));
end; end;
function Unassigned: Variant; // Unassigned standard constant
begin
VarClearProc(TVarData(Result));
TVarData(Result).VType := varempty;
end;
function Null: Variant; // Null standard constant
begin
VarClearProc(TVarData(Result));
TVarData(Result).VType := varnull;
end;
{********************************************************************** {**********************************************************************
Variant manager functions Variant manager functions
**********************************************************************} **********************************************************************}

5
rtl/inc/varianth.inc
View File

@ -195,6 +195,11 @@ type
procedure GetVariantManager(var VarMgr: TVariantManager); procedure GetVariantManager(var VarMgr: TVariantManager);
procedure SetVariantManager(const VarMgr: TVariantManager); procedure SetVariantManager(const VarMgr: TVariantManager);
{ Global constants. Needed here only for compatibility. }
function Unassigned: Variant; // Unassigned standard constant
function Null: Variant; // Null standard constant
const const
VarClearProc : procedure(var v : TVarData) = nil; VarClearProc : procedure(var v : TVarData) = nil;
VarAddRefProc : procedure(var v : TVarData) = nil; VarAddRefProc : procedure(var v : TVarData) = nil;