paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 16:09:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* patch from peter for classes

Browse Source
This commit is contained in:
michael 1999-10-04 13:46:04 +00:00
parent 2d21165dd8
commit 35feded070
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/symdef.inc
View File

@ -1962,7 +1962,11 @@
begin
if (not binittable) and
(psym(s)^.typ=varsym) then
binittable:=pvarsym(s)^.definition^.needs_inittable;
begin
if ((pvarsym(s)^.definition^.deftype<>objectdef) or
not(pobjectdef(pvarsym(s)^.definition)^.is_class)) then
binittable:=pvarsym(s)^.definition^.needs_inittable;
end;
end;
@ -3858,7 +3862,10 @@ Const local_symtable_index : longint = $8001;
{
$Log$
Revision 1.169 1999-10-03 19:41:38 peter
Revision 1.170 1999-10-04 13:46:04 michael
* patch from peter for classes
Revision 1.169 1999/10/03 19:41:38 peter
* inittable for record fixed (it was only checking for classes)
Revision 1.168 1999/10/01 10:05:44 peter