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

* mark variables used in set creation

Browse Source 
git-svn-id: trunk@706 -
This commit is contained in:
peter 2005-07-20 06:44:59 +00:00
parent 20e1ac4640
commit 376865d041
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/ncnv.pas
View File

@ -366,8 +366,12 @@ implementation
p3:=nil;
end;
resulttypepass(p2);
set_varstate(p2,vs_used,[vsf_must_be_valid]);
if assigned(p3) then
resulttypepass(p3);
begin
resulttypepass(p3);
set_varstate(p3,vs_used,[vsf_must_be_valid]);
end;
if codegenerror then
break;
case p2.resulttype.def.deftype of