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

* memory leak in case optimization fixed

Browse Source
This commit is contained in:
pierre 1999-01-27 13:06:57 +00:00
parent f7732dfcee
commit 714da479ee
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/pstatmnt.pas
View File

@ -151,7 +151,8 @@ unit pstatmnt;
(p^._low = hcaselabel^._high + 1) then
begin
p^._low := hcaselabel^._low;
dispose(hcaselabel)
freelabel(hcaselabel^._at);
dispose(hcaselabel);
end
else
insertlabel(p^.less)
@ -162,7 +163,8 @@ unit pstatmnt;
(p^._high+1 = hcaselabel^._low) then
begin
p^._high := hcaselabel^._high;
dispose(hcaselabel)
freelabel(hcaselabel^._at);
dispose(hcaselabel);
end
else
insertlabel(p^.greater)
@ -1253,7 +1255,10 @@ unit pstatmnt;
end.
{
$Log$
Revision 1.61 1999-01-25 22:49:09 peter
Revision 1.62 1999-01-27 13:06:57 pierre
* memory leak in case optimization fixed
Revision 1.61 1999/01/25 22:49:09 peter
* more fixes for the on bug with unknown id
Revision 1.60 1999/01/23 23:29:38 florian