paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 20:39:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* GetProcessID implemented

Browse Source
This commit is contained in:
Károly Balogh 2004-12-14 21:01:16 +00:00
parent 09f03aae9a
commit 50b086d81d
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/morphos/system.pp
View File

@ -832,8 +832,7 @@ end;
function GetProcessID: SizeUInt; function GetProcessID: SizeUInt;
begin begin
GetProcessID := 1; GetProcessID:=SizeUInt(FindTask(NIL));
{$WARNING Implementation of GetProcessID missing!}
end; end;
@ -869,7 +868,10 @@ end.
{ {
$Log$ $Log$
Revision 1.26 2004-12-07 10:07:50 karoly Revision 1.27 2004-12-14 21:01:16 karoly
* GetProcessID implemented
Revision 1.26 2004/12/07 10:07:50 karoly
* removed debug code accidentally left in * removed debug code accidentally left in
Revision 1.25 2004/12/07 09:55:46 karoly Revision 1.25 2004/12/07 09:55:46 karoly