paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-23 11:29:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

* don't set varstate to vs_used for record in with at start yet

Browse Source
This commit is contained in:
peter 2005-02-11 16:24:59 +00:00
parent 1d857bdb67
commit a85e9e6485
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/pstatmnt.pas
View File

@ -448,7 +448,6 @@ implementation
begin begin
p:=comp_expr(true); p:=comp_expr(true);
do_resulttypepass(p); do_resulttypepass(p);
set_varstate(p,vs_used,false);
right:=nil; right:=nil;
if (not codegenerror) and if (not codegenerror) and
(p.resulttype.def.deftype in [objectdef,recorddef]) then (p.resulttype.def.deftype in [objectdef,recorddef]) then
@ -1183,7 +1182,10 @@ implementation
end. end.
{ {
$Log$ $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 * fixed usage of 000 as label
Revision 1.152 2005/02/03 17:10:58 peter Revision 1.152 2005/02/03 17:10:58 peter