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

* With argument is set as used to avoid unnecessary warnings

Browse Source
This commit is contained in:
pierre 2000-01-07 09:36:24 +00:00
parent c464f091be
commit 6626bfedc4
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/tcmem.pas
View File

@ -607,9 +607,9 @@ implementation
begin
firstpass(p^.left);
{ is this correct ? At least after is like if used }
inc(parsing_para_level);
set_varstate(p^.left,false);
dec(parsing_para_level);
p^.varstateset:=false;
set_varstate(p^.left,true);
if codegenerror then
exit;
symtable:=p^.withsymtable;
@ -640,7 +640,10 @@ implementation
end.
{
$Log$
Revision 1.37 2000-01-07 01:14:46 peter
Revision 1.38 2000-01-07 09:36:24 pierre
* With argument is set as used to avoid unnecessary warnings
Revision 1.37 2000/01/07 01:14:46 peter
* updated copyright to 2000
Revision 1.36 1999/11/30 10:40:58 peter
@ -739,4 +742,4 @@ end.
Revision 1.16 1999/05/18 09:52:21 peter
* procedure of object and addrn fixes
}
}