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

* fixed for callparatemp

Browse Source
This commit is contained in:
Jonas Maebe 2003-06-09 14:38:52 +00:00
parent ff431f21ae
commit c8978e3440
1 changed files with 20 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
compiler/ncgflw.pas
View File

@ -807,9 +807,21 @@ implementation
if assigned(left) then
begin
{$ifdef callparatemp}
{ process object (may contain a call) }
secondpass(left);
if codegenerror then
exit;
{$endif callparatemp}
{ multiple parameters? }
if assigned(right) then
begin
{$ifdef callparatemp}
{ process address (in case it contains a call) }
secondpass(right);
if codegenerror then
exit;
{$endif callparatemp}
{ push frame }
if assigned(frametree) then
begin
@ -820,10 +832,12 @@ implementation
end
else
cg.a_param_const(exprasmlist,OS_INT,0,paramanager.getintparaloc(exprasmlist,3));
{$ifndef callparatemp}
{ push address }
secondpass(right);
if codegenerror then
exit;
{$endif not callparatemp}
cg.a_param_loc(exprasmlist,right.location,paramanager.getintparaloc(exprasmlist,2));
end
else
@ -839,10 +853,12 @@ implementation
{ push current address }
cg.a_paramaddr_ref(exprasmlist,href2,paramanager.getintparaloc(exprasmlist,2));
end;
{$ifndef callparatemp}
{ push object }
secondpass(left);
if codegenerror then
exit;
{$endif not callparatemp}
cg.a_param_loc(exprasmlist,left.location,paramanager.getintparaloc(exprasmlist,1));
cg.a_call_name(exprasmlist,'FPC_RAISEEXCEPTION');
paramanager.freeintparaloc(exprasmlist,3);
@ -1427,7 +1443,10 @@ begin
end.
{
$Log$
Revision 1.70 2003-06-09 12:23:30 peter
Revision 1.71 2003-06-09 14:38:52 jonas
* fixed for callparatemp
Revision 1.70 2003/06/09 12:23:30 peter
* init/final of procedure data splitted from genentrycode
* use asmnode getposition to insert final at the correct position
als for the implicit try...finally