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

* fixed 64 bit target

Browse Source
This commit is contained in:
florian 2004-12-19 18:02:33 +00:00
parent aa96eb6ceb
commit 19900fc813
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
fv/stddlg.pas
View File

@ -1120,7 +1120,7 @@ var
Time: DateTime; Time: DateTime;
Path: PathStr; Path: PathStr;
FmtId: String; FmtId: String;
Params: array[0..7] of LongInt; Params: array[0..7] of PtrInt;
Str: String[80]; Str: String[80];
const const
sDirectoryLine = ' %-12s %-9s %3s %2d, %4d %2d:%02d%cm'; sDirectoryLine = ' %-12s %-9s %3s %2d, %4d %2d:%02d%cm';
@ -1158,12 +1158,12 @@ begin
Exit; Exit;
{ Display file } { Display file }
Params[0] := LongInt(@S.Name); Params[0] := PtrInt(@S.Name);
if S.Attr and Directory <> 0 then if S.Attr and Directory <> 0 then
begin begin
FmtId := sDirectoryLine; FmtId := sDirectoryLine;
D := Strings^.Get(sDirectory); D := Strings^.Get(sDirectory);
Params[1] := LongInt(@D); Params[1] := PtrInt(@D);
end else end else
begin begin
FmtId := sFileLine; FmtId := sFileLine;
@ -1171,7 +1171,7 @@ begin
end; end;
UnpackTime(S.Time, Time); UnpackTime(S.Time, Time);
M := Month[Time.Month]; M := Month[Time.Month];
Params[2] := LongInt(@M); Params[2] := PtrInt(@M);
Params[3] := Time.Day; Params[3] := Time.Day;
Params[4] := Time.Year; Params[4] := Time.Year;
PM := Time.Hour >= 12; PM := Time.Hour >= 12;