paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-05-01 21:53:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

* set usedregisters after writing entry and exit code (merged)

Browse Source
This commit is contained in:
peter 2000-10-24 22:21:25 +00:00
parent 207574e923
commit 299d6098aa
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/psub.pas
View File

@ -364,11 +364,6 @@ implementation
{ the procedure is now defined } { the procedure is now defined }
aktprocsym^.definition^.forwarddef:=false; aktprocsym^.definition^.forwarddef:=false;
{$ifdef newcg}
aktprocsym^.definition^.usedregisters:=tg.usedinproc;
{$else newcg}
aktprocsym^.definition^.usedregisters:=usedinproc;
{$endif newcg}
end; end;
{$ifdef newcg} {$ifdef newcg}
@ -397,6 +392,12 @@ implementation
cg^.g_exitcode(procinfo^.aktexitcode,parasize,nostackframe,false); cg^.g_exitcode(procinfo^.aktexitcode,parasize,nostackframe,false);
{$else newcg} {$else newcg}
genexitcode(procinfo^.aktexitcode,parasize,nostackframe,false); genexitcode(procinfo^.aktexitcode,parasize,nostackframe,false);
{$endif newcg}
{ now all the registers used are known }
{$ifdef newcg}
aktprocsym^.definition^.usedregisters:=tg.usedinproc;
{$else newcg}
aktprocsym^.definition^.usedregisters:=usedinproc;
{$endif newcg} {$endif newcg}
procinfo^.aktproccode^.insertlist(procinfo^.aktentrycode); procinfo^.aktproccode^.insertlist(procinfo^.aktentrycode);
procinfo^.aktproccode^.concatlist(procinfo^.aktexitcode); procinfo^.aktproccode^.concatlist(procinfo^.aktexitcode);
@ -831,7 +832,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.18 2000-10-21 18:16:12 florian Revision 1.19 2000-10-24 22:21:25 peter
* set usedregisters after writing entry and exit code (merged)
Revision 1.18 2000/10/21 18:16:12 florian
* a lot of changes: * a lot of changes:
- basic dyn. array support - basic dyn. array support
- basic C++ support - basic C++ support