paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-07 10:09:10 +01:00
Code Issues Packages Projects Releases Wiki Activity

* SetFTime for OS/2 mode corrected

Browse Source
This commit is contained in:
Tomas Hajny 2000-07-06 18:57:40 +00:00
parent f449b4beaa
commit 2aea492dda
1 changed files with 32 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
rtl/os2/dos.pas
View File

@ -274,12 +274,27 @@ begin
end; end;
end; end;
procedure setftime(var f;time : longint); procedure SetFTime (var F; Time: longint);
var FStat: PFileStatus0;
RC: longint;
begin begin
if os_mode = osOS2 then if os_mode = osOS2 then
begin begin
{TODO!!! Must be done differently for OS/2 !!!} New (FStat);
RC := DosQueryFileInfo (TextRec (F).Handle, ilStandard, FStat,
SizeOf (FStat^));
if RC = 0 then
begin
FStat^.DateLastAccess := Hi (Time);
FStat^.DateLastWrite := Hi (Time);
FStat^.TimeLastAccess := Lo (Time);
FStat^.TimeLastWrite := Lo (Time);
RC := DosSetFileInfo (TextRec (F).Handle, ilStandard,
FStat, SizeOf (FStat^));
end;
Dispose (FStat);
end end
else else
asm asm
@ -473,7 +488,7 @@ begin
{$ASMMODE ATT} {$ASMMODE ATT}
{Environtment ready, now set-up exec structure.} {Environment ready, now set-up exec structure.}
es.argofs:=args; es.argofs:=args;
es.envofs:=env; es.envofs:=env;
asm asm
@ -524,23 +539,23 @@ asm
call syscall call syscall
end; end;
procedure getdate(var year,month,day,dayofweek:word); procedure GetDate (var Year, Month, Day, DayOfWeek: word);
begin begin
asm asm
movb $0x2a,%ah movb $0x2a, %ah
call syscall call syscall
xorb %ah,%ah xorb %ah, %ah
movl 20(%ebp),%edi movl DayOfWeek, %edi
stosw stosw
movl 16(%ebp),%edi movl Day, %edi
movb %dl,%al movb %dl, %al
stosw stosw
movl 12(%ebp),%edi movl Month, %edi
movb %dh,%al movb %dh, %al
stosw stosw
movl 8(%ebp),%edi movl Year, %edi
xchgw %ecx,%eax xchgw %ecx, %eax
stosw stosw
end; end;
end; end;
@ -1194,7 +1209,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.27 2000-06-05 18:50:55 hajny Revision 1.28 2000-07-06 18:57:40 hajny
* SetFTime for OS/2 mode corrected
Revision 1.27 2000/06/05 18:50:55 hajny
* SetDate, SetTime corrected * SetDate, SetTime corrected
Revision 1.26 2000/06/01 18:38:46 hajny Revision 1.26 2000/06/01 18:38:46 hajny