From 3c446c8605e4c95b22b761b9eb37f804760d6295 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sat, 16 Jul 2016 14:13:33 +0000
Subject: [PATCH]   * fixed crash when compiling libraries on non-Darwin after
 r34134

git-svn-id: trunk@34140 -
---
 compiler/pmodules.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/pmodules.pas b/compiler/pmodules.pas
index b9f2e3e5e2..4b4f8c1143 100644
--- a/compiler/pmodules.pas
+++ b/compiler/pmodules.pas
@@ -2031,7 +2031,7 @@ type
               { we need to call FPC_LIBMAIN in sysinit which in turn will call PascalMain }
               initname:=target_info.cprefix+'FPC_LIBMAIN'
             else
-              initname:=current_procinfo.procdef.mangledname;
+              initname:=main_procinfo.procdef.mangledname;
             { setinitname may generate a new section -> don't add to the
               current list, because we assume this remains a text section
               -- add to pure assembler section, so in case of special directives