瀏覽代碼

* use the module's filename instead of the passed in name (we assume all units added that way don't use the
ability to have a different module name to their filename)

git-svn-id: trunk@38912 -

svenbarth 7 年之前
父節點
當前提交
c0dcb505e2
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      compiler/pmodules.pas

+ 1 - 1
compiler/pmodules.pas

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