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

* GetMsCount added, platform independent routines moved to single include file

Browse Source
This commit is contained in:
Tomas Hajny 2004-12-05 19:02:57 +00:00
parent 76c9411116
commit 4872364ac7
1 changed files with 28 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
rtl/inc/dosh.inc
View File

@ -14,6 +14,23 @@
**********************************************************************}
{$IFNDEF HAS_FILENAMELEN}
Const
FileNameLen = 255;
{$ENDIF HAS_FILENAMELEN}
{$IFDEF CPUI386}
{$IFNDEF HAS_REGISTERS}
type
Registers = packed record
case i : integer of
0 : (ax,f1,bx,f2,cx,f3,dx,f4,bp,f5,si,f51,di,f6,ds,f7,es,f8,flags,fs,gs : word);
1 : (al,ah,f9,f10,bl,bh,f11,f12,cl,ch,f13,f14,dl,dh : byte);
2 : (eax, ebx, ecx, edx, ebp, esi, edi : longint);
End;
{$ENDIF HAS_REGISTERS}
{$ENDIF CPUI386}
Const
{Bitmasks for CPU Flags}
fcarry = $0001;
@ -126,10 +143,20 @@ Procedure GetIntVec(intno: byte; var vector: pointer);
Procedure SetIntVec(intno: byte; vector: pointer);
Procedure Keep(exitcode: word);
{Additional (non-TP) function for quick access to system timer - for FV etc.}
Function GetMsCount: int64;
{Offset between two return values corresponds to amount of milliseconds
between the two calls, however the exact value is not guaranteed to have
particular meaning - it can be e.g. amount of milliseconds since computer
startup on DOS-like x86 platforms, derived from Unix time on Unix etc.}
{
$Log$
Revision 1.4 2004-05-03 18:00:24 hajny
Revision 1.5 2004-12-05 19:02:57 hajny
* GetMsCount added, platform independent routines moved to single include file
Revision 1.4 2004/05/03 18:00:24 hajny
* another global var to threadvar change, plus CVS log added
Revision 1.3 2004/02/15 21:34:06 hajny