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

+ interface <-> variant conversion from Danny Milosavljevic

Browse Source
This commit is contained in:
florian 2005-02-01 20:22:24 +00:00
parent da85b90f65
commit 0853821fd1
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/inc/variant.inc
View File

@ -556,19 +556,16 @@ operator <=(const op1,op2 : variant) dest : boolean;
**********************************************************************}
procedure GetVariantManager(var VarMgr: TVariantManager);
begin
VarMgr:=VariantManager;
end;
procedure SetVariantManager(const VarMgr: TVariantManager);
begin
VariantManager:=VarMgr;
end;
function IsVariantManagerSet: Boolean;
var
i : longint;
begin
@ -576,8 +573,8 @@ begin
Result:=True;
While Result and (I<(sizeof(tvariantmanager) div sizeof(pointer))-1) do
begin
Result:=Pointer(ppointer(@variantmanager+i*sizeof(pointer))^)<>Pointer(@invalidvariantop);
Inc(I);
Result:=Pointer(ppointer(@variantmanager+i*sizeof(pointer))^)<>Pointer(@invalidvariantop);
Inc(I);
end;
end;
@ -598,7 +595,10 @@ procedure initvariantmanager;
{
$Log$
Revision 1.22 2005-01-15 18:47:26 florian
Revision 1.23 2005-02-01 20:22:24 florian
+ interface <-> variant conversion from Danny Milosavljevic
Revision 1.22 2005/01/15 18:47:26 florian
* several variant init./final. stuff fixed
Revision 1.21 2005/01/08 20:43:44 florian