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

* fixed procvar bug on the ppc (load procvar before loading para's,

Browse Source 
because the procvar may otherwise destroy the already loaded paras)
This commit is contained in:
Jonas Maebe 2003-05-11 21:48:38 +00:00
parent c2c11ba6a6
commit 3aeff19a60
1 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/ncgcal.pas
View File

@ -700,6 +700,17 @@ implementation
{ Push parameters } { Push parameters }
oldaktcallnode:=aktcallnode; oldaktcallnode:=aktcallnode;
aktcallnode:=self; aktcallnode:=self;
{$ifdef powerpc}
{ process procvar. Done here already, because otherwise it may }
{ destroy registers containing a parameter for the actual }
{ function call (e.g. if it's a function, its result will }
{ overwrite r3, which contains the first parameter) (JM) }
if not(inlined) and
assigned(right) then
secondpass(right);
{$endif powerpc}
if assigned(left) then if assigned(left) then
begin begin
{ be found elsewhere } { be found elsewhere }
@ -796,7 +807,9 @@ implementation
else else
{ now procedure variable case } { now procedure variable case }
begin begin
{$ifndef powerpc}
secondpass(right); secondpass(right);
{$endif not powerpc}
{ Calling interrupt from the same code requires some { Calling interrupt from the same code requires some
extra code } extra code }
@ -1145,7 +1158,11 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.59 2003-05-09 17:47:02 peter Revision 1.60 2003-05-11 21:48:38 jonas
* fixed procvar bug on the ppc (load procvar before loading para's,
because the procvar may otherwise destroy the already loaded paras)
Revision 1.59 2003/05/09 17:47:02 peter
* self moved to hidden parameter * self moved to hidden parameter
* removed hdisposen,hnewn,selfn * removed hdisposen,hnewn,selfn