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

* fixed uninitialised function result in getfinaldestination() when

Browse Source 
maximum recursion reached
This commit is contained in:
Jonas Maebe 2005-02-25 20:50:53 +00:00
parent d2092fc054
commit 04b1263e7f
2 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/aoptobj.pas
View File

@ -908,9 +908,9 @@ Unit AoptObj;
l: tasmlabel; l: tasmlabel;
begin begin
GetfinalDestination := false;
if level > 20 then if level > 20 then
exit; exit;
GetfinalDestination := false;
p1 := getlabelwithsym(tasmlabel(hp.oper[0]^.ref^.symbol)); p1 := getlabelwithsym(tasmlabel(hp.oper[0]^.ref^.symbol));
if assigned(p1) then if assigned(p1) then
begin begin
@ -1085,7 +1085,11 @@ End.
{ {
$Log$ $Log$
Revision 1.15 2005-02-14 17:13:06 peter Revision 1.16 2005-02-25 20:50:53 jonas
* fixed uninitialised function result in getfinaldestination() when
maximum recursion reached
Revision 1.15 2005/02/14 17:13:06 peter
* truncate log * truncate log
} }

8
compiler/i386/popt386.pas
View File

@ -466,9 +466,9 @@ var
end; end;
begin begin
GetfinalDestination := false;
if level > 20 then if level > 20 then
exit; exit;
GetfinalDestination := false;
p1 := dfa.getlabelwithsym(tasmlabel(hp.oper[0]^.ref^.symbol)); p1 := dfa.getlabelwithsym(tasmlabel(hp.oper[0]^.ref^.symbol));
if assigned(p1) then if assigned(p1) then
begin begin
@ -2003,7 +2003,11 @@ end.
{ {
$Log$ $Log$
Revision 1.67 2005-02-14 17:13:10 peter Revision 1.68 2005-02-25 20:50:53 jonas
* fixed uninitialised function result in getfinaldestination() when
maximum recursion reached
Revision 1.67 2005/02/14 17:13:10 peter
* truncate log * truncate log
} }