paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-25 03:11:01 +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: // temporary types:
type type
//{$ifndef HASVARIANT} {$ifndef HASVARIANT}
Variant = Pointer; Variant = Pointer;
//{$endif} {$endif}
{$MINENUMSIZE 1 this saves a lot of memory } {$MINENUMSIZE 1 this saves a lot of memory }
// if you change one of the following enumeration types // if you change one of the following enumeration types
@ -1068,7 +1068,11 @@ end;
Function GetVariantProp(Instance : TObject;PropInfo : PPropInfo): Variant; Function GetVariantProp(Instance : TObject;PropInfo : PPropInfo): Variant;
begin begin
{$warning GetVariantProp not implemented} {$warning GetVariantProp not implemented}
{$ifdef HASVARIANT}
Result:=Null;
{$else}
Result:=nil; Result:=nil;
{$endif}
end; end;
@ -1303,7 +1307,10 @@ end;
end. end.
{ {
$Log$ $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 * removed assembler
* cleanup * cleanup