paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 14:09:17 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/pbase.pas
View File

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