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

amiga-m68k: minimal tweaks and formatting to the dos unit

Browse Source 
git-svn-id: trunk@44416 -
This commit is contained in:
Károly Balogh 2020-03-30 00:40:20 +00:00
parent 375cc2b443
commit 3031a4da31
1 changed files with 5 additions and 5 deletions

10
rtl/amicommon/dos.pp
View File

@ -230,7 +230,7 @@ begin
dosSetProtection:=SetProtection(buffer,mask) <> 0;
end;
function dosSetFileDate(name: string; p : PDateStamp): Boolean;
function dosSetFileDate(const name: string; p : PDateStamp): Boolean;
var
buffer : array[0..255] of Char;
begin
@ -405,11 +405,11 @@ begin
tr^.tr_node.io_Command := TR_GETSYSTIME;
DoIO(pIORequest(tr));
{ structure assignment }
tv^ := tr^.tr_time;
{ structure assignment }
tv^ := tr^.tr_time;
delete_timer(tr);
get_sys_time := 0;
delete_timer(tr);
get_sys_time := 0;
end;
procedure GetDate(Var Year, Month, MDay, WDay: Word);