paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 16:49:00 +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
{ Fdatime doesn't report errors... }
gemdos_fdatime(@td,handle,0);
LongRec(result).hi:=td.date;
LongRec(result).lo:=td.time;
result:=(td.date shl 16) or td.time;
end;
@ -91,8 +90,8 @@ function FileSetDate(Handle: THandle; Age: Int64) : LongInt;
var
td: TDOSTIME;
begin
td.date:=LongRec(Age).hi;
td.time:=LongRec(Age).lo;
td.date:=(Age shr 16) and $ffff;
td.time:=Age and $ffff;
gemdos_fdatime(@td,handle,1);
{ Fdatime doesn't report errors... }
result:=0;
@ -268,8 +267,7 @@ begin
Name:=d_fname;
SetCodePage(Name,DefaultFileSystemCodePage,false);
LongRec(Rslt.Time).hi:=d_date;
LongRec(Rslt.Time).lo:=d_time;
Rslt.Time:=(d_date shl 16) or d_time;
Rslt.Size:=d_length;
{ "128" is Windows "NORMALFILE" attribute. Some buggy code depend on this... :( (KB) }
@ -299,8 +297,7 @@ begin
Name:=d_fname;
SetCodePage(Name,DefaultFileSystemCodePage,false);
LongRec(Rslt.Time).hi:=d_date;
LongRec(Rslt.Time).lo:=d_time;
Rslt.Time:=(d_date shl 16) or d_time;
Rslt.Size:=d_length;
{ "128" is Windows "NORMALFILE" attribute. Some buggy code depend on this... :( (KB) }