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

* fixed sizeof(TClass) to return only 4

Browse Source
This commit is contained in:
peter 2002-03-01 14:08:26 +00:00
parent 31b63823db
commit 935bb2185a
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/pexpr.pas
View File

@ -512,7 +512,7 @@ implementation
consume(_RKLAMMER);
if (p1.nodetype<>typen) and
(
((p1.resulttype.def.deftype=objectdef) and
(is_object(p1.resulttype.def) and
(oo_has_constructor in tobjectdef(p1.resulttype.def).objectoptions)) or
is_open_array(p1.resulttype.def) or
is_open_string(p1.resulttype.def)
@ -2452,7 +2452,10 @@ implementation
end.
{
$Log$
Revision 1.57 2002-02-03 09:30:04 peter
Revision 1.58 2002-03-01 14:08:26 peter
* fixed sizeof(TClass) to return only 4
Revision 1.57 2002/02/03 09:30:04 peter
* more fixes for protected handling
Revision 1.56 2002/01/29 21:25:22 peter