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

* fixed init_paras call

Browse Source
This commit is contained in:
florian 2000-11-06 23:49:20 +00:00
parent 676d01dff6
commit 9e5ced1416
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/i386/cgai386.pas
View File

@ -2341,6 +2341,9 @@ implementation
(([pocall_cdecl,pocall_cppdecl]*aktprocsym^.definition^.proccalloptions)=[]) then (([pocall_cdecl,pocall_cppdecl]*aktprocsym^.definition^.proccalloptions)=[]) then
aktprocsym^.definition^.parast^.foreach({$ifndef TP}@{$endif}copyvalueparas); aktprocsym^.definition^.parast^.foreach({$ifndef TP}@{$endif}copyvalueparas);
if assigned( aktprocsym^.definition^.parast) then
aktprocsym^.definition^.parast^.foreach({$ifndef TP}@{$endif}init_paras);
{ do we need an exception frame because of ansi/widestrings/interfaces ? } { do we need an exception frame because of ansi/widestrings/interfaces ? }
if not inlined and if not inlined and
((procinfo^.flags and pi_needs_implicit_finally)<>0) and ((procinfo^.flags and pi_needs_implicit_finally)<>0) and
@ -2928,7 +2931,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.8 2000-11-06 23:15:01 peter Revision 1.9 2000-11-06 23:49:20 florian
* fixed init_paras call
Revision 1.8 2000/11/06 23:15:01 peter
* added copyvaluepara call again * added copyvaluepara call again
Revision 1.7 2000/11/04 14:25:23 florian Revision 1.7 2000/11/04 14:25:23 florian