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

* compilation on atari fixed

Browse Source 
git-svn-id: trunk@44019 -
This commit is contained in:
florian 2020-01-22 19:06:26 +00:00
parent e790cb067d
commit f2618cb6a4
1 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/atari/sysutils.pp
View File

@ -82,8 +82,7 @@ var
begin begin
{ Fdatime doesn't report errors... } { Fdatime doesn't report errors... }
gemdos_fdatime(@td,handle,0); gemdos_fdatime(@td,handle,0);
LongRec(result).hi:=td.date; result:=(td.date shl 16) or td.time;
LongRec(result).lo:=td.time;
end; end;
@ -91,8 +90,8 @@ function FileSetDate(Handle: THandle; Age: Int64) : LongInt;
var var
td: TDOSTIME; td: TDOSTIME;
begin begin
td.date:=LongRec(Age).hi; td.date:=(Age shr 16) and $ffff;
td.time:=LongRec(Age).lo; td.time:=Age and $ffff;
gemdos_fdatime(@td,handle,1); gemdos_fdatime(@td,handle,1);
{ Fdatime doesn't report errors... } { Fdatime doesn't report errors... }
result:=0; result:=0;
@ -268,8 +267,7 @@ begin
Name:=d_fname; Name:=d_fname;
SetCodePage(Name,DefaultFileSystemCodePage,false); SetCodePage(Name,DefaultFileSystemCodePage,false);
LongRec(Rslt.Time).hi:=d_date; Rslt.Time:=(d_date shl 16) or d_time;
LongRec(Rslt.Time).lo:=d_time;
Rslt.Size:=d_length; Rslt.Size:=d_length;
{ "128" is Windows "NORMALFILE" attribute. Some buggy code depend on this... :( (KB) } { "128" is Windows "NORMALFILE" attribute. Some buggy code depend on this... :( (KB) }
@ -299,8 +297,7 @@ begin
Name:=d_fname; Name:=d_fname;
SetCodePage(Name,DefaultFileSystemCodePage,false); SetCodePage(Name,DefaultFileSystemCodePage,false);
LongRec(Rslt.Time).hi:=d_date; Rslt.Time:=(d_date shl 16) or d_time;
LongRec(Rslt.Time).lo:=d_time;
Rslt.Size:=d_length; Rslt.Size:=d_length;
{ "128" is Windows "NORMALFILE" attribute. Some buggy code depend on this... :( (KB) } { "128" is Windows "NORMALFILE" attribute. Some buggy code depend on this... :( (KB) }