The docs should be adapted.
Normally the function returns -1 on failure, so the code is OK.
Michael.
On Mon, 14 Nov 2011, Graeme Geldenhuys wrote:
Hi,
This is the implementation of FileAge() under FPC 2.6.0 (the upcoming release)
---------------------------------------
Function FileAge (Const FileName : String): Longint;
Var Info : Stat;
begin
If (fpstat (pointer(FileName),Info)<0) or fpS_ISDIR(info.st_mode) then
exit(-1)
else
Result:=UnixToWinAge(info.st_mtime);
end;
---------------------------------------
The FPC documentation for fpstat() mentions that a zero return value
means success, and any non-zero value means failure.
So shouldn't the above usage rather be written as follows (just like
the example code show in the FPC documentation):
If (fpstat (pointer(FileName),Info)<>0) or fpS_ISDIR(info.st_mode) then
....
--
Regards,
- Graeme -
_______________________________________________
fpGUI - a cross-platform Free Pascal GUI toolkit
http://fpgui.sourceforge.net
_______________________________________________
fpc-devel maillist - [email protected]
http://lists.freepascal.org/mailman/listinfo/fpc-devel
