paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 13:19:12 +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

35
compiler/nbas.pas
View File

@ -552,12 +552,15 @@ implementation
hp : tai; hp : tai;
begin begin
inherited buildderefimpl; inherited buildderefimpl;
hp:=tai(p_asm.first); if not getposition then
while assigned(hp) do begin
begin hp:=tai(p_asm.first);
hp.buildderefimpl; while assigned(hp) do
hp:=tai(hp.next); begin
end; hp.buildderefimpl;
hp:=tai(hp.next);
end;
end;
end; end;
@ -566,12 +569,15 @@ implementation
hp : tai; hp : tai;
begin begin
inherited derefimpl; inherited derefimpl;
hp:=tai(p_asm.first); if not getposition then
while assigned(hp) do begin
begin hp:=tai(p_asm.first);
hp.derefimpl; while assigned(hp) do
hp:=tai(hp.next); begin
end; hp.derefimpl;
hp:=tai(hp.next);
end;
end;
end; end;
@ -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