paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 04:29:29 +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;
Path: PathStr;
FmtId: String;
Params: array[0..7] of LongInt;
Params: array[0..7] of PtrInt;
Str: String[80];
const
sDirectoryLine = ' %-12s %-9s %3s %2d, %4d %2d:%02d%cm';
@ -1158,12 +1158,12 @@ begin
Exit;
{ Display file }
Params[0] := LongInt(@S.Name);
Params[0] := PtrInt(@S.Name);
if S.Attr and Directory <> 0 then
begin
FmtId := sDirectoryLine;
D := Strings^.Get(sDirectory);
Params[1] := LongInt(@D);
Params[1] := PtrInt(@D);
end else
begin
FmtId := sFileLine;
@ -1171,7 +1171,7 @@ begin
end;
UnpackTime(S.Time, Time);
M := Month[Time.Month];
Params[2] := LongInt(@M);
Params[2] := PtrInt(@M);
Params[3] := Time.Day;
Params[4] := Time.Year;
PM := Time.Hour >= 12;