paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-03 20:30:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed crash with counter var

Browse Source
This commit is contained in:
peter 1999-01-13 12:01:43 +00:00
parent a518b21bb8
commit 54fed4a08f
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/tcflw.pas
View File

@ -260,10 +260,10 @@ implementation
{ Check count var }
if (p^.t2^.treetype<>loadn) then
CGMessage(cg_e_illegal_count_var);
if (not(is_ordinal(p^.t2^.resulttype))) then
CGMessage(type_e_ordinal_expr_expected);
CGMessage(cg_e_illegal_count_var)
else
if (not(is_ordinal(p^.t2^.resulttype))) then
CGMessage(type_e_ordinal_expr_expected);
cleartempgen;
must_be_valid:=false;
@ -483,7 +483,10 @@ implementation
end.
{
$Log$
Revision 1.4 1998-12-11 00:03:55 peter
Revision 1.5 1999-01-13 12:01:43 peter
* fixed crash with counter var
Revision 1.4 1998/12/11 00:03:55 peter
+ globtype,tokens,version unit splitted from globals
Revision 1.3 1998/10/19 08:55:10 pierre