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

* pi_do_call must always be set for the main program, since it always

Browse Source 
ends with a call to FPC_DO_EXIT
This commit is contained in:
Jonas Maebe 2003-06-07 19:37:43 +00:00
parent edb2179730
commit e142cebe6e
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/psub.pas
View File

@ -195,6 +195,12 @@ implementation
if symtablestack.symtabletype=localsymtable then if symtablestack.symtabletype=localsymtable then
symtablestack.foreach_static({$ifdef FPCPROCVAR}@{$endif}initializevars,block); symtablestack.foreach_static({$ifdef FPCPROCVAR}@{$endif}initializevars,block);
end; end;
if (current_procdef.localst.symtablelevel=main_program_level) and
(not current_module.is_unit) then
begin
{ there's always a call to FPC_DO_EXIT in the main program }
include(current_procinfo.flags,pi_do_call);
end;
end; end;
@ -1253,7 +1259,11 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.123 2003-06-07 18:57:04 jonas Revision 1.124 2003-06-07 19:37:43 jonas
* pi_do_call must always be set for the main program, since it always
ends with a call to FPC_DO_EXIT
Revision 1.123 2003/06/07 18:57:04 jonas
+ added freeintparaloc + added freeintparaloc
* ppc get/freeintparaloc now check whether the parameter regs are * ppc get/freeintparaloc now check whether the parameter regs are
properly allocated/deallocated (and get an extra list para) properly allocated/deallocated (and get an extra list para)