From fab08ca97572f1e669c8d40b430908dec2e6f333 Mon Sep 17 00:00:00 2001 From: Jonas Maebe Date: Sat, 20 Aug 2011 08:04:30 +0000 Subject: [PATCH] * allow classrefdef declarations for java classes (not yet properly handled though) git-svn-id: branches/jvmbackend@18494 - --- compiler/ptype.pas | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/compiler/ptype.pas b/compiler/ptype.pas index a7a0e99041..2964125359 100644 --- a/compiler/ptype.pas +++ b/compiler/ptype.pas @@ -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