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

* fixed crash when an undeclared identifier is used in a raise statement

Browse Source 
(merged from fixes branch)
This commit is contained in:
Jonas Maebe 2000-08-02 07:04:56 +00:00
parent fcaa820523
commit a0d91b1b85
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/tcflw.pas
View File

@ -455,8 +455,9 @@ implementation
begin
{ first para must be a _class_ }
firstpass(p^.left);
if (p^.left^.resulttype^.deftype<>objectdef) or
not(pobjectdef(p^.left^.resulttype)^.is_class) then
if assigned(p^.left^.resulttype) and
((p^.left^.resulttype^.deftype<>objectdef) or
not(pobjectdef(p^.left^.resulttype)^.is_class)) then
CGMessage(type_e_mismatch);
set_varstate(p^.left,true);
if codegenerror then
@ -633,7 +634,11 @@ implementation
end.
{
$Log$
Revision 1.2 2000-07-13 11:32:51 michael
Revision 1.3 2000-08-02 07:04:56 jonas
* fixed crash when an undeclared identifier is used in a raise statement
(merged from fixes branch)
Revision 1.2 2000/07/13 11:32:51 michael
+ removed logs
}