paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 12:46:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Setup ExecPathStr for ParamStr(0)

Browse Source
This commit is contained in:
peter 2002-12-27 18:36:16 +00:00
parent 3a72a71c80
commit a6180062a4
1 changed files with 25 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
rtl/linux/system.pp
View File

@ -91,6 +91,26 @@ begin
OpenStdIO(StdErr,fmOutput,StdErrorHandle); OpenStdIO(StdErr,fmOutput,StdErrorHandle);
end; end;
procedure SysInitExecPath;
var
hs : string[16];
link : string;
i : longint;
begin
str(Fpgetpid,hs);
hs:='/proc/'+hs+'/exe'#0;
i:=Fpreadlink(@hs[1],@link[1],high(link));
{ it must also be an absolute filename, linux 2.0 points to a memory
location so this will skip that }
if (i>0) and (link[1]='/') then
begin
link[0]:=chr(i);
ExecPathStr:=link;
end;
end;
Begin Begin
IsConsole := TRUE; IsConsole := TRUE;
IsLibrary := FALSE; IsLibrary := FALSE;
@ -103,6 +123,7 @@ Begin
SysInitExceptions; SysInitExceptions;
{ Arguments } { Arguments }
SetupCmdLine; SetupCmdLine;
SysInitExecPath;
{ Setup stdin, stdout and stderr } { Setup stdin, stdout and stderr }
SysInitStdIO; SysInitStdIO;
{ Reset IO Error } { Reset IO Error }
@ -114,7 +135,10 @@ End.
{ {
$Log$ $Log$
Revision 1.5 2002-12-18 20:42:29 peter Revision 1.6 2002-12-27 18:36:16 peter
* Setup ExecPathStr for ParamStr(0)
Revision 1.5 2002/12/18 20:42:29 peter
* initial stacklen setup * initial stacklen setup
Revision 1.3 2002/12/18 16:44:09 marco Revision 1.3 2002/12/18 16:44:09 marco