* $W switch sets the localswitch cs_generate_stackframes that can be

    used in the future

git-svn-id: trunk@1487 -

.gitattributes

@@ -6322,6 +6322,7 @@ tests/webtbs/tw4277.pp svneol=native#text/plain
 tests/webtbs/tw4290.pp svneol=native#text/plain
 tests/webtbs/tw4294.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/tw4350.pp svneol=native#text/plain
 tests/webtbs/tw4352.pp svneol=native#text/plain

compiler/globtype.pas

@@ -79,7 +79,7 @@ than 255 characters. That's why using Ansi Strings}
          cs_check_overflow,cs_check_range,cs_check_object,
          cs_check_io,cs_check_stack,
          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,
          { mmx }
          cs_mmx,cs_mmx_saturation,

compiler/switches.pas

@@ -59,11 +59,7 @@ const
    {I} (typesw:localsw; setsw:ord(cs_check_io)),
    {J} (typesw:localsw; setsw:ord(cs_typed_const_writable)),
    {K} (typesw:unsupportedsw; setsw:ord(cs_localnone)),
-{$ifdef supportbrowser}
    {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)),
    {N} (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)),
    {U} (typesw:illegalsw; setsw:ord(cs_localnone)),
    {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)),
-{$ifdef supportbrowser}
    {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))
     );
 
@@ -97,11 +89,7 @@ const
    {I} (typesw:localsw; setsw:ord(cs_check_io)),
    {J} (typesw:localsw; setsw:ord(cs_external_var)),
    {K} (typesw:unsupportedsw; setsw:ord(cs_localnone)),
-{$ifdef supportbrowser}
    {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)),
    {N} (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)),
    {U} (typesw:illegalsw; setsw:ord(cs_localnone)),
    {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)),
-{$ifdef supportbrowser}
    {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))
     );
 

tests/webtbs/tw4332.pp

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