paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 06:49:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use cg.g_external_wrapper() rather than cg.a_jmp_name() to generate stubs

Browse Source 
for alternate shared library function names (corrects them on at least
    AIX and Linux/ppc64)

git-svn-id: trunk@20816 -
This commit is contained in:
Jonas Maebe 2012-04-11 18:04:31 +00:00
parent c26ff16c1e
commit cf2ffdce1a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/expunix.pas
View File

@ -167,7 +167,7 @@ begin
{$endif x86}
end
else
cg.a_jmp_name(current_asmdata.asmlists[al_procedures],pd.mangledname);
cg.g_external_wrapper(current_asmdata.asmlists[al_procedures],pd,pd.mangledname);
current_asmdata.asmlists[al_procedures].concat(Tai_symbol_end.Createname(hp2.name^));
end;
exportedsymnames.insert(hp2.name^);