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

* fixed GetProcessId

Browse Source
This commit is contained in:
armin 2004-12-07 11:04:42 +00:00
parent b14718e7c5
commit 6173c21df0
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/netware/nwsys.inc
View File

@ -74,6 +74,7 @@ function _SuspendThread(threadID:longint):longint; cdecl;external ThreadsNlm nam
function _GetThreadID:longint; cdecl;external ThreadsNlm name 'GetThreadID';
procedure _ThreadSwitchWithDelay; cdecl;external ThreadsNlm name 'ThreadSwitchWithDelay';
function _GetThreadName(threadID:longint; var tName):longint; cdecl;external ThreadsNlm name 'GetThreadName';
function GetNLMHandle:dword; cdecl;external ThreadsNlm name 'GetNLMHandle';
(*
PROCEDURE ConsolePrintf (FormatStr : PCHAR; Param : LONGINT); CDecl; EXTERNAL CLib Name 'ConsolePrintf';
PROCEDURE ConsolePrintf (FormatStr : PCHAR; Param : pchar); CDecl; EXTERNAL CLib Name 'ConsolePrintf';
@ -370,7 +371,10 @@ function spawnvp(mode:longint; path:Pchar; argv:PPchar):longint;cdecl;external C
{
$Log$
Revision 1.12 2004-11-25 12:32:08 armin
Revision 1.13 2004-12-07 11:04:42 armin
* fixed GetProcessId
Revision 1.12 2004/11/25 12:32:08 armin
* adapted to new compiler check for externals
Revision 1.11 2004/09/26 19:25:49 armin

8
rtl/netware/system.pp
View File

@ -931,8 +931,7 @@ end;
function GetProcessID: SizeUInt;
begin
GetProcessID := SizeUInt (CurrentProcess);
{$WARNING GetProcessID implementation should be checked!}
GetProcessID := SizeUInt (GetNlmHandle);
end;
@ -985,7 +984,10 @@ Begin
End.
{
$Log$
Revision 1.32 2004-12-05 14:36:37 hajny
Revision 1.33 2004-12-07 11:04:42 armin
* fixed GetProcessId
Revision 1.32 2004/12/05 14:36:37 hajny
+ GetProcessID added
Revision 1.31 2004/11/25 12:32:08 armin