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

* noopt for non-i386 targets

Browse Source
This commit is contained in:
carl 2002-11-09 15:32:30 +00:00
parent 9a151c3d65
commit 6d8024afc4
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/psub.pas
View File

@ -326,14 +326,12 @@ implementation
aktprocdef.usedregisters:=rg.usedinproc; aktprocdef.usedregisters:=rg.usedinproc;
procinfo.aktproccode.insertlist(procinfo.aktentrycode); procinfo.aktproccode.insertlist(procinfo.aktentrycode);
procinfo.aktproccode.concatlist(procinfo.aktexitcode); procinfo.aktproccode.concatlist(procinfo.aktexitcode);
{$ifdef i386} {$ifndef NoOpt}
{$ifndef NoOpt}
if (cs_optimize in aktglobalswitches) and if (cs_optimize in aktglobalswitches) and
{ do not optimize pure assembler procedures } { do not optimize pure assembler procedures }
((procinfo.flags and pi_is_assembler)=0) then ((procinfo.flags and pi_is_assembler)=0) then
Optimize(procinfo.aktproccode); Optimize(procinfo.aktproccode);
{$endif NoOpt} {$endif NoOpt}
{$endif i386}
{ save local data (casetable) also in the same file } { save local data (casetable) also in the same file }
if assigned(procinfo.aktlocaldata) and if assigned(procinfo.aktlocaldata) and
(not procinfo.aktlocaldata.empty) then (not procinfo.aktlocaldata.empty) then
@ -788,7 +786,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.72 2002-09-10 20:31:48 florian Revision 1.73 2002-11-09 15:32:30 carl
* noopt for non-i386 targets
Revision 1.72 2002/09/10 20:31:48 florian
* call to procinfo.after_header added * call to procinfo.after_header added
Revision 1.71 2002/09/07 15:25:07 peter Revision 1.71 2002/09/07 15:25:07 peter