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

* made FPC_RAISEEXCEPTION compatible with MacOS

Browse Source
This commit is contained in:
olle 2003-08-24 21:38:43 +00:00
parent 2cac9a0576
commit d69418fe36
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/ncgflw.pas
View File

@ -822,14 +822,14 @@ implementation
{ process address (in case it contains a call) }
secondpass(right);
if codegenerror then
exit;
exit;
{$endif callparatemp}
{ push frame }
if assigned(frametree) then
begin
secondpass(frametree);
if codegenerror then
exit;
exit;
cg.a_param_loc(exprasmlist,frametree.location,paramanager.getintparaloc(exprasmlist,3));
end
else
@ -838,7 +838,7 @@ implementation
{ push address }
secondpass(right);
if codegenerror then
exit;
exit;
{$endif not callparatemp}
cg.a_param_loc(exprasmlist,right.location,paramanager.getintparaloc(exprasmlist,2));
end
@ -853,7 +853,10 @@ implementation
r.number:=NR_FRAME_POINTER_REG;
cg.a_param_reg(exprasmlist,OS_ADDR,r,paramanager.getintparaloc(exprasmlist,3));
{ push current address }
cg.a_paramaddr_ref(exprasmlist,href2,paramanager.getintparaloc(exprasmlist,2));
if target_info.system <> system_powerpc_macos then
cg.a_paramaddr_ref(exprasmlist,href2,paramanager.getintparaloc(exprasmlist,2))
else
cg.a_param_const(exprasmlist,OS_INT,0,paramanager.getintparaloc(exprasmlist,2));
end;
{$ifndef callparatemp}
{ push object }
@ -1541,7 +1544,10 @@ begin
end.
{
$Log$
Revision 1.75 2003-08-10 17:25:23 peter
Revision 1.76 2003-08-24 21:38:43 olle
* made FPC_RAISEEXCEPTION compatible with MacOS
Revision 1.75 2003/08/10 17:25:23 peter
* fixed some reported bugs
Revision 1.74 2003/08/09 18:56:54 daniel