paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-05 02:27:20 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed dispose(destructor) crash when destructor didn't exists

Browse Source
This commit is contained in:
peter 1998-10-30 16:20:22 +00:00
parent ceb5ab1430
commit 3fcd0a1086
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/pstatmnt.pas
View File

@ -835,7 +835,7 @@ unit pstatmnt;
end;
{ the second parameter of new/dispose must be a call }
{ to a cons-/destructor }
if (sym^.typ<>procsym) then
if (not assigned(sym)) or (sym^.typ<>procsym) then
begin
Message(parser_e_expr_have_to_be_destructor_call);
new_dispose_statement:=genzeronode(errorn);
@ -1216,7 +1216,10 @@ unit pstatmnt;
end.
{
$Log$
Revision 1.46 1998-10-20 08:06:53 pierre
Revision 1.47 1998-10-30 16:20:22 peter
* fixed dispose(destructor) crash when destructor didn't exists
Revision 1.46 1998/10/20 08:06:53 pierre
* several memory corruptions due to double freemem solved
=> never use p^.loc.location:=p^.left^.loc.location;
+ finally I added now by default