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

* call to procinfo.after_header added

Browse Source
This commit is contained in:
florian 2002-09-10 20:31:48 +00:00
parent 07eeafd07a
commit 0d94086e03
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/psub.pas
View File

@ -608,8 +608,6 @@ implementation
{ add implicit pushes for interrupt routines }
if (po_interrupt in aktprocdef.procoptions) then
procinfo.allocate_interrupt_stackframe;
begin
end;
{$endif i386}
{ pointer to the return value ? }
@ -627,6 +625,8 @@ implementation
if (not parse_only) and (not aktprocdef.forwarddef) then
aktprocdef.parast.foreach_static({$ifdef FPCPROCVAR}@{$endif}checkvaluepara,nil);
procinfo.after_header;
{ restore file pos }
aktfilepos:=oldfilepos;
@ -788,7 +788,10 @@ implementation
end.
{
$Log$
Revision 1.71 2002-09-07 15:25:07 peter
Revision 1.72 2002-09-10 20:31:48 florian
* call to procinfo.after_header added
Revision 1.71 2002/09/07 15:25:07 peter
* old logs removed and tabs fixed
Revision 1.70 2002/09/03 16:26:27 daniel