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

* fix regressions caused by r17496

Browse Source 
git-svn-id: trunk@17499 -
This commit is contained in:
florian 2011-05-19 11:59:59 +00:00
parent a4ef532fd3
commit f53a14ec38
1 changed files with 1 additions and 1 deletions

2
compiler/psub.pas
View File

@ -1987,7 +1987,7 @@ implementation
{ Setup symtablestack a definition time }
specobj:=tabstractrecorddef(ttypesym(p).typedef);
if not (is_class(specobj) or is_object(specobj)) then
if not (is_class_or_object(specobj) or is_record(specobj)) then
exit;
oldsymtablestack:=symtablestack;