paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 18:09:30 +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
variantmanager.olevarfromint(dest,source,-sizeof(terror));
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
**********************************************************************}

5
rtl/inc/varianth.inc
View File

@ -195,6 +195,11 @@ type
procedure GetVariantManager(var 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
VarClearProc : procedure(var v : TVarData) = nil;
VarAddRefProc : procedure(var v : TVarData) = nil;