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

* fixed crashing bug to due previous changes

Browse Source
This commit is contained in:
Jonas Maebe 2001-01-07 15:51:17 +00:00
parent b503c3e3b8
commit 7725beb1e3
1 changed files with 21 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
compiler/i386/csopt386.pas
View File

@ -1627,10 +1627,13 @@ End;
function removeInstructs(asmL: TAAsmoutput; first, last: Tai): boolean;
{ Removes the marked instructions and disposes the PTaiProps of the other }
{ instructions }
Var p, hp1: Tai;
Var
p, hp1: Tai;
nopropinfolevel: longint;
begin
removeInstructs := false;
p := First;
nopropinfolevel := 0;
While (p <> Last) Do
Begin
If (p.typ = ait_marker) and
@ -1639,21 +1642,30 @@ begin
hp1 := Tai(p.next);
asmL.remove(p);
p.free;
while not((hp1.typ = ait_marker) and
(Tai_marker(p).kind = noPropInfoEnd)) do
nopropinfolevel := 1;
while (nopropinfolevel <> 0) do
begin
p := Tai(hp1.next);
{$ifndef noinstremove}
{ allocregbetween can insert new ait_regalloc objects }
{ without optinfo }
if assigned(hp1.optinfo) then
if (hp1.typ = ait_marker) then
begin
case Tai_marker(hp1).kind of
{ they can be nested! }
noPropInfoStart: inc(nopropinfolevel);
noPropInfoEnd: dec(nopropinfolevel);
end;
asmL.remove(hp1);
hp1.free;
end
else if assigned(hp1.optinfo) then
if pTaiprop(hp1.optinfo)^.canBeRemoved then
begin
dispose(pTaiprop(hp1.optinfo));
hp1.optinfo := nil;
asmL.remove(hp1);
hp1.free;
hp1 := p;
end
else
{$endif noinstremove}
@ -1702,7 +1714,10 @@ End.
{
$Log$
Revision 1.11 2001-01-06 23:35:05 jonas
Revision 1.12 2001-01-07 15:51:17 jonas
* fixed crashing bug to due previous changes
Revision 1.11 2001/01/06 23:35:05 jonas
* fixed webbug 1323
Revision 1.10 2000/12/25 00:07:31 peter