paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-07 17:18:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* $W switch sets the localswitch cs_generate_stackframes that can be

Browse Source 
used in the future

git-svn-id: trunk@1487 -
This commit is contained in:
peter 2005-10-19 05:50:26 +00:00
parent e870306568
commit 632bdcd149
4 changed files with 13 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -6322,6 +6322,7 @@ tests/webtbs/tw4277.pp svneol=native#text/plain
tests/webtbs/tw4290.pp svneol=native#text/plain tests/webtbs/tw4290.pp svneol=native#text/plain
tests/webtbs/tw4294.pp svneol=native#text/plain tests/webtbs/tw4294.pp svneol=native#text/plain
tests/webtbs/tw4308.pp svneol=native#text/plain tests/webtbs/tw4308.pp svneol=native#text/plain
tests/webtbs/tw4332.pp svneol=native#text/plain
tests/webtbs/tw4336.pp svneol=native#text/plain tests/webtbs/tw4336.pp svneol=native#text/plain
tests/webtbs/tw4350.pp svneol=native#text/plain tests/webtbs/tw4350.pp svneol=native#text/plain
tests/webtbs/tw4352.pp svneol=native#text/plain tests/webtbs/tw4352.pp svneol=native#text/plain

2
compiler/globtype.pas
View File

@ -79,7 +79,7 @@ than 255 characters. That's why using Ansi Strings}
cs_check_overflow,cs_check_range,cs_check_object, cs_check_overflow,cs_check_range,cs_check_object,
cs_check_io,cs_check_stack, cs_check_io,cs_check_stack,
cs_checkpointer, cs_checkpointer,
cs_omitstackframe,cs_do_assertion,cs_generate_rtti, cs_generate_stackframes,cs_do_assertion,cs_generate_rtti,
cs_full_boolean_eval,cs_typed_const_writable,cs_allow_enum_calc, cs_full_boolean_eval,cs_typed_const_writable,cs_allow_enum_calc,
{ mmx } { mmx }
cs_mmx,cs_mmx_saturation, cs_mmx,cs_mmx_saturation,

20
compiler/switches.pas
View File

@ -59,11 +59,7 @@ const
{I} (typesw:localsw; setsw:ord(cs_check_io)), {I} (typesw:localsw; setsw:ord(cs_check_io)),
{J} (typesw:localsw; setsw:ord(cs_typed_const_writable)), {J} (typesw:localsw; setsw:ord(cs_typed_const_writable)),
{K} (typesw:unsupportedsw; setsw:ord(cs_localnone)), {K} (typesw:unsupportedsw; setsw:ord(cs_localnone)),
{$ifdef supportbrowser}
{L} (typesw:modulesw; setsw:ord(cs_local_browser)), {L} (typesw:modulesw; setsw:ord(cs_local_browser)),
{$else supportbrowser}
{L} (typesw:modulesw; setsw:ord(cs_localnone)),
{$endif supportbrowser}
{M} (typesw:localsw; setsw:ord(cs_generate_rtti)), {M} (typesw:localsw; setsw:ord(cs_generate_rtti)),
{N} (typesw:unsupportedsw; setsw:ord(cs_localnone)), {N} (typesw:unsupportedsw; setsw:ord(cs_localnone)),
{O} (typesw:unsupportedsw; setsw:ord(cs_localnone)), {O} (typesw:unsupportedsw; setsw:ord(cs_localnone)),
@ -74,13 +70,9 @@ const
{T} (typesw:localsw; setsw:ord(cs_typed_addresses)), {T} (typesw:localsw; setsw:ord(cs_typed_addresses)),
{U} (typesw:illegalsw; setsw:ord(cs_localnone)), {U} (typesw:illegalsw; setsw:ord(cs_localnone)),
{V} (typesw:localsw; setsw:ord(cs_strict_var_strings)), {V} (typesw:localsw; setsw:ord(cs_strict_var_strings)),
{W} (typesw:unsupportedsw; setsw:ord(cs_localnone)), {W} (typesw:localsw; setsw:ord(cs_generate_stackframes)),
{X} (typesw:modulesw; setsw:ord(cs_extsyntax)), {X} (typesw:modulesw; setsw:ord(cs_extsyntax)),
{$ifdef supportbrowser}
{Y} (typesw:modulesw; setsw:ord(cs_browser)), {Y} (typesw:modulesw; setsw:ord(cs_browser)),
{$else supportbrowser}
{Y} (typesw:modulesw; setsw:ord(cs_localnone)),
{$endif supportbrowser}
{Z} (typesw:illegalsw; setsw:ord(cs_localnone)) {Z} (typesw:illegalsw; setsw:ord(cs_localnone))
); );
@ -97,11 +89,7 @@ const
{I} (typesw:localsw; setsw:ord(cs_check_io)), {I} (typesw:localsw; setsw:ord(cs_check_io)),
{J} (typesw:localsw; setsw:ord(cs_external_var)), {J} (typesw:localsw; setsw:ord(cs_external_var)),
{K} (typesw:unsupportedsw; setsw:ord(cs_localnone)), {K} (typesw:unsupportedsw; setsw:ord(cs_localnone)),
{$ifdef supportbrowser}
{L} (typesw:modulesw; setsw:ord(cs_local_browser)), {L} (typesw:modulesw; setsw:ord(cs_local_browser)),
{$else supportbrowser}
{L} (typesw:modulesw; setsw:ord(cs_localnone)),
{$endif supportbrowser}
{M} (typesw:localsw; setsw:ord(cs_generate_rtti)), {M} (typesw:localsw; setsw:ord(cs_generate_rtti)),
{N} (typesw:unsupportedsw; setsw:ord(cs_localnone)), {N} (typesw:unsupportedsw; setsw:ord(cs_localnone)),
{O} (typesw:unsupportedsw; setsw:ord(cs_localnone)), {O} (typesw:unsupportedsw; setsw:ord(cs_localnone)),
@ -112,13 +100,9 @@ const
{T} (typesw:localsw; setsw:ord(cs_typed_addresses)), {T} (typesw:localsw; setsw:ord(cs_typed_addresses)),
{U} (typesw:illegalsw; setsw:ord(cs_localnone)), {U} (typesw:illegalsw; setsw:ord(cs_localnone)),
{V} (typesw:localsw; setsw:ord(cs_strict_var_strings)), {V} (typesw:localsw; setsw:ord(cs_strict_var_strings)),
{W} (typesw:unsupportedsw; setsw:ord(cs_localnone)), {W} (typesw:localsw; setsw:ord(cs_generate_stackframes)),
{X} (typesw:modulesw; setsw:ord(cs_extsyntax)), {X} (typesw:modulesw; setsw:ord(cs_extsyntax)),
{$ifdef supportbrowser}
{Y} (typesw:modulesw; setsw:ord(cs_browser)), {Y} (typesw:modulesw; setsw:ord(cs_browser)),
{$else supportbrowser}
{Y} (typesw:modulesw; setsw:ord(cs_localnone)),
{$endif supportbrowser}
{Z} (typesw:localsw; setsw:ord(cs_externally_visible)) {Z} (typesw:localsw; setsw:ord(cs_externally_visible))
); );

9
tests/webtbs/tw4332.pp Executable file
View File

@ -0,0 +1,9 @@
{ %opt=-Sew }
{$W+}
{$W-}
{$STACKFRAMES ON}
{$STACKFRAMES OFF}
begin
end.