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

* fixed missing push esi for constructor calling

Browse Source
This commit is contained in:
peter 2000-01-23 18:50:07 +00:00
parent de3a50306d
commit 588b4489cc
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/cg386cal.pas
View File

@ -714,6 +714,7 @@ implementation
end
else
begin
emit_reg(A_PUSH,S_L,R_ESI);
if is_con_or_destructor then
begin
if (p^.procdefinition^.proctypeoption=potype_constructor) then
@ -726,9 +727,7 @@ implementation
{ a direct call }
else
push_int(0);
end
else
emit_reg(A_PUSH,S_L,R_ESI);
end;
end;
end;
end;
@ -1333,7 +1332,10 @@ implementation
end.
{
$Log$
Revision 1.120 2000-01-21 22:06:16 florian
Revision 1.121 2000-01-23 18:50:07 peter
* fixed missing push esi for constructor calling
Revision 1.120 2000/01/21 22:06:16 florian
* fixed for the fix of bug 793
* fpu variables modified by nested subroutines aren't regable anymore
* $maxfpuregisters doesn't modify anymore the behavior of a procedure before