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

* fixed initialized variables

Browse Source
This commit is contained in:
peter 2001-11-20 18:48:26 +00:00
parent ae55717d7b
commit b6feb119e6
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/pdecvar.pas
View File

@ -307,7 +307,7 @@ implementation
s:=sc.get(akttokenpos);
if not sc.empty then
Message(parser_e_initialized_only_one_var);
tconstsym:=ttypedconstsym.createtype(s,tt,false);
tconstsym:=ttypedconstsym.createtype(s,tt,true);
symtablestack.insert(tconstsym);
akttokenpos:=storetokenpos;
consume(_EQUAL);
@ -575,7 +575,10 @@ implementation
end.
{
$Log$
Revision 1.21 2001-10-23 21:49:42 peter
Revision 1.22 2001-11-20 18:48:26 peter
* fixed initialized variables
Revision 1.21 2001/10/23 21:49:42 peter
* $calling directive and -Cc commandline patch added
from Pavel Ozerski