paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 17:59:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ GetProcessID added

Browse Source
This commit is contained in:
Tomas Hajny 2004-12-05 18:57:05 +00:00
parent cf1782e628
commit 0d835181b2
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/palmos/system.pp
View File

@ -98,13 +98,21 @@ Procedure system_exit;
begin
end;
function GetProcessID: SizeUInt;
begin
GetProcessID := 1;
end;
begin
ExitCode:=0;
end.
{
$Log$
Revision 1.5 2004-09-03 19:26:52 olle
Revision 1.6 2004-12-05 18:57:05 hajny
+ GetProcessID added
Revision 1.5 2004/09/03 19:26:52 olle
+ added maxExitCode to all System.pp
* constrained error code to be below maxExitCode in RunError et. al.