paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 18:29:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed crash with for counter

Browse Source
This commit is contained in:
peter 2001-04-21 15:36:29 +00:00
parent e8bec6db67
commit c7597da100
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/nflw.pas
View File

@ -518,7 +518,8 @@ implementation
((tloadnode(hp).symtable.symtablelevel<=1) or
(tloadnode(hp).symtable.symtablelevel=lexlevel))) then
begin
if tloadnode(hp).symtableentry.typ=varsym then
if (hp.nodetype=loadn) and
(tloadnode(hp).symtableentry.typ=varsym) then
tvarsym(tloadnode(hp).symtableentry).varstate:=vs_used;
if (not(is_ordinal(t2.resulttype.def)) or is_64bitint(t2.resulttype.def)) then
CGMessagePos(hp.fileinfo,type_e_ordinal_expr_expected);
@ -1168,7 +1169,10 @@ begin
end.
{
$Log$
Revision 1.18 2001-04-15 09:48:30 peter
Revision 1.19 2001-04-21 15:36:29 peter
* fixed crash with for counter
Revision 1.18 2001/04/15 09:48:30 peter
* fixed crash in labelnode
* easier detection of goto and label in try blocks