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

* changes to compile with FPC

Browse Source
This commit is contained in:
florian 1999-08-01 23:05:55 +00:00
parent 44fd09b5ec
commit e311c0ddbf
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/new/cgobj.pas
View File

@ -675,16 +675,16 @@ unit cgobj;
if (aktprocsym^.definition^.options and poassembler=0) then
begin
{$ifndef VALUEPARA}
aktprocsym^.definition^.parast^.foreach(_copyopenarrays);
aktprocsym^.definition^.parast^.foreach({$ifdef FPC}@{$endif FPC}_copyopenarrays);
{$else}
aktprocsym^.definition^.parast^.foreach(_copyvalueparas);
aktprocsym^.definition^.parast^.foreach({$ifdef FPC}@{$endif FPC}_copyvalueparas);
{$endif}
end;
{ initialisizes local data }
aktprocsym^.definition^.localst^.foreach(_initialize_data);
aktprocsym^.definition^.localst^.foreach({$ifdef FPC}@{$endif FPC}_initialize_data);
{ add a reference to all call by value/const parameters }
aktprocsym^.definition^.parast^.foreach(_incr_data);
aktprocsym^.definition^.parast^.foreach({$ifdef FPC}@{$endif FPC}_incr_data);
if (cs_profile in aktmoduleswitches) or
(aktprocsym^.definition^.owner^.symtabletype=globalsymtable) or
@ -764,11 +764,11 @@ unit cgobj;
end;
{ finalize local data }
aktprocsym^.definition^.localst^.foreach(finalize_data);
aktprocsym^.definition^.localst^.foreach({$ifdef FPC}@{$endif FPC}finalize_data);
{ finalize paras data }
if assigned(aktprocsym^.definition^.parast) then
aktprocsym^.definition^.parast^.foreach(finalize_data);
aktprocsym^.definition^.parast^.foreach({$ifdef FPC}@{$endif FPC}finalize_data);
{ call __EXIT for main program }
if (not DLLsource) and (not inlined) and ((aktprocsym^.definition^.options and poproginit)<>0) then
@ -931,7 +931,10 @@ unit cgobj;
end.
{
$Log$
Revision 1.6 1999-08-01 18:22:33 florian
Revision 1.7 1999-08-01 23:05:55 florian
* changes to compile with FPC
Revision 1.6 1999/08/01 18:22:33 florian
* made it again compilable
Revision 1.5 1999/01/23 23:29:46 florian