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

* fixed calling of inherited methods from destructors

Browse Source
This commit is contained in:
peter 2000-05-15 19:30:27 +00:00
parent 2ea50df7a6
commit ae9b86f982
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/cg386cal.pas
View File

@ -543,8 +543,9 @@ implementation
{ a class destructor needs a flag }
if pobjectdef(p^.methodpointer^.resulttype)^.is_class and
assigned(aktprocsym) and
(aktprocsym^.definition^.proctypeoption=potype_destructor) then
{assigned(aktprocsym) and
(aktprocsym^.definition^.proctypeoption=potype_destructor)}
(p^.procdefinition^.proctypeoption=potype_destructor) then
begin
push_int(0);
emit_reg(A_PUSH,S_L,R_ESI);
@ -552,8 +553,9 @@ implementation
if not(is_con_or_destructor and
pobjectdef(p^.methodpointer^.resulttype)^.is_class and
assigned(aktprocsym) and
(aktprocsym^.definition^.proctypeoption in [potype_constructor,potype_destructor])
{assigned(aktprocsym) and
(aktprocsym^.definition^.proctypeoption in [potype_constructor,potype_destructor])}
(p^.procdefinition^.proctypeoption in [potype_constructor,potype_destructor])
) then
emit_reg(A_PUSH,S_L,R_ESI);
{ if an inherited con- or destructor should be }
@ -1427,7 +1429,10 @@ implementation
end.
{
$Log$
Revision 1.132 2000-05-09 14:15:03 pierre
Revision 1.133 2000-05-15 19:30:27 peter
* fixed calling of inherited methods from destructors
Revision 1.132 2000/05/09 14:15:03 pierre
* also allow interrupt procvars
Revision 1.131 2000/05/09 10:54:03 pierre
@ -1535,4 +1540,4 @@ end.
needs some corections regarding register saving
* gettempansistring is again a procedure
}
}