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

* use findunitsymtable() when checking the module id

Browse Source 
git-svn-id: trunk@34344 -
This commit is contained in:
svenbarth 2016-08-19 14:42:03 +00:00
parent 8b853571c6
commit 4a9eaf5317
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/hlcgobj.pas
View File

@ -3479,7 +3479,7 @@ implementation
result:=(tf_supports_packages in target_info.flags) and result:=(tf_supports_packages in target_info.flags) and
(target_info.system in systems_indirect_var_imports) and (target_info.system in systems_indirect_var_imports) and
(cs_imported_data in current_settings.localswitches) and (cs_imported_data in current_settings.localswitches) and
(t.owner.moduleid<>current_module.moduleid); (findunitsymtable(t.owner).moduleid<>current_module.moduleid);
end; end;
procedure thlcgobj.g_rangecheck(list: TAsmList; const l: tlocation; fromdef, todef: tdef); procedure thlcgobj.g_rangecheck(list: TAsmList; const l: tlocation; fromdef, todef: tdef);