paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 02:59:33 +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); procedure GetVariantManager(var VarMgr: TVariantManager);
begin begin
VarMgr:=VariantManager; VarMgr:=VariantManager;
end; end;
procedure SetVariantManager(const VarMgr: TVariantManager); procedure SetVariantManager(const VarMgr: TVariantManager);
begin begin
VariantManager:=VarMgr; VariantManager:=VarMgr;
end; end;
function IsVariantManagerSet: Boolean; function IsVariantManagerSet: Boolean;
var var
i : longint; i : longint;
begin begin
@ -576,8 +573,8 @@ begin
Result:=True; Result:=True;
While Result and (I<(sizeof(tvariantmanager) div sizeof(pointer))-1) do While Result and (I<(sizeof(tvariantmanager) div sizeof(pointer))-1) do
begin begin
Result:=Pointer(ppointer(@variantmanager+i*sizeof(pointer))^)<>Pointer(@invalidvariantop); Result:=Pointer(ppointer(@variantmanager+i*sizeof(pointer))^)<>Pointer(@invalidvariantop);
Inc(I); Inc(I);
end; end;
end; end;
@ -598,7 +595,10 @@ procedure initvariantmanager;
{ {
$Log$ $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 * several variant init./final. stuff fixed
Revision 1.21 2005/01/08 20:43:44 florian Revision 1.21 2005/01/08 20:43:44 florian