mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 00:28:23 +02:00
* yet more OS/2 API functions added
git-svn-id: trunk@29073 -
This commit is contained in:
Tomas Hajny
parent
537902c2fe
commit
8c7fc80580
@ -44,6 +44,30 @@ const
|
||||
BEGIN_LIBPATH = 1; (* The new path is searched before the LIBPATH. *)
|
||||
END_LIBPATH = 2; (* The new path is searched after the LIBPATH. *)
|
||||
|
||||
(* Constants for DosSuppressPopups *)
|
||||
SPU_DisableSuppression = 0;
|
||||
SPU_EnableSuppression = 1;
|
||||
|
||||
(* Constants for DosDumpProcess *)
|
||||
DDP_DisableProcDump = 0;
|
||||
DDP_EnableProcDump = 1;
|
||||
DDP_PerformProcDump = 2;
|
||||
|
||||
(* Constants for DosPerfSysCall *)
|
||||
Cmd_KI_Enable = $60;
|
||||
Cmd_KI_RdCnt = $63;
|
||||
Cmd_SoftTrace_Log = $14;
|
||||
|
||||
(* Constants for DosQueryABIOSSupport *)
|
||||
HW_Cfg_MCA = 1;
|
||||
HW_Cfg_EISA = 2;
|
||||
HW_Cfg_ABIOS_Supported = 4;
|
||||
HW_Cfg_ABIOS_Present = 8;
|
||||
HW_Cfg_PCI = 16;
|
||||
HW_Cfg_OEM_ABIOS = 32;
|
||||
HW_Cfg_IBM_ABIOS = 0;
|
||||
HW_Cfg_Pentium_CPU = 64;
|
||||
|
||||
|
||||
type
|
||||
TFileLockL = record
|
||||
@ -63,6 +87,18 @@ type
|
||||
end;
|
||||
PMPAffinity = ^TMPAffinity;
|
||||
|
||||
TCPUUtil = record
|
||||
TotalLow,
|
||||
TotalHigh,
|
||||
IdleLow,
|
||||
IdleHigh,
|
||||
BusyLow,
|
||||
BusyHigh,
|
||||
IntrLow,
|
||||
IntrHigh: cardinal;
|
||||
end;
|
||||
PCPUUtil = ^TCPUUtil;
|
||||
|
||||
|
||||
function DosOpenL (FileName: PChar; var Handle: THandle;
|
||||
var Action: cardinal; InitSize: int64;
|
||||
@ -942,6 +978,126 @@ Possible return codes:
|
||||
function DosSetExtLibPath (ExtLibPath: PChar; Flags: cardinal): cardinal;
|
||||
cdecl;
|
||||
|
||||
(*
|
||||
DosQueryModFromEIP queries a module handle and name from a given flat address.
|
||||
It takes a flat 32 bit address as a parameter and returns information about the
|
||||
module (a protected mode application currently executing) owning the storage.
|
||||
|
||||
Parameters:
|
||||
HMod = Address of a location in which the module handle is returned.
|
||||
ObjNum = Address of a cardinal where the module object number corresponding to
|
||||
the Address is returned. The object number is zero based.
|
||||
BuffLen = Length of the user supplied buffer pointed to by Buff.
|
||||
Buff = Address of a user supplied buffer in which the module name is returned.
|
||||
Offset = Address where the offset to the object corresponding to the Address is
|
||||
returned. The offset is zero based.
|
||||
Address = Input address to be queried.
|
||||
|
||||
Possible return codes:
|
||||
0 NO_ERROR
|
||||
87 ERROR_INVALID_PARAMETER
|
||||
487 ERROR_INVALID_ADDRESS
|
||||
*)
|
||||
function DosQueryModFromEIP (var HMod: THandle; var ObjNum: cardinal;
|
||||
BuffLen: cardinal; Buff: PChar; var Offset: cardinal;
|
||||
Address: PtrUInt): cardinal; cdecl;
|
||||
|
||||
|
||||
function DosDumpProcess (Flags: cardinal; Drive: cardinal;
|
||||
PID: cardinal): cardinal; cdecl;
|
||||
|
||||
|
||||
function DosSuppressPopups (Flags: cardinal;
|
||||
Drive: cardinal): cardinal; cdecl;
|
||||
|
||||
|
||||
(*
|
||||
DosPerfSysCall retrieves system performance information and performs software
|
||||
tracing.
|
||||
|
||||
Parameters:
|
||||
Command = Command to be performed; the following commands are accepted:
|
||||
CMD_KI_RDCNT ($63) - reads CPU utilization information in both uniprocessor
|
||||
and symmetric multi-processor (SMP) environments by
|
||||
taking a snapshot of the time stamp counters. To
|
||||
determine CPU utilization, the application must compute
|
||||
the difference between two time stamp snapshots using 64
|
||||
bit aritimetic.
|
||||
CMD_SOFTTRACE_LOG ($14) - records software trace information.
|
||||
Parm1 (CPUUtil) = Command-specific. In case of CMD_KI_RDCNT, pointer to
|
||||
TCPUUtil record. In case of CMD_SOFTTRACE_LOG, major code for
|
||||
the trace entry in the range of 0 to 255. Major codes 184
|
||||
($B8) and 185 ($B9) have been reserved for IBM customer use.
|
||||
Major code 1 is reserved for exclusive use by IBM.
|
||||
Parm2 = Command-specific. In case of CMD_KI_RdCnt, it must be 0. In case of
|
||||
CMD_SOFTTRACE_LOG, minor code for the trace entry in the range of
|
||||
0 to 255.
|
||||
Parm3 (HookData) = Command-specific. In case of CMD_KI_RdCnt, it must be 0. In
|
||||
case of CMD_SOFTTRACE_LOG, pointer to a HOOKDATA data
|
||||
structure (see example code).
|
||||
|
||||
Possible return codes:
|
||||
0 NO_ERROR
|
||||
1 ERROR_INVALID_FUNCTION
|
||||
|
||||
Remarks:
|
||||
DosPerfSysCall is a general purpose performance function. This function accepts
|
||||
four parameters. The first parameter is the command requested. The other three
|
||||
parameters are command specific.
|
||||
|
||||
Some functions of DosPerfSysCall may have a dependency on Intel Pentium or
|
||||
Pentium-Pro (or higher) support. If a function cannot be provided because OS/2
|
||||
is not running on a processor with the required features, a return code will
|
||||
indicate an attempt to use an unsupported function.
|
||||
|
||||
Example code (C):
|
||||
int main (int argc, char *argv[])
|
||||
{
|
||||
APIRET rc;
|
||||
BYTE HookBuffer [256];
|
||||
HOOKDATA Hookdata = {0,HookBuffer};
|
||||
ULONG ulMajor, ulMinor;
|
||||
*((PULONG) HookBuffer[0]) = 1;
|
||||
*((PULONG) HookBuffer[4]) = 2;
|
||||
*((PULONG) HookBuffer[8]) = 3;
|
||||
strcpy((PSZ HookBuffer[12], "Test of 3 ULONG values and a string.")
|
||||
HookData.ulLength = 12 + strlen((PSZ HookBuffer[12]) + 1;
|
||||
|
||||
ulMajor = 0x00b8
|
||||
ulMinor = 0x0001
|
||||
|
||||
rc = DosPerfSystCall(CMD_SOFTTRACE_LOG, ulMajor, ulMinor, (ULONG) HookData);
|
||||
if (rc != NO_ERROR) {
|
||||
fprintf (stderr, "CMD_SOFTTRACE_LOG failed rc = %u\n", rc);
|
||||
return 1;
|
||||
}
|
||||
|
||||
return NO_ERROR;
|
||||
}
|
||||
*)
|
||||
function DosPerfSysCall (Command, Parm1, Parm2,
|
||||
Parm3: cardinal): cardinal; cdecl;
|
||||
function DosPerfSysCall (Command, Parm1, Parm2: cardinal;
|
||||
var HookData): cardinal; cdecl;
|
||||
function DosPerfSysCall (Command: cardinal; var CpuUtil: TCPUUtil; Parm2,
|
||||
Parm3: cardinal): cardinal; cdecl;
|
||||
|
||||
|
||||
function DosQueryThreadContext (TID: cardinal; Level: cardinal;
|
||||
var ContextRecord: TContextRecord): cardinal; cdecl;
|
||||
|
||||
|
||||
(*
|
||||
DosQueryABIOSSupport returns flags that indicate various basic hardware
|
||||
configurations.
|
||||
|
||||
Parameters:
|
||||
Reserved = Must be set to 0, no other value is defined.
|
||||
|
||||
The result of this function contains combination of flags (HW_Cfg_* constants)
|
||||
signalizing the underlying hardware configuration.
|
||||
*)
|
||||
function DosQueryABIOSSupport (Reserved: cardinal): cardinal; cdecl;
|
||||
|
||||
|
||||
{***************************************************************************}
|
||||
@ -1205,12 +1361,59 @@ end;
|
||||
|
||||
|
||||
function DummyDosSetExtLibPath (ExtLibPath: PChar; Flags: cardinal): cardinal;
|
||||
cdecl; inline;
|
||||
cdecl;
|
||||
begin
|
||||
DummyDosSetExtLibPath := Error_Not_Enough_Memory;
|
||||
end;
|
||||
|
||||
|
||||
function DummyDosQueryModFromEIP (var HMod: THandle; var ObjNum: cardinal;
|
||||
BuffLen: cardinal; Buff: PChar; var Offset: cardinal;
|
||||
Address: PtrUInt): cardinal; cdecl;
|
||||
begin
|
||||
DummyDosQueryModFromEIP := Error_Invalid_Parameter;
|
||||
HMod := THandle (-1);
|
||||
ObjNum := 0;
|
||||
if Buff <> nil then
|
||||
Buff^ := #0;
|
||||
Offset := 0;
|
||||
end;
|
||||
|
||||
|
||||
function DummyDosDumpProcess (Flags: cardinal; Drive: cardinal;
|
||||
PID: cardinal): cardinal; cdecl;
|
||||
begin
|
||||
DummyDosDumpProcess := Error_Invalid_Function;
|
||||
end;
|
||||
|
||||
|
||||
function DummyDosSuppressPopups (Flags: cardinal;
|
||||
Drive: cardinal): cardinal; cdecl;
|
||||
begin
|
||||
DummyDosSuppressPopups := Error_Invalid_Function;
|
||||
end;
|
||||
|
||||
|
||||
function DummyDosPerfSysCall (Command, Parm1, Parm2,
|
||||
Parm3: cardinal): cardinal; cdecl;
|
||||
begin
|
||||
DummyDosPerfSysCall := Error_Invalid_Function;
|
||||
end;
|
||||
|
||||
|
||||
function DummyDosQueryThreadContext (TID: cardinal; Level: cardinal;
|
||||
var ContextRecord: TContextRecord): cardinal; cdecl;
|
||||
begin
|
||||
DummyDosQueryThreadContext := Error_Invalid_Function;
|
||||
end;
|
||||
|
||||
|
||||
function DummyDosQueryABIOSSupport (Reserved: cardinal): cardinal; cdecl;
|
||||
begin
|
||||
DummyDosQueryABIOSSupport := 0;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
type
|
||||
TDosProtectOpen = function (FileName: PChar; var Handle: THandle;
|
||||
@ -1299,6 +1502,24 @@ type
|
||||
TDosSetExtLibPath = function (ExtLibPath: PChar; Flags: cardinal): cardinal;
|
||||
cdecl;
|
||||
|
||||
TDosQueryModFromEIP = function (var HMod: THandle; var ObjNum: cardinal;
|
||||
BuffLen: cardinal; Buff: PChar; var Offset: cardinal;
|
||||
Address: PtrUInt): cardinal; cdecl;
|
||||
|
||||
TDosDumpProcess = function (Flags: cardinal; Drive: cardinal;
|
||||
PID: cardinal): cardinal; cdecl;
|
||||
|
||||
TDosSuppressPopups = function (Flags: cardinal;
|
||||
Drive: cardinal): cardinal; cdecl;
|
||||
|
||||
TDosPerfSysCall = function (Command, Parm1, Parm2,
|
||||
Parm3: cardinal): cardinal; cdecl;
|
||||
|
||||
TDosQueryThreadContext = function (TID: cardinal; Level: cardinal;
|
||||
var ContextRecord: TContextRecord): cardinal; cdecl;
|
||||
|
||||
TDosQueryABIOSSupport = function (Reserved: cardinal): cardinal; cdecl;
|
||||
|
||||
|
||||
|
||||
const
|
||||
@ -1339,6 +1560,13 @@ const
|
||||
Sys_DosSetThreadAffinity: TDosSetThreadAffinity = @DummyDosSetThreadAffinity;
|
||||
Sys_DosQueryExtLibPath: TDosQueryExtLibPath = @DummyDosQueryExtLibPath;
|
||||
Sys_DosSetExtLibPath: TDosSetExtLibPath = @DummyDosSetExtLibPath;
|
||||
Sys_DosQueryModFromEIP: TDosQueryModFromEIP = @DummyDosQueryModFromEIP;
|
||||
Sys_DosDumpProcess: TDosDumpProcess = @DummyDosDumpProcess;
|
||||
Sys_DosSuppressPopups: TDosSuppressPopups = @DummyDosSuppressPopups;
|
||||
Sys_DosPerfSysCall: TDosPerfSysCall = @DummyDosPerfSysCall;
|
||||
Sys_DosQueryThreadContext: TDosQueryThreadContext =
|
||||
@DummyDosQueryThreadContext;
|
||||
Sys_DosQueryABIOSSupport: TDosQueryABIOSSupport = @DummyDosQueryABIOSSupport;
|
||||
|
||||
|
||||
|
||||
@ -1678,6 +1906,66 @@ begin
|
||||
end;
|
||||
|
||||
|
||||
function DosQueryModFromEIP (var HMod: THandle; var ObjNum: cardinal;
|
||||
BuffLen: cardinal; Buff: PChar; var Offset: cardinal;
|
||||
Address: PtrUInt): cardinal; cdecl; inline;
|
||||
begin
|
||||
DosQueryModFromEIP := Sys_DosQueryModFromEIP (HMod, ObjNum, BuffLen, Buff,
|
||||
Offset, Address);
|
||||
end;
|
||||
|
||||
|
||||
function DosDumpProcess (Flags: cardinal; Drive: cardinal;
|
||||
PID: cardinal): cardinal; cdecl; inline;
|
||||
begin
|
||||
DosDumpProcess := Sys_DosDumpProcess (Flags, Drive, PID);
|
||||
end;
|
||||
|
||||
|
||||
function DosSuppressPopups (Flags: cardinal;
|
||||
Drive: cardinal): cardinal; cdecl; inline;
|
||||
begin
|
||||
DosSuppressPopups := Sys_DosSuppressPopups (Flags, Drive);
|
||||
end;
|
||||
|
||||
|
||||
function DosPerfSysCall (Command, Parm1, Parm2,
|
||||
Parm3: cardinal): cardinal; cdecl; inline;
|
||||
begin
|
||||
DosPerfSysCall := Sys_DosPerfSysCall (Command, Parm1, Parm2, Parm3);
|
||||
end;
|
||||
|
||||
|
||||
function DosPerfSysCall (Command, Parm1, Parm2: cardinal;
|
||||
var HookData): cardinal; cdecl;
|
||||
begin
|
||||
DosPerfSysCall := Sys_DosPerfSysCall (Command, Parm1, Parm2,
|
||||
PtrUInt (HookData));
|
||||
end;
|
||||
|
||||
|
||||
function DosPerfSysCall (Command: cardinal; var CpuUtil: TCPUUtil; Parm2,
|
||||
Parm3: cardinal): cardinal; cdecl;
|
||||
begin
|
||||
DosPerfSysCall := Sys_DosPerfSysCall (Command, PtrUInt (@CPUUtil), Parm2,
|
||||
Parm3);
|
||||
end;
|
||||
|
||||
|
||||
function DosQueryThreadContext (TID: cardinal; Level: cardinal;
|
||||
var ContextRecord: TContextRecord): cardinal; cdecl; inline;
|
||||
begin
|
||||
DosQueryThreadContext := Sys_DosQueryThreadContext (TID, Level,
|
||||
ContextRecord);
|
||||
end;
|
||||
|
||||
|
||||
function DosQueryABIOSSupport (Reserved: cardinal): cardinal; cdecl; inline;
|
||||
begin
|
||||
DosQueryABIOSSupport := Sys_DosQueryABIOSSupport (Reserved);
|
||||
end;
|
||||
|
||||
|
||||
var
|
||||
P: pointer;
|
||||
|
||||
@ -1764,6 +2052,22 @@ begin
|
||||
if DosQueryProcAddr (DosCallsHandle, Ord_Dos32SetExtLibPath, nil,
|
||||
P) = 0 then
|
||||
Sys_DosSetExtLibPath := TDosSetExtLibPath (P);
|
||||
if DosQueryProcAddr (DosCallsHandle, Ord_Dos32QueryModFromEIP, nil,
|
||||
P) = 0 then
|
||||
Sys_DosQueryModFromEIP := TDosQueryModFromEIP (P);
|
||||
if DosQueryProcAddr (DosCallsHandle, Ord_Dos32DumpProcess, nil, P) = 0 then
|
||||
Sys_DosDumpProcess := TDosDumpProcess (P);
|
||||
if DosQueryProcAddr (DosCallsHandle, Ord_Dos32SuppressPopups, nil,
|
||||
P) = 0 then
|
||||
Sys_DosSuppressPopups := TDosSuppressPopups (P);
|
||||
if DosQueryProcAddr (DosCallsHandle, Ord_Dos32PerfSysCall, nil, P) = 0 then
|
||||
Sys_DosPerfSysCall := TDosPerfSysCall (P);
|
||||
if DosQueryProcAddr (DosCallsHandle, Ord_Dos32QueryThreadContext, nil,
|
||||
P) = 0 then
|
||||
Sys_DosQueryThreadContext := TDosQueryThreadContext (P);
|
||||
if DosQueryProcAddr (DosCallsHandle, Ord_Dos32QueryABIOSSupport, nil,
|
||||
P) = 0 then
|
||||
Sys_DosQueryABIOSSupport := TDosQueryABIOSSupport (P);
|
||||
end.
|
||||
|
||||
(*
|
||||
@ -1792,7 +2096,7 @@ x Dos32SetProcessorStatus | DOSCALLS | SMP | SMP
|
||||
Dos32TestPSD | DOSCALLS | SMP | SMP
|
||||
|
||||
x Dos32QueryThreadAffinity | DOSCALLS | PROC | 2.45
|
||||
Dos32QueryThreadContext | DOSCALLS | XCPT | 2.40
|
||||
(x) Dos32QueryThreadContext | DOSCALLS | XCPT | 2.40
|
||||
x Dos32SetThreadAffinity | DOSCALLS | PROC | 2.45
|
||||
|
||||
Dos32AllocThreadLocalMemory | DOSCALLS | PROC | 2.30
|
||||
@ -1811,7 +2115,7 @@ x Dos32ProtectSetFilePtr | DOSCALLS | FILE | 2.10
|
||||
x Dos32ProtectSetFileSize | DOSCALLS | FILE | 2.10
|
||||
x Dos32ProtectWrite | DOSCALLS | FILE | 2.10
|
||||
Dos32QueryABIOSSupport | DOSCALLS | MOD | 2.10
|
||||
Dos32QueryModFromEIP | DOSCALLS | MOD | 2.10
|
||||
Dos32SuppressPopUps | DOSCALLS | MISC | 2.10
|
||||
(x) Dos32QueryModFromEIP | DOSCALLS | MOD | 2.10
|
||||
(x) Dos32SuppressPopUps | DOSCALLS | MISC | 2.10
|
||||
Dos32VerifyPidTid | DOSCALLS | MISC | 2.30
|
||||
*)
|
||||
|
||||
Loading…
Reference in New Issue
Block a user