paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 01:49:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix crash with ident not found

Browse Source 
git-svn-id: trunk@2444 -
This commit is contained in:
peter 2006-02-05 20:05:45 +00:00
parent bc18d6eb8a
commit 4c19728d9b
1 changed files with 1 additions and 1 deletions

2
compiler/pbase.pas
View File

@ -187,9 +187,9 @@ implementation
exit;
end;
searchsym(pattern,srsym,srsymtable);
check_hints(srsym,srsym.symoptions);
if assigned(srsym) then
begin
check_hints(srsym,srsym.symoptions);
if (srsym.typ=unitsym) then
begin
if not(srsym.owner.symtabletype in [staticsymtable,globalsymtable]) then