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

* firstexit must now set procinfo.funcret_is_valid

Browse Source
This commit is contained in:
pierre 1999-09-16 10:44:30 +00:00
parent 1c92ba70e0
commit a9b15a7344
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/tcflw.pas
View File

@ -321,6 +321,7 @@ implementation
if assigned(p^.left) then if assigned(p^.left) then
begin begin
firstpass(p^.left); firstpass(p^.left);
procinfo.funcret_is_valid:=true;
if codegenerror then if codegenerror then
exit; exit;
{ Check the 2 types } { Check the 2 types }
@ -491,7 +492,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.17 1999-08-23 23:41:45 pierre Revision 1.18 1999-09-16 10:44:30 pierre
* firstexit must now set procinfo.funcret_is_valid
Revision 1.17 1999/08/23 23:41:45 pierre
* for reg allocation corrected * for reg allocation corrected
Revision 1.16 1999/08/05 16:53:20 peter Revision 1.16 1999/08/05 16:53:20 peter
@ -560,4 +564,3 @@ end.
* splitted pass_1 * splitted pass_1
} }