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

* fixed execpathstr setting

Browse Source
This commit is contained in:
peter 2004-07-09 22:31:22 +00:00
parent a939095dbe
commit 52fa49866d
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/linux/system.pp
View File

@ -148,10 +148,10 @@ procedure SysInitExecPath;
var
i : longint;
begin
i:=Fpreadlink('/proc/self/exe',@execpathstr,high(execpathstr));
execpathstr[0]:=#0;
i:=Fpreadlink('/proc/self/exe',@execpathstr[1],high(execpathstr));
{ it must also be an absolute filename, linux 2.0 points to a memory
location so this will skip that }
execpathstr[0]:=#0;
if (i>0) and (execpathstr[1]='/') then
execpathstr[0]:=char(i);
end;
@ -184,7 +184,10 @@ End.
{
$Log$
Revision 1.17 2004-07-08 21:22:15 daniel
Revision 1.18 2004-07-09 22:31:22 peter
* fixed execpathstr setting
Revision 1.17 2004/07/08 21:22:15 daniel
* Tweaking...
Revision 1.16 2004/07/08 19:45:42 daniel