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

+ Patch from Peter for millisecond timing

Browse Source
This commit is contained in:
michael 2003-06-03 07:54:27 +00:00
parent b84cead281
commit 7f072488e3
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/go32v2/sysutils.pp
View File

@ -593,7 +593,7 @@ begin
SystemTime.Hour := Regs.Ch;
SystemTime.Minute := Regs.Cl;
SystemTime.Second := Regs.Dh;
SystemTime.MilliSecond := Regs.Dl;
SystemTime.MilliSecond := Regs.Dl*10;
Regs.ah := $2A;
RealIntr($21, Regs);
SystemTime.Year := Regs.Cx;
@ -754,7 +754,10 @@ Finalization
end.
{
$Log$
Revision 1.15 2003-04-02 15:18:28 peter
Revision 1.16 2003-06-03 07:54:27 michael
+ Patch from Peter for millisecond timing
Revision 1.15 2003/04/02 15:18:28 peter
* fix argument names
Revision 1.14 2003/04/01 15:57:41 peter