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

* some false warnings "function result doesn't seems to be set" are

Browse Source 
avoided
This commit is contained in:
florian 1999-02-09 17:15:52 +00:00
parent b73b83a01b
commit 1b5fda2764
2 changed files with 18 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/tccal.pas
View File

@ -159,6 +159,10 @@ implementation
begin
if count_ref then
begin
{ not completly proper, but avoids some warnings }
if (p^.left^.treetype=funcretn) and (defcoll^.paratyp=vs_var) then
procinfo.funcret_is_valid:=true;
store_valid:=must_be_valid;
if (defcoll^.paratyp=vs_var) then
test_protected(p^.left);
@ -1067,7 +1071,11 @@ implementation
end.
{
$Log$
Revision 1.22 1999-01-29 11:34:55 pierre
Revision 1.23 1999-02-09 17:15:52 florian
* some false warnings "function result doesn't seems to be set" are
avoided
Revision 1.22 1999/01/29 11:34:55 pierre
+ better info for impossible type conversion in calln
Revision 1.21 1999/01/21 22:10:49 peter

11
compiler/verbose.pas
View File

@ -350,7 +350,10 @@ begin
inc(status.errorcount);
end;
'O' : v:=v or V_Normal;
'W' : v:=v or V_Warning;
'W':
v:=v or V_Warning;
'N' : v:=v or V_Note;
'H' : v:=v or V_Hint;
'I' : v:=v or V_Info;
@ -435,7 +438,11 @@ end.
{
$Log$
Revision 1.34 1999-01-15 16:08:21 peter
Revision 1.35 1999-02-09 17:15:53 florian
* some false warnings "function result doesn't seems to be set" are
avoided
Revision 1.34 1999/01/15 16:08:21 peter
* doneverbose sets msg to nil
Revision 1.33 1999/01/14 21:47:10 peter