From 0dabe496019e970e657cc95f3c34d45ddc3fe4ef Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 22 Dec 2019 23:34:22 +0000
Subject: [PATCH]   * fix building on non-unix/windows targets

git-svn-id: trunk@43711 -
---
 rtl/inc/heaptrc.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rtl/inc/heaptrc.pp b/rtl/inc/heaptrc.pp
index 977710cedd..c87f591fad 100644
--- a/rtl/inc/heaptrc.pp
+++ b/rtl/inc/heaptrc.pp
@@ -1286,7 +1286,7 @@ begin
   if sz>0 then
     setstring(GetModuleName,PAnsiChar(@buf),sz)
 {$else}
-  Result:=ParamStr(0);
+  GetModuleName:=ParamStr(0);
 {$endif}
 end;