From a85e9e64858e9da30ed41ab97ed5abc69ff14e02 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Fri, 11 Feb 2005 16:24:59 +0000
Subject: [PATCH] * don't set varstate to vs_used for record in with at start
yet
---
compiler/pstatmnt.pas | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/compiler/pstatmnt.pas b/compiler/pstatmnt.pas
index edcb12a5aa..759ec16dd8 100644
--- a/compiler/pstatmnt.pas
+++ b/compiler/pstatmnt.pas
@@ -448,7 +448,6 @@ implementation
begin
p:=comp_expr(true);
do_resulttypepass(p);
- set_varstate(p,vs_used,false);
right:=nil;
if (not codegenerror) and
(p.resulttype.def.deftype in [objectdef,recorddef]) then
@@ -1183,7 +1182,10 @@ implementation
end.
{
$Log$
- Revision 1.153 2005-02-08 21:25:14 florian
+ Revision 1.154 2005-02-11 16:24:59 peter
+ * don't set varstate to vs_used for record in with at start yet
+
+ Revision 1.153 2005/02/08 21:25:14 florian
* fixed usage of 000 as label
Revision 1.152 2005/02/03 17:10:58 peter