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

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

Browse Source 
compiling

git-svn-id: branches/jvmbackend@18688 -
This commit is contained in:
Jonas Maebe 2011-08-20 08:24:45 +00:00
parent 69abbba6bb
commit 8fcc88d763
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/symtable.pas
View File

@ -2116,8 +2116,8 @@ implementation
{ If the module is the current unit we also need
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
srsymtable:=current_module.localsymtable;
srsym:=tsym(srsymtable.find(symname));