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

* fix protected checking

Browse Source
This commit is contained in:
peter 2005-03-07 17:58:27 +00:00
parent 50ece27667
commit 100a47e6af
2 changed files with 22 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/symdef.pas
View File

@ -310,7 +310,7 @@ interface
function vmt_mangledname : string;
function rtti_name : string;
procedure check_forwards;
function is_related(d : tobjectdef) : boolean;
function is_related(d : tdef) : boolean;override;
function next_free_name_index : longint;
procedure insertvmt;
procedure set_parent(c : tobjectdef);
@ -5173,7 +5173,7 @@ implementation
{ true, if self inherits from d (or if they are equal) }
function tobjectdef.is_related(d : tobjectdef) : boolean;
function tobjectdef.is_related(d : tdef) : boolean;
var
hp : tobjectdef;
begin
@ -6394,7 +6394,10 @@ implementation
end.
{
$Log$
Revision 1.298 2005-02-26 15:43:09 florian
Revision 1.299 2005-03-07 17:58:27 peter
* fix protected checking
Revision 1.298 2005/02/26 15:43:09 florian
* userdata in file/textrecs now 32 bytes
Revision 1.297 2005/02/14 17:13:07 peter

25
compiler/symtype.pas
View File

@ -86,6 +86,7 @@ interface
function getsymtable(t:tgetsymtable):tsymtable;virtual;
function is_publishable:boolean;virtual;abstract;
function needs_inittable:boolean;virtual;abstract;
function is_related(def:tdef):boolean;virtual;
end;
{************************************************
@ -226,7 +227,6 @@ implementation
uses
verbose,
fmodule
// symdef
{$ifdef GDB}
,gdb
{$endif GDB}
@ -288,10 +288,16 @@ implementation
function tdef.getsymtable(t:tgetsymtable):tsymtable;
begin
getsymtable:=nil;
result:=nil;
end;
function tdef.is_related(def:tdef):boolean;
begin
result:=false;
end;
{****************************************************************************
TSYM (base for all symtypes)
****************************************************************************}
@ -492,8 +498,10 @@ implementation
(not owner.defowner.owner.iscurrentunit)
) and
not(
assigned(currobjdef) {and
Tobjectdef(currobjdef).is_related(tobjectdef(owner.defowner))}
assigned(currobjdef) and
(currobjdef.owner.symtabletype in [globalsymtable,staticsymtable]) and
(currobjdef.owner.iscurrentunit) and
currobjdef.is_related(tdef(owner.defowner))
)
) then
exit;
@ -1454,7 +1462,10 @@ finalization
end.
{
$Log$
Revision 1.51 2005-02-14 17:13:09 peter
Revision 1.52 2005-03-07 17:58:27 peter
* fix protected checking
Revision 1.51 2005/02/14 17:13:09 peter
* truncate log
Revision 1.50 2005/01/19 22:19:41 peter
@ -1462,7 +1473,3 @@ end.
* new derefmap added
}
end.