paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 21:09:20 +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); consume(_RKLAMMER);
if (p1.nodetype<>typen) and 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 (oo_has_constructor in tobjectdef(p1.resulttype.def).objectoptions)) or
is_open_array(p1.resulttype.def) or is_open_array(p1.resulttype.def) or
is_open_string(p1.resulttype.def) is_open_string(p1.resulttype.def)
@ -2452,7 +2452,10 @@ implementation
end. end.
{ {
$Log$ $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 * more fixes for protected handling
Revision 1.56 2002/01/29 21:25:22 peter Revision 1.56 2002/01/29 21:25:22 peter