paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 23:00:13 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/amicommon/dos.pp
View File

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