From 429b3744c473e1197b88b3dd2cd25af26a766e57 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sun, 29 Mar 2020 14:52:45 +0000
Subject: [PATCH]   * fpc: don't search for compiler binary in current
 directory when paramstr(0)     does not contain a path (unless the current
 directory is also in the PATH)

git-svn-id: trunk@44395 -
---
 compiler/utils/fpc.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/utils/fpc.pp b/compiler/utils/fpc.pp
index 06cfa13111..4ea00a4c8f 100644
--- a/compiler/utils/fpc.pp
+++ b/compiler/utils/fpc.pp
@@ -94,7 +94,7 @@ program fpc;
          ppcbin:=extrapath+ppcbin;
          findexe:=true;
        end
-      else if FileExists(path+ppcbin) then
+      else if (path<>'') and FileExists(path+ppcbin) then
        begin
          ppcbin:=path+ppcbin;
          findexe:=true;