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

* us cs_opt_stackframe

Browse Source 
git-svn-id: trunk@3326 -
This commit is contained in:
peter 2006-04-23 20:53:45 +00:00
parent 79e483ec65
commit 70e7546d87
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/psub.pas
View File

@ -748,7 +748,7 @@ implementation
* open arrays * open arrays
- no inline assembler - no inline assembler
} }
if (cs_opt_level1 in aktoptimizerswitches) and if (cs_opt_stackframe in aktoptimizerswitches) and
not(po_assembler in procdef.procoptions) and not(po_assembler in procdef.procoptions) and
((flags*[pi_has_assembler_block,pi_uses_exceptions,pi_is_assembler, ((flags*[pi_has_assembler_block,pi_uses_exceptions,pi_is_assembler,
pi_needs_implicit_finally,pi_has_implicit_finally,pi_has_stackparameter])=[]) then pi_needs_implicit_finally,pi_has_implicit_finally,pi_has_stackparameter])=[]) then