paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 05:10:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* symbols called by g_call might need to be imported from dynamic packages as well

Browse Source 
git-svn-id: trunk@43538 -
This commit is contained in:
svenbarth 2019-11-21 21:44:29 +00:00
parent 85637ad5fa
commit 6f584333e5
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/cgobj.pas
View File

@ -578,8 +578,8 @@ unit cgobj;
implementation
uses
globals,systems,
verbose,paramgr,symsym,
globals,systems,fmodule,
verbose,paramgr,symsym,symtable,
tgobj,cutils,procinfo;
{*****************************************************************************
@ -2817,6 +2817,8 @@ implementation
procedure tcg.g_call(list: TAsmList;const s: string);
begin
allocallcpuregisters(list);
if systemunit<>current_module.globalsymtable then
current_module.add_extern_asmsym(s,AB_EXTERNAL,AT_FUNCTION);
a_call_name(list,s,false);
deallocallcpuregisters(list);
end;