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

* warning about SetDate added (TODO)

Browse Source
This commit is contained in:
Tomas Hajny 2000-06-01 18:38:46 +00:00
parent 8a68f96c56
commit 9b8162972f
1 changed files with 35 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
rtl/os2/dos.pas
View File

@ -277,6 +277,11 @@ end;
procedure setftime(var f;time : longint); procedure setftime(var f;time : longint);
begin begin
if os_mode = osOS2 then
begin
{!!! Must be done differently for OS/2 !!!}
end
else
asm asm
{Load handle} {Load handle}
movl f,%ebx movl f,%ebx
@ -543,7 +548,11 @@ end;
procedure setdate(year,month,day : word); procedure setdate(year,month,day : word);
begin begin
{DOS only! You cannot change the system date in OS/2!} if os_mode = osOS2 then
begin
{TODO: !!! Must be done differently for OS/2 !!!}
end
else
asm asm
movw 8(%ebp),%cx movw 8(%ebp),%cx
movb 10(%ebp),%dh movb 10(%ebp),%dh
@ -1174,7 +1183,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.25 2000-05-28 18:20:16 hajny Revision 1.26 2000-06-01 18:38:46 hajny
* warning about SetDate added (TODO)
Revision 1.25 2000/05/28 18:20:16 hajny
* DiskFree/DiskSize updated * DiskFree/DiskSize updated
Revision 1.24 2000/05/21 16:06:38 hajny Revision 1.24 2000/05/21 16:06:38 hajny