Signed-off-by: Tomek Grabiec <tgrab...@gmail.com>
---
 vm/jato.c |   13 +++++++++++++
 1 files changed, 13 insertions(+), 0 deletions(-)

diff --git a/vm/jato.c b/vm/jato.c
index 7830ca9..6b0f7c3 100644
--- a/vm/jato.c
+++ b/vm/jato.c
@@ -568,6 +568,18 @@ native_vmclass_is_anonymous_class(struct vm_object *object)
        return vm_class_is_anonymous(class);
 }
 
+static jboolean
+native_vmclass_is_assignable_from(struct vm_object *clazz_1, struct vm_object 
*clazz_2)
+{
+       struct vm_class *vmc_1 = to_vmclass(clazz_1);
+       struct vm_class *vmc_2 = to_vmclass(clazz_2);
+
+       if (!vmc_1 || !vmc_2)
+               return false;
+
+       return vm_class_is_assignable_from(vmc_1, vmc_2);
+}
+
 static int32_t
 native_vmclass_isarray(struct vm_object *object)
 {
@@ -789,6 +801,7 @@ static struct vm_native natives[] = {
        DEFINE_NATIVE("java/lang/VMClass", "getName", &native_vmclass_getname),
        DEFINE_NATIVE("java/lang/VMClass", "forName", &native_vmclass_forname),
        DEFINE_NATIVE("java/lang/VMClass", "isAnonymousClass", 
&native_vmclass_is_anonymous_class),
+       DEFINE_NATIVE("java/lang/VMClass", "isAssignableFrom", 
&native_vmclass_is_assignable_from),
        DEFINE_NATIVE("java/lang/VMClass", "isArray", &native_vmclass_isarray),
        DEFINE_NATIVE("java/lang/VMClass", "isInstance", 
&native_vmclass_isinstance),
        DEFINE_NATIVE("java/lang/VMClass", "isInterface", 
&native_vmclass_isinterface),
-- 
1.6.0.6


------------------------------------------------------------------------------
Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day 
trial. Simplify your report design, integration and deployment - and focus on 
what you do best, core application coding. Discover what's new with 
Crystal Reports now.  http://p.sf.net/sfu/bobj-july
_______________________________________________
Jatovm-devel mailing list
Jatovm-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/jatovm-devel

Reply via email to