mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-12 22:14:25 +02:00
* fixed dos.getftime returning a wrong value for 'time' on i8086-msdos
git-svn-id: trunk@27159 -
This commit is contained in:
parent
ee34761646
commit
238c4f91d8
@ -874,7 +874,7 @@ begin
|
|||||||
dosregs.ax:=$5700;
|
dosregs.ax:=$5700;
|
||||||
msdos(dosregs);
|
msdos(dosregs);
|
||||||
loaddoserror;
|
loaddoserror;
|
||||||
time:=(dosregs.dx shl 16)+dosregs.cx;
|
time:=(longint(dosregs.dx) shl 16)+dosregs.cx;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user