paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 04:59:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* enable variant again

Browse Source
This commit is contained in:
peter 2004-02-20 15:55:26 +00:00
parent 173d1a2554
commit 4fcace5406
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/objpas/typinfo.pp
View File

@ -29,9 +29,9 @@ unit typinfo;
// temporary types:
type
//{$ifndef HASVARIANT}
{$ifndef HASVARIANT}
Variant = Pointer;
//{$endif}
{$endif}
{$MINENUMSIZE 1 this saves a lot of memory }
// if you change one of the following enumeration types
@ -1068,7 +1068,11 @@ end;
Function GetVariantProp(Instance : TObject;PropInfo : PPropInfo): Variant;
begin
{$warning GetVariantProp not implemented}
{$ifdef HASVARIANT}
Result:=Null;
{$else}
Result:=nil;
{$endif}
end;
@ -1303,7 +1307,10 @@ end;
end.
{
$Log$
Revision 1.20 2003-12-24 22:27:13 peter
Revision 1.21 2004-02-20 15:55:26 peter
* enable variant again
Revision 1.20 2003/12/24 22:27:13 peter
* removed assembler
* cleanup