[fpc-devel] Invalid compiler warning

[petr.kristan at epos.cz]

Hi.

Compiling this code throws in my opinion invalid warning.

program res;
{$mode objfpc}
uses
  Classes, SysUtils;

  function r: string;
  begin
    raise Exception.Create('Invalid call');
  end;

begin
  r;
end.

Compiling res.pas
res.pas(6,12) Warning: Function result does not seem to be set

Petr

-- 
Ing. Petr Kristan
.
EPOS PRO s.r.o., Bozeny Nemcove 2625, 530 02 Pardubice
tel: +420 466335223    Czech Republic (Eastern Europe) 
fax: +420 466510709