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

* web bug769 fix

Browse Source
This commit is contained in:
pierre 1999-12-20 21:24:29 +00:00
parent 8035a10f0c
commit 6d8f8ef3f9
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/pexpr.pas
View File

@ -128,6 +128,8 @@ unit pexpr;
{ support if procvar then for tp7 and many other expression like this }
do_firstpass(p);
set_varstate(p,false);
{ reset varstateset to maybe set used state later web bug769 PM }
p^.varstateset:=false;
if not(getprocvar) and (p^.resulttype^.deftype=procvardef) then
begin
p1:=gencallnode(nil,nil);
@ -2098,7 +2100,10 @@ _LECKKLAMMER : begin
end.
{
$Log$
Revision 1.163 1999-12-01 12:42:32 peter
Revision 1.164 1999-12-20 21:24:29 pierre
* web bug769 fix
Revision 1.163 1999/12/01 12:42:32 peter
* fixed bug 698
* removed some notes about unused vars