paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 13:59:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* support goto/label by default in tp/delphi/macpas modes (bug 4893)

Browse Source 
git-svn-id: trunk@2958 -
This commit is contained in:
Jonas Maebe 2006-03-18 22:25:41 +00:00
parent 9dbd69c307
commit ed910b5d31
7 changed files with 58 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
.gitattributes vendored
View File

@ -6017,6 +6017,8 @@ tests/webtbf/tw4777.pp svneol=native#text/plain
tests/webtbf/tw4778a.pp svneol=native#text/plain
tests/webtbf/tw4781a.pp svneol=native#text/plain
tests/webtbf/tw4781b.pp svneol=native#text/plain
tests/webtbf/tw4893d.pp svneol=native#text/plain
tests/webtbf/tw4893e.pp svneol=native#text/plain
tests/webtbf/tw4913.pp -text
tests/webtbf/uw0744.pp svneol=native#text/plain
tests/webtbf/uw0840a.pp svneol=native#text/plain
@ -6752,6 +6754,9 @@ tests/webtbs/tw4768.pp -text
tests/webtbs/tw4778.pp svneol=native#text/plain
tests/webtbs/tw4789.pp svneol=native#text/plain
tests/webtbs/tw4809.pp svneol=native#text/plain
tests/webtbs/tw4893a.pp svneol=native#text/plain
tests/webtbs/tw4893b.pp svneol=native#text/plain
tests/webtbs/tw4893c.pp svneol=native#text/plain
tests/webtbs/tw4898.pp -text
tests/webtbs/ub1873.pp svneol=native#text/plain
tests/webtbs/ub1883.pp svneol=native#text/plain

9
compiler/scanner.pas
View File

@ -301,6 +301,15 @@ implementation
if changeinit then
exclude(initlocalswitches,cs_ansistrings);
end;
{ support goto/label by default in delphi/tp7/mac modes }
if ([m_delphi,m_tp7,m_mac] * aktmodeswitches <> []) then
begin
include(aktmoduleswitches,cs_support_goto);
if changeinit then
include(initmoduleswitches,cs_support_goto);
end;
{ Default enum packing for delphi/tp7 }
if (m_tp7 in aktmodeswitches) or
(m_delphi in aktmodeswitches) then

10
tests/webtbf/tw4893d.pp Normal file
View File

@ -0,0 +1,10 @@
{ %fail }
{$mode fpc}
label a;
begin
goto a;
a:
end.

10
tests/webtbf/tw4893e.pp Normal file
View File

@ -0,0 +1,10 @@
{ %fail }
{$mode objfpc}
label a;
begin
goto a;
a:
end.

8
tests/webtbs/tw4893a.pp Normal file
View File

@ -0,0 +1,8 @@
{$mode delphi}
label a;
begin
goto a;
a:
end.

8
tests/webtbs/tw4893b.pp Normal file
View File

@ -0,0 +1,8 @@
{$mode tp}
label a;
begin
goto a;
a:
end.

8
tests/webtbs/tw4893c.pp Normal file
View File

@ -0,0 +1,8 @@
{$mode macpas}
label a;
begin
goto a;
a:
end.