diff options
| author | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2012-04-27 19:16:06 +0000 |
|---|---|---|
| committer | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2012-04-27 19:16:06 +0000 |
| commit | 5903b878bca4698a1f3bfa4d7fcafe396be4012f (patch) | |
| tree | 0a53f7a8c11bed1e7c847142cb920c8cdf5a08c1 /compiler/symdef.pas | |
| parent | 6e5d25f14f7fdf942ef19750c44ead30adb273b1 (diff) | |
| download | fpc-jvmbackend.tar.gz | |
* leave jvmbackend branch in a proper state (fixes from trunk merge)jvmbackend
--- Merging r21075 through r21076 into '.':
U Makefile.fpc
U compiler/symdef.pas
U compiler/defcmp.pas
U Makefile
--- Merging r21078 into '.':
U compiler/cfileutl.pas
git-svn-id: http://svn.freepascal.org/svn/fpc/branches/jvmbackend@21083 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler/symdef.pas')
| -rw-r--r-- | compiler/symdef.pas | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/compiler/symdef.pas b/compiler/symdef.pas index a45bc25cfb..8eda47a1e5 100644 --- a/compiler/symdef.pas +++ b/compiler/symdef.pas @@ -950,6 +950,7 @@ interface function is_class_or_interface(def: tdef): boolean; function is_class_or_interface_or_objc(def: tdef): boolean; function is_class_or_interface_or_objc_or_java(def: tdef): boolean; + function is_class_or_interface_or_dispinterface_or_objc_or_java(def: tdef): boolean; function is_class_or_interface_or_object(def: tdef): boolean; function is_class_or_interface_or_dispinterface(def: tdef): boolean; function is_implicit_pointer_object_type(def: tdef): boolean; @@ -6605,6 +6606,15 @@ implementation end; + function is_class_or_interface_or_dispinterface_or_objc_or_java(def: tdef): boolean; + begin + result:= + assigned(def) and + (def.typ=objectdef) and + (tobjectdef(def).objecttype in [odt_class,odt_interfacecom,odt_interfacecorba,odt_dispinterface,odt_objcclass,odt_objcprotocol,odt_javaclass,odt_interfacejava]); + end; + + function is_class_or_interface_or_object(def: tdef): boolean; begin result:= |