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

* don't use inc/dec on a property with a write method

Browse Source 
git-svn-id: trunk@7245 -
This commit is contained in:
Jonas Maebe 2007-05-02 17:31:02 +00:00
parent 4e8fba9423
commit ae54e01b72
1 changed files with 7 additions and 3 deletions

10
compiler/symdef.pas
View File

@ -3876,10 +3876,13 @@ implementation
if not (objecttype in [odt_interfacecom,odt_interfacecorba,odt_dispinterface]) then
begin
{ add the data of the anchestor class }
inc(tObjectSymtable(symtable).datasize,tObjectSymtable(c.symtable).datasize);
tObjectSymtable(symtable).datasize:=
tObjectSymtable(symtable).datasize+
tObjectSymtable(c.symtable).datasize;
if (oo_has_vmt in objectoptions) and
(oo_has_vmt in c.objectoptions) then
dec(tObjectSymtable(symtable).datasize,sizeof(aint));
tObjectSymtable(symtable).datasize:=
tObjectSymtable(symtable).datasize-sizeof(aint);
{ if parent has a vmt field then
the offset is the same for the child PM }
if (oo_has_vmt in c.objectoptions) or is_class(self) then
@ -3907,7 +3910,8 @@ implementation
tObjectSymtable(symtable).datasize:=align(tObjectSymtable(symtable).datasize,sizeof(aint));
vmt_offset:=tObjectSymtable(symtable).datasize;
inc(tObjectSymtable(symtable).datasize,sizeof(aint));
tObjectSymtable(symtable).datasize:=
tObjectSymtable(symtable).datasize+sizeof(aint);
include(objectoptions,oo_has_vmt);
end;
end;