mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-28 19:02:05 +02:00
* fixed crash when compiling libraries on non-Darwin after r34134
git-svn-id: trunk@34140 -
This commit is contained in:
parent
a8ad82b99f
commit
3c446c8605
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user