paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-10 15:05:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed web bugs 4574 and 4575

Browse Source 
+ added combined test for these bugs

git-svn-id: trunk@2119 -
This commit is contained in:
Jonas Maebe 2006-01-02 17:54:39 +00:00
parent 30d5ff9f03
commit 89523d390b
3 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -6655,6 +6655,7 @@ tests/webtbs/tw4537.pp svneol=native#text/plain
tests/webtbs/tw4540.pp -text svneol=unset#text/plain
tests/webtbs/tw4557.pp svneol=native#text/plain
tests/webtbs/tw4566.pp -text svneol=unset#text/plain
tests/webtbs/tw4574.pp svneol=native#text/plain
tests/webtbs/tw4599.pp svneol=native#text/plain
tests/webtbs/tw4613.pp -text svneol=unset#text/plain
tests/webtbs/tw4616.pp svneol=native#text/plain

3
compiler/pdecvar.pas
View File

@ -653,7 +653,8 @@ implementation
if symtablestack.symtabletype=localsymtable then
begin
consume(_EQUAL);
tcsym:=ttypedconstsym.createtype('default'+vs.realname,tt,false);
tcsym:=ttypedconstsym.createtype('$default'+vs.realname,tt,false);
include(tcsym.symoptions,sp_internal);
vs.defaultconstsym:=tcsym;
symtablestack.insert(tcsym);
readtypedconst(tt,tcsym,false);

13
tests/webtbs/tw4574.pp Normal file
View File

@ -0,0 +1,13 @@
{ %OPT=-vh -Seh }
procedure t;
var
i: integer = 5;
defaulti: integer;
begin
writeln(i);
end;
begin
t;
end.