paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-20 03:52:50 +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 begin
firstpass(p^.left); firstpass(p^.left);
{ is this correct ? At least after is like if used } { is this correct ? At least after is like if used }
inc(parsing_para_level);
set_varstate(p^.left,false); set_varstate(p^.left,false);
dec(parsing_para_level); p^.varstateset:=false;
set_varstate(p^.left,true);
if codegenerror then if codegenerror then
exit; exit;
symtable:=p^.withsymtable; symtable:=p^.withsymtable;
@ -640,7 +640,10 @@ implementation
end. end.
{ {
$Log$ $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 * updated copyright to 2000
Revision 1.36 1999/11/30 10:40:58 peter 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 Revision 1.16 1999/05/18 09:52:21 peter
* procedure of object and addrn fixes * procedure of object and addrn fixes
} }