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

m68k-amiga: while trying to construct ParamStr(0), if the directory is empty, do not prepend the binary name with '/'

Browse Source 
git-svn-id: trunk@44562 -
This commit is contained in:
Károly Balogh 2020-04-04 12:48:51 +00:00
parent e0fe8bd175
commit 433e40fe71
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/amicommon/paramhandling.inc
View File

@ -240,11 +240,16 @@ begin
if l = 0 then
begin
s1 := GetProgDir;
if length(s1) > 0 then
begin
if s1[Length(s1)] = ':' then
paramstr := s1 + GetProgramName
else
paramstr:=s1+'/'+GetProgramName;
end
else
paramstr:=GetProgramName;
end
else
begin
if (l > 0) and (l + 1 <= argc) then