paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 06:20:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed sigsegv with casedef=nil

Browse Source
This commit is contained in:
peter 1999-12-01 22:43:17 +00:00
parent 98a6530898
commit f2d894e78f
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/pstatmnt.pas
View File

@ -196,7 +196,8 @@ unit pstatmnt;
do_firstpass(caseexpr);
casedeferror:=false;
casedef:=caseexpr^.resulttype;
if not(is_ordinal(casedef) or is_64bitint(casedef)) then
if (not assigned(casedef)) or
not(is_ordinal(casedef) or is_64bitint(casedef)) then
begin
Message(type_e_ordinal_expr_expected);
{ set error flag so no rangechecks are done }
@ -1322,7 +1323,10 @@ unit pstatmnt;
end.
{
$Log$
Revision 1.114 1999-12-01 12:42:32 peter
Revision 1.115 1999-12-01 22:43:17 peter
* fixed sigsegv with casedef=nil
Revision 1.114 1999/12/01 12:42:32 peter
* fixed bug 698
* removed some notes about unused vars