paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 08:30:54 +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

11
rtl/amicommon/paramhandling.inc
View File

@ -240,10 +240,15 @@ begin
if l = 0 then
begin
s1 := GetProgDir;
if s1[Length(s1)] = ':' then
paramstr := s1 + GetProgramName
if length(s1) > 0 then
begin
if s1[Length(s1)] = ':' then
paramstr := s1 + GetProgramName
else
paramstr:=s1+'/'+GetProgramName;
end
else
paramstr:=s1+'/'+GetProgramName;
paramstr:=GetProgramName;
end
else
begin