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

* paramstr(0) fix for linux 2.0 kernels (merged)

Browse Source
This commit is contained in:
peter 2000-08-05 18:33:51 +00:00
parent 195bc075eb
commit b601e36f55
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/linux/syslinux.pp
View File

@ -98,7 +98,9 @@ begin
str(sys_getpid,hs); str(sys_getpid,hs);
hs:='/proc/'+hs+'/exe'#0; hs:='/proc/'+hs+'/exe'#0;
i:=Sys_readlink(@hs[1],@link[1],high(link)); i:=Sys_readlink(@hs[1],@link[1],high(link));
if i>0 then { 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 begin
link[0]:=chr(i); link[0]:=chr(i);
paramstr:=link; paramstr:=link;
@ -787,7 +789,10 @@ End.
{ {
$Log$ $Log$
Revision 1.3 2000-07-14 10:33:10 michael Revision 1.4 2000-08-05 18:33:51 peter
* paramstr(0) fix for linux 2.0 kernels (merged)
Revision 1.3 2000/07/14 10:33:10 michael
+ Conditionals fixed + Conditionals fixed
Revision 1.2 2000/07/13 11:33:49 michael Revision 1.2 2000/07/13 11:33:49 michael