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

Applied florians fix for check_rec_inittable

Browse Source
This commit is contained in:
michael 1998-09-21 15:46:01 +00:00
parent 7f720c64ef
commit 92fce0e812
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/symdef.inc
View File

@ -1556,8 +1556,10 @@
binittable : boolean;
procedure check_rec_inittable(s : psym);
begin
if (s^.typ=varsym) and (pvarsym(s)^.definition^.needs_inittable) then
binittable:=true;
if (s^.typ=varsym) and
((pvarsym(s)^.definition^.deftype<>objectdef)
or not(pobjectdef(pvarsym(s)^.definition)^.isclass)) then
binittable:=pvarsym(s)^.definition^.needs_inittable;
end;
@ -3015,7 +3017,10 @@
{
$Log$
Revision 1.46 1998-09-21 08:45:21 pierre
Revision 1.47 1998-09-21 15:46:01 michael
Applied florians fix for check_rec_inittable
Revision 1.46 1998/09/21 08:45:21 pierre
+ added vmt_offset in tobjectdef.write for fututre use
(first steps to have objects without vmt if no virtual !!)
+ added fpu_used field for tabstractprocdef :