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

* allow classrefdef declarations for java classes (not yet properly

Browse Source 
handled though)

git-svn-id: branches/jvmbackend@18494 -
This commit is contained in:
Jonas Maebe 2011-08-20 08:04:30 +00:00
parent f2374ce24d
commit fab08ca975
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/ptype.pas
View File

@ -145,7 +145,8 @@ implementation
{ we need a class type for classrefdef }
if (def.typ=classrefdef) and
not(is_class(ttypesym(srsym).typedef)) and
not(is_objcclass(ttypesym(srsym).typedef)) then
not(is_objcclass(ttypesym(srsym).typedef)) and
not(is_javaclass(ttypesym(srsym).typedef)) then
MessagePos1(def.typesym.fileinfo,type_e_class_type_expected,ttypesym(srsym).typedef.typename);
end
else
@ -1633,7 +1634,8 @@ implementation
consume(_OF);
single_type(hdef,SingleTypeOptionsInTypeBlock[block_type=bt_type]);
if is_class(hdef) or
is_objcclass(hdef) then
is_objcclass(hdef) or
is_javaclass(hdef) then
def:=tclassrefdef.create(hdef)
else
if hdef.typ=forwarddef then