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

* also search for fully qualified nested types in Java classes/interfaces

Browse Source 
* resolve anonymous external classes when handling nested type expressions

git-svn-id: branches/jvmbackend@18400 -
This commit is contained in:
Jonas Maebe 2011-08-20 07:56:29 +00:00
parent 30a6290aac
commit c0b4514b7c
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/pdecvar.pas
View File

@ -1553,7 +1553,8 @@ implementation
This just speedup the search a bit. }
recstlist.count:=0;
if not is_class_or_object(tdef(recst.defowner)) and
not is_record(tdef(recst.defowner)) then
not is_record(tdef(recst.defowner)) and
not is_java_class_or_interface(tdef(recst.defowner)) then
begin
recstlist.add(recst);
symtablestack.pop(recst);

4
compiler/ptype.pas
View File

@ -435,8 +435,10 @@ implementation
consume(_POINT);
consume(_ID);
end
else if is_class_or_object(def) or is_record(def) then
else if is_class_or_object(def) or is_record(def) or is_java_class_or_interface(def) then
begin
if (def.typ=objectdef) then
def:=find_real_class_definition(tobjectdef(def),false);
consume(_POINT);
if (structstackindex>=0) and
(tabstractrecorddef(currentstructstack[structstackindex]).objname^=pattern) then