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

* fixed para locations of fpc_class_new helper call

Browse Source
This commit is contained in:
florian 2003-04-26 20:57:17 +00:00
parent f30ce9c922
commit 4450957bdd
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/cgobj.pas
View File

@ -1657,7 +1657,7 @@ unit cgobj;
procinfo.flags:=procinfo.flags or pi_needs_implicit_finally;
{ parameter 2 : vmt pointer, 0 when called by inherited }
reference_reset_base(href, procinfo.framepointer,procinfo.vmtpointer_offset);
a_param_ref(list, OS_ADDR,href,paramanager.getintparaloc(1));
a_param_ref(list, OS_ADDR,href,paramanager.getintparaloc(2));
{ parameter 1 : self pointer }
reference_reset_base(href, procinfo.framepointer,procinfo.selfpointer_offset);
a_param_ref(list, OS_ADDR,href,paramanager.getintparaloc(1));
@ -1854,7 +1854,10 @@ finalization
end.
{
$Log$
Revision 1.89 2003-04-26 17:21:08 florian
Revision 1.90 2003-04-26 20:57:17 florian
* fixed para locations of fpc_class_new helper call
Revision 1.89 2003/04/26 17:21:08 florian
* fixed passing of fpu values by fpu register
Revision 1.88 2003/04/23 20:16:03 peter