diff --git a/.gitattributes b/.gitattributes index 8fd5c65087..57e6c46fca 100644 --- a/.gitattributes +++ b/.gitattributes @@ -5670,6 +5670,7 @@ tests/webtbf/tw4244.pp svneol=native#text/plain tests/webtbf/tw4256.pp svneol=native#text/plain tests/webtbf/tw4359.pp svneol=native#text/plain tests/webtbf/tw4445.pp svneol=native#text/plain +tests/webtbf/tw4529.pp svneol=native#text/plain tests/webtbf/uw0744.pp svneol=native#text/plain tests/webtbf/uw0840a.pp svneol=native#text/plain tests/webtbf/uw0840b.pp svneol=native#text/plain @@ -6372,6 +6373,7 @@ tests/webtbs/tw4477.pp svneol=native#text/plain tests/webtbs/tw4487.pp -text svneol=unset#text/plain tests/webtbs/tw4489.pp -text svneol=unset#text/plain tests/webtbs/tw4496.pp svneol=native#text/plain +tests/webtbs/tw4529.pp -text svneol=unset#text/plain tests/webtbs/tw4537.pp svneol=native#text/plain tests/webtbs/ub1873.pp svneol=native#text/plain tests/webtbs/ub1883.pp svneol=native#text/plain diff --git a/compiler/pdecvar.pas b/compiler/pdecvar.pas index 0540bdf91b..626fdad9b2 100644 --- a/compiler/pdecvar.pas +++ b/compiler/pdecvar.pas @@ -1150,11 +1150,8 @@ implementation (cs_static_keyword in aktmoduleswitches) and (idtoken=_STATIC) then begin include(current_object_option,sp_static); - insert_syms(sc,tt,false,dummysymoptions); - exclude(current_object_option,sp_static); consume(_STATIC); consume(_SEMICOLON); - symdone:=true; end; { insert it in the symtable, if not done yet } diff --git a/tests/webtbf/tw4529.pp b/tests/webtbf/tw4529.pp new file mode 100644 index 0000000000..9b1f6bcf0e --- /dev/null +++ b/tests/webtbf/tw4529.pp @@ -0,0 +1,19 @@ +{ %FAIL } +{ Source provided for Free Pascal Bug Report 4529 } +{ Submitted by "Vincent Snijders" on 2005-11-20 } +{ e-mail: vsnijders@quicknet.nl } +program Project1; + +{$mode objfpc}{$H+}{$static on} + +uses + Classes + { add your units here }; + +type + MyClass = class(TComponent) + FClassVar: integer; static; + end; + +begin +end. diff --git a/tests/webtbs/tw4529.pp b/tests/webtbs/tw4529.pp new file mode 100644 index 0000000000..14d70fc1db --- /dev/null +++ b/tests/webtbs/tw4529.pp @@ -0,0 +1,20 @@ +{ Source provided for Free Pascal Bug Report 4529 } +{ Submitted by "Vincent Snijders" on 2005-11-20 } +{ e-mail: vsnijders@quicknet.nl } +program Project1; + +{$mode objfpc}{$H+}{$static on} + +uses + Classes + { add your units here }; + +type + MyClass = class(TComponent) + //private + public + FClassVar: integer; static; + end; + +begin +end.