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

Avoid GPF if currPath is empty in AddPath method, as this is accepted and handled later

Browse Source 
git-svn-id: trunk@43306 -
This commit is contained in:
pierre 2019-10-23 10:39:49 +00:00
parent d80734b412
commit 5bfebeea4e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/cfileutl.pas
View File

@ -1076,7 +1076,7 @@ end;
DePascalQuote(currPath); DePascalQuote(currPath);
{ GNU LD convention: if library search path starts with '=', it's relative to the { GNU LD convention: if library search path starts with '=', it's relative to the
sysroot; otherwise, interpret it as a regular path } sysroot; otherwise, interpret it as a regular path }
if currPath[1]='=' then if (length(currPath) >0) and (currPath[1]='=') then
currPath:=sysroot+FixPath(copy(currPath,2,length(currPath)-1),false) currPath:=sysroot+FixPath(copy(currPath,2,length(currPath)-1),false)
else else
currPath:=sysroot+FixPath(currPath,false); currPath:=sysroot+FixPath(currPath,false);