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

* typo fixed

Browse Source
This commit is contained in:
florian 2002-07-07 10:05:34 +00:00
parent 07783d2a0d
commit 77ba8fddb3
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

@ -1191,7 +1191,7 @@ unit cgobj;
{!! this is a terrible hack, normally the helper should get three params : } {!! this is a terrible hack, normally the helper should get three params : }
{ one with self register, one with flag and one with VMT pointer } { one with self register, one with flag and one with VMT pointer }
{reference_reset_base(href, procinfo^.framepointer,procinfo^.selfpointer_offset+POINTER_SIZE);} {reference_reset_base(href, procinfo^.framepointer,procinfo^.selfpointer_offset+POINTER_SIZE);}
a_param_reg(list, OS_ADDR, SELF_POINTER_REG, getintparaloc(2); a_param_reg(list, OS_ADDR, SELF_POINTER_REG, getintparaloc(2));
{ parameter 1 : vmt pointer (stored at the selfpointer address on stack) } { parameter 1 : vmt pointer (stored at the selfpointer address on stack) }
reference_reset_base(href, procinfo^.framepointer,procinfo^.selfpointer_offset); reference_reset_base(href, procinfo^.framepointer,procinfo^.selfpointer_offset);
@ -1344,7 +1344,10 @@ finalization
end. end.
{ {
$Log$ $Log$
Revision 1.33 2002-07-07 09:52:32 florian Revision 1.34 2002-07-07 10:05:34 florian
* typo fixed
Revision 1.33 2002/07/07 09:52:32 florian
* powerpc target fixed, very simple units can be compiled * powerpc target fixed, very simple units can be compiled
* some basic stuff for better callparanode handling, far from being finished * some basic stuff for better callparanode handling, far from being finished