paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-11 07:58:31 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/symdef.pas
View File

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