From 6626bfedc4244120b16774de205c52ad44ab14f2 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Fri, 7 Jan 2000 09:36:24 +0000
Subject: [PATCH]  * With argument is set as used to avoid unnecessary warnings

---
 compiler/tcmem.pas | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/compiler/tcmem.pas b/compiler/tcmem.pas
index ac1dc3407e..76be670a77 100644
--- a/compiler/tcmem.pas
+++ b/compiler/tcmem.pas
@@ -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
 
-}
+}
\ No newline at end of file