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

* fix crashes in asmnode.deref when p_asm=nil

Browse Source
This commit is contained in:
peter 2003-10-31 15:51:47 +00:00
parent bd96bacd81
commit f2264589fc
1 changed files with 22 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/nbas.pas
View File

@ -552,6 +552,8 @@ implementation
hp : tai; hp : tai;
begin begin
inherited buildderefimpl; inherited buildderefimpl;
if not getposition then
begin
hp:=tai(p_asm.first); hp:=tai(p_asm.first);
while assigned(hp) do while assigned(hp) do
begin begin
@ -559,6 +561,7 @@ implementation
hp:=tai(hp.next); hp:=tai(hp.next);
end; end;
end; end;
end;
procedure tasmnode.derefimpl; procedure tasmnode.derefimpl;
@ -566,6 +569,8 @@ implementation
hp : tai; hp : tai;
begin begin
inherited derefimpl; inherited derefimpl;
if not getposition then
begin
hp:=tai(p_asm.first); hp:=tai(p_asm.first);
while assigned(hp) do while assigned(hp) do
begin begin
@ -573,6 +578,7 @@ implementation
hp:=tai(hp.next); hp:=tai(hp.next);
end; end;
end; end;
end;
function tasmnode.getcopy: tnode; function tasmnode.getcopy: tnode;
@ -848,7 +854,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.70 2003-10-29 20:34:20 peter Revision 1.71 2003-10-31 15:51:47 peter
* fix crashes in asmnode.deref when p_asm=nil
Revision 1.70 2003/10/29 20:34:20 peter
* move check for unused object constructor result to blocknode * move check for unused object constructor result to blocknode
Revision 1.69 2003/10/23 14:44:07 peter Revision 1.69 2003/10/23 14:44:07 peter