diff --git a/compiler/psub.pas b/compiler/psub.pas index 3180da0121..692ec26dfe 100644 --- a/compiler/psub.pas +++ b/compiler/psub.pas @@ -915,8 +915,11 @@ implementation ((cs_opt_stackframe in current_settings.optimizerswitches) and not(cs_generate_stackframes in current_settings.localswitches) and not(po_assembler in procdef.procoptions) and - ((flags*[pi_has_assembler_block,pi_uses_exceptions,pi_is_assembler, - pi_needs_implicit_finally,pi_has_implicit_finally,pi_has_stackparameter, + ((flags*[pi_has_assembler_block,pi_is_assembler, +{$ifdef i386} + pi_uses_exceptions,pi_needs_implicit_finally,pi_has_implicit_finally, +{$endif i386} + pi_has_stackparameter, pi_needs_stackframe])=[]) ) then