paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-05 06:47:28 +01:00
Code Issues Packages Projects Releases Wiki Activity

* hopefully last fix to get things working :/

Browse Source
This commit is contained in:
florian 2002-10-09 20:13:26 +00:00
parent 8c257e4d26
commit c75dbfdf0c
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/inc/variant.inc
View File

@ -44,7 +44,9 @@ end;
procedure variant_init(var v : variant);[Public,Alias:'FPC_VARIANT_INIT'];
begin
variantmanager.varinit(v);
{ calling the variant manager here is a problem because the static/global variants
are initialized while the variant manager isn't assigned }
fillchar(v,sizeof(variant),0);
end;
procedure variant_clear(var v : variant);[Public,Alias:'FPC_VARIANT_CLEAR'];
@ -554,10 +556,8 @@ procedure initvariantmanager;
begin
VarDispProc:=@vardisperror;
DispCallByIDProc:=@vardisperror;
{
tvardata(Unassigned).VType:=varEmpty;
tvardata(Null).VType:=varNull;
}
for i:=0 to (sizeof(tvariantmanager) div sizeof(pointer))-1 do
ppointer(@variantmanager+i*sizeof(pointer))^:=@invalidvariantop;
pointer(variantmanager.varclear):=@varclear
@ -566,7 +566,10 @@ procedure initvariantmanager;
{
$Log$
Revision 1.10 2002-10-09 19:56:01 florian
Revision 1.11 2002-10-09 20:13:26 florian
* hopefully last fix to get things working :/
Revision 1.10 2002/10/09 19:56:01 florian
* variant assignments don't work yet, commented out
Revision 1.9 2002/10/09 19:08:22 florian