paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-01 04:59:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix for web bug #1011: no exception stack stuff is generated for

Browse Source 
inlined procedures, the entry/exitcode of the parent will do that
This commit is contained in:
Jonas Maebe 2000-06-27 12:17:29 +00:00
parent 5dd36b3fda
commit 1b29bfff5b
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/cgai386.pas
View File

@ -3417,7 +3417,8 @@ procedure mov_reg_to_dest(p : ptree; s : topsize; reg : tregister);
inittempansistrings;
{ do we need an exception frame because of ansi/widestrings ? }
if ((procinfo^.flags and pi_needs_implicit_finally)<>0) and
if not inlined and
((procinfo^.flags and pi_needs_implicit_finally)<>0) and
{ but it's useless in init/final code of units }
not(aktprocsym^.definition^.proctypeoption in [potype_unitfinalize,potype_unitinit]) then
begin
@ -3631,7 +3632,8 @@ procedure mov_reg_to_dest(p : ptree; s : topsize; reg : tregister);
aktprocsym^.definition^.parast^.foreach({$ifndef TP}@{$endif}finalize_data);
{ do we need to handle exceptions because of ansi/widestrings ? }
if ((procinfo^.flags and pi_needs_implicit_finally)<>0) and
if not inlined and
((procinfo^.flags and pi_needs_implicit_finally)<>0) and
{ but it's useless in init/final code of units }
not(aktprocsym^.definition^.proctypeoption in [potype_unitfinalize,potype_unitinit]) then
begin
@ -3969,7 +3971,11 @@ procedure mov_reg_to_dest(p : ptree; s : topsize; reg : tregister);
end.
{
$Log$
Revision 1.108 2000-06-10 17:31:42 jonas
Revision 1.109 2000-06-27 12:17:29 jonas
* fix for web bug 1011: no exception stack stuff is generated for
inlined procedures, the entry/exitcode of the parent will do that
Revision 1.108 2000/06/10 17:31:42 jonas
* loadord2reg doesn't generate any "movl %reg1,%reg1" anymore
Revision 1.107 2000/06/05 20:39:05 pierre