Hello,
In https://www.freepascal.org/docs-html/rtl/sysutils/filenameroutines.html ,
FileSetDate <https://www.freepascal.org/docs-html/rtl/sysutils/filesetdate.html>Get file dates should be
corrected to _S_et .
Now, my real problem is that the following code is compiled when SYS is not defined, and isn't when it
is, and I really don't know why.
PROGRAM QQ;
{ $DEFINE SYS}
USES
{$IFDEF SYS}
SYSUTILS;
{$ELSE}
DOS;
{$ENDIF}
VAR
FO: FILE OF DOUBLE;
L: LONGINT;
BEGIN
ASSIGN(FO, 'blabla.bin');
RESET(FO);
{$IFDEF SYS}
L:=FILEGETDATE(FO); { Got File, expected LongInt }
{$ELSE}
GETFTIME(FO, L);
{$ENDIF}
CLOSE(FO);
END.
Well, it appears that I prbably haven't fully understand the dos->sysutils
conversion.
Cheers, Ched'
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
