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

fix bug in tbs/tbs0317

Browse Source
This commit is contained in:
pierre 2000-06-02 21:17:26 +00:00
parent cc246ae673
commit b8020e724b
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/symtable.pas
View File

@ -1146,7 +1146,8 @@ implementation
else if (psym(p)^.owner^.symtabletype=objectsymtable) then else if (psym(p)^.owner^.symtabletype=objectsymtable) then
MessagePos2(psym(p)^.fileinfo,sym_n_private_identifier_only_set,psym(p)^.owner^.name^,p^.name) MessagePos2(psym(p)^.fileinfo,sym_n_private_identifier_only_set,psym(p)^.owner^.name^,p^.name)
else if (psym(p)^.owner^.symtabletype<>parasymtable) then else if (psym(p)^.owner^.symtabletype<>parasymtable) then
MessagePos1(psym(p)^.fileinfo,sym_n_local_identifier_only_set,p^.name); if not (vo_is_exported in pvarsym(p)^.varoptions) then
MessagePos1(psym(p)^.fileinfo,sym_n_local_identifier_only_set,p^.name);
end; end;
end end
else if ((psym(p)^.owner^.symtabletype in else if ((psym(p)^.owner^.symtabletype in
@ -2924,7 +2925,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.94 2000-06-02 18:48:48 florian Revision 1.95 2000-06-02 21:17:26 pierre
fix bug in tbs/tbs0317
Revision 1.94 2000/06/02 18:48:48 florian
+ fieldtable support for classes + fieldtable support for classes
Revision 1.93 2000/06/01 19:07:52 peter Revision 1.93 2000/06/01 19:07:52 peter
@ -3065,4 +3069,4 @@ end.
Revision 1.56 1999/11/04 23:13:25 peter Revision 1.56 1999/11/04 23:13:25 peter
* moved unit alias support into ifdef * moved unit alias support into ifdef
} }