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

* suppress wrong warning for with vars

Browse Source
This commit is contained in:
pierre 2000-01-10 16:38:43 +00:00
parent 640e444c7c
commit 36d70740f9
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/tcmem.pas
View File

@ -606,14 +606,11 @@ implementation
if assigned(p^.left) and assigned(p^.right) then if assigned(p^.left) and assigned(p^.right) then
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
set_varstate(p^.left,false); set_varstate(p^.left,false);
p^.varstateset:=false; already done in _with_statment }
{ incrementing the para level is a dirty trick p^.left^.varstateset:=false;
to get set_varstate to set p^.left var as used PM }
inc(parsing_para_level);
set_varstate(p^.left,true); set_varstate(p^.left,true);
dec(parsing_para_level);
if codegenerror then if codegenerror then
exit; exit;
symtable:=p^.withsymtable; symtable:=p^.withsymtable;
@ -644,7 +641,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.39 2000-01-10 00:42:44 pierre Revision 1.40 2000-01-10 16:38:43 pierre
* suppress wrong warning for with vars
Revision 1.39 2000/01/10 00:42:44 pierre
* fix for bug 776 * fix for bug 776
Revision 1.38 2000/01/07 09:36:24 pierre Revision 1.38 2000/01/07 09:36:24 pierre