paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 06:59:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use the module's filename instead of the passed in name (we assume all units added that way don't use the

Browse Source 
ability to have a different module name to their filename)

git-svn-id: trunk@38912 -
This commit is contained in:
svenbarth 2018-05-05 17:18:29 +00:00
parent e59e9e2a0a
commit c0dcb505e2
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/pmodules.pas
View File

@ -188,7 +188,7 @@ implementation
assigned(hp.globalmacrosymtable) then assigned(hp.globalmacrosymtable) then
macrosymtablestack.push(hp.globalmacrosymtable); macrosymtablestack.push(hp.globalmacrosymtable);
{ insert unitsym } { insert unitsym }
unitsym:=cunitsym.create(s,hp,true); unitsym:=cunitsym.create(hp.modulename^,hp,true);
inc(unitsym.refs); inc(unitsym.refs);
tabstractunitsymtable(current_module.localsymtable).insertunit(unitsym); tabstractunitsymtable(current_module.localsymtable).insertunit(unitsym);
if addasused then if addasused then