فهرست منبع

* searchsym_in_named_module() for searching in the module we are currently
compiling

git-svn-id: branches/jvmbackend@18688 -

Jonas Maebe 14 سال پیش
والد
کامیت
8fcc88d763
1فایلهای تغییر یافته به همراه2 افزوده شده و 2 حذف شده
  1. 2 2
      compiler/symtable.pas

+ 2 - 2
compiler/symtable.pas

@@ -2116,8 +2116,8 @@ implementation
 
 
         { If the module is the current unit we also need
         { If the module is the current unit we also need
           to search the local symtable }
           to search the local symtable }
-        if (current_module.globalsymtable=srsymtable) and
-           assigned(current_module.localsymtable) then
+        if assigned(current_module.localsymtable) and
+           (current_module.localsymtable.name^=unitname) then
           begin
           begin
             srsymtable:=current_module.localsymtable;
             srsymtable:=current_module.localsymtable;
             srsym:=tsym(srsymtable.find(symname));
             srsym:=tsym(srsymtable.find(symname));