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

* fix for new is_class function

Browse Source
This commit is contained in:
pierre 2000-11-08 09:27:45 +00:00
parent 251a877f7d
commit e2ec92c20c
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/browcol.pas
View File

@ -1534,7 +1534,7 @@ end;
if ObjDef<>nil then
Symbol^.RelatedTypeID:=longint(ObjDef);{TypeNames^.Add(S);}
Symbol^.Flags:=(Symbol^.Flags or sfObject);
if is_class then
if is_class(restype.def) then
Symbol^.Flags:=(Symbol^.Flags or sfClass);
ProcessSymTable(Symbol,Symbol^.Items,pobjectdef(restype.def)^.symtable);
end;
@ -2095,7 +2095,10 @@ begin
end.
{
$Log$
Revision 1.12 2000-11-02 15:01:22 pierre
Revision 1.13 2000-11-08 09:27:45 pierre
* fix for new is_class function
Revision 1.12 2000/11/02 15:01:22 pierre
* get it to compile again
Revision 1.11 2000/10/31 22:02:46 peter
@ -2131,4 +2134,4 @@ end.
Revision 1.2 2000/07/13 11:32:32 michael
+ removed logs
}
}