paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-05 17:18:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

- removed the relation check for <class> as <interface> because we don't

Browse Source 
know the runtime type of <class>! It could be a child class of the given type
    which implements additional interfaces
This commit is contained in:
florian 2002-10-02 20:23:50 +00:00
parent 4cf1bb7038
commit eeae421d91
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/ncnv.pas
View File

@ -1952,7 +1952,9 @@ implementation
{ left is a class } { left is a class }
if is_class(left.resulttype.def) then if is_class(left.resulttype.def) then
begin begin
{ the operands must be related } { the operands must be related
no, because the class instance could be a child class of the current one which
implements additional interfaces (FK)
b:=false; b:=false;
o:=tobjectdef(left.resulttype.def); o:=tobjectdef(left.resulttype.def);
while assigned(o) do while assigned(o) do
@ -1967,6 +1969,7 @@ implementation
end; end;
if not(b) then if not(b) then
CGMessage2(type_e_classes_not_related,left.resulttype.def.typename,right.resulttype.def.typename); CGMessage2(type_e_classes_not_related,left.resulttype.def.typename,right.resulttype.def.typename);
}
end end
{ left is an interface } { left is an interface }
else if is_interface(left.resulttype.def) then else if is_interface(left.resulttype.def) then
@ -2056,7 +2059,12 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.83 2002-10-02 20:17:14 florian Revision 1.84 2002-10-02 20:23:50 florian
- removed the relation check for <class> as <interface> because we don't
know the runtime type of <class>! It could be a child class of the given type
which implements additional interfaces
Revision 1.83 2002/10/02 20:17:14 florian
+ the as operator for <class> as <interface> has to check the parent classes as well + the as operator for <class> as <interface> has to check the parent classes as well
Revision 1.82 2002/09/30 07:00:47 florian Revision 1.82 2002/09/30 07:00:47 florian
@ -2152,4 +2160,4 @@ end.
Revision 1.58 2002/05/18 13:34:09 peter Revision 1.58 2002/05/18 13:34:09 peter
* readded missing revisions * readded missing revisions
} }