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

git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@43306 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 1 insertions, 1 deletions

diff --git a/compiler/cfileutl.pas b/compiler/cfileutl.pas
index f0fffa12e4..d339e3897f 100644
--- a/compiler/cfileutl.pas
+++ b/compiler/cfileutl.pas
@@ -1076,7 +1076,7 @@ end;
          DePascalQuote(currPath);
          { GNU LD convention: if library search path starts with '=', it's relative to the
            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)
          else
            currPath:=sysroot+FixPath(currPath,false);