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

* Correction of omissions in GetLocalTime

Browse Source 
git-svn-id: trunk@47529 -
This commit is contained in:
Tomas Hajny 2020-11-22 16:19:34 +00:00
parent ba84c70356
commit 10911173df
4 changed files with 15 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
rtl/emx/sysutils.pp
View File

@ -1097,30 +1097,33 @@ asm
mov ah, 2Ah
call syscall
{$IFDEF REGCALL}
pop eax
pop edi
{$ELSE REGCALL}
mov edi, SystemTime
{$ENDIF REGCALL}
mov ax, cx
stosw
xor eax, eax
mov al, 10
mul dl
xchg ax, cx
shl eax, 16
mov al, dh
stosd
mov al, dl
shl eax, 16
mov al, cl
stosd
push edi
mov ah, 2Ch
call syscall
pop edi
xor eax, eax
mov al, cl
shl eax, 16
mov al, ch
shl eax, 16
mov al, cl
stosd
mov al, dl
xor eax, eax
mov al, 10
mul dl
shl eax, 16
mov al, dh
rol eax, 16
stosd
pop edi
end {['eax', 'ecx', 'edx', 'edi']};

1
rtl/go32v2/sysutils.pp
View File

@ -659,6 +659,7 @@ begin
SystemTime.Year := Regs.Cx;
SystemTime.Month := Regs.Dh;
SystemTime.Day := Regs.Dl;
SystemTime.DayOfWeek := Regs.Al;
end ;

1
rtl/msdos/sysutils.pp
View File

@ -644,6 +644,7 @@ begin
SystemTime.Year := Regs.Cx;
SystemTime.Month := Regs.Dh;
SystemTime.Day := Regs.Dl;
SystemTime.DayOfWeek := Regs.Al;
end ;

1
rtl/watcom/sysutils.pp
View File

@ -650,6 +650,7 @@ begin
SystemTime.Year := Regs.Cx;
SystemTime.Month := Regs.Dh;
SystemTime.Day := Regs.Dl;
SystemTime.DayOfWeek := Regs.Al;
end ;