OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [libjava/] [classpath/] [native/] [jni/] [classpath/] [jnilink.c] - Blame information for rev 774

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 774 jeremybenn
/* JNILINK 1.1: JNI version.
2
   Copyright (C) 1998 Free Software Foundation, Inc.
3
 
4
This file is part of GNU Classpath.
5
 
6
GNU Classpath is free software; you can redistribute it and/or modify
7
it under the terms of the GNU General Public License as published by
8
the Free Software Foundation; either version 2, or (at your option)
9
any later version.
10
 
11
GNU Classpath is distributed in the hope that it will be useful, but
12
WITHOUT ANY WARRANTY; without even the implied warranty of
13
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
14
General Public License for more details.
15
 
16
You should have received a copy of the GNU General Public License
17
along with GNU Classpath; see the file COPYING.  If not, write to the
18
Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
19
02110-1301 USA.
20
 
21
Linking this library statically or dynamically with other modules is
22
making a combined work based on this library.  Thus, the terms and
23
conditions of the GNU General Public License cover the whole
24
combination.
25
 
26
As a special exception, the copyright holders of this library give you
27
permission to link this library with independent modules to produce an
28
executable, regardless of the license terms of these independent
29
modules, and to copy and distribute the resulting executable under
30
terms of your choice, provided that you also meet, for each linked
31
independent module, the terms and conditions of the license of that
32
module.  An independent module is a module which is not derived from
33
or based on this library.  If you modify this library, you may extend
34
this exception to your version of the library, but you are not
35
obligated to do so.  If you do not wish to do so, delete this
36
exception statement from your version. */
37
 
38
 
39
#include <stdlib.h>
40
#include <string.h>
41
#include <jcl.h>
42
 
43
#include "jnilink.h"
44
 
45
#define GETCLASS(c) *(jclass*)(c)
46
 
47
JNIEXPORT jclass JNICALL
48
LINK_RelinkClass (JNIEnv * env, linkedClass * c, const char *name)
49
{
50
  jclass found;
51
  LINK_UnlinkClass (env, *c);
52
 
53
  found = (*env)->FindClass (env, name);
54
  if (found == NULL)
55
    return NULL;
56
 
57
  *c = JCL_malloc (env, sizeof (jclass));
58
  if (*c == NULL)
59
    return NULL;
60
 
61
  GETCLASS (*c) = (*env)->NewGlobalRef (env, found);
62
  return GETCLASS (*c);
63
}
64
 
65
JNIEXPORT jclass JNICALL
66
LINK_RelinkKnownClass (JNIEnv * env, linkedClass * c, jclass newClass)
67
{
68
  LINK_UnlinkClass (env, *c);
69
 
70
  *c = JCL_malloc (env, sizeof (jclass));
71
  if (*c == NULL)
72
    return NULL;
73
 
74
  GETCLASS (*c) = (*env)->NewGlobalRef (env, newClass);
75
  return newClass;
76
}
77
 
78
JNIEXPORT jmethodID JNICALL
79
LINK_RelinkMethod (JNIEnv * env, jmethodID * m, linkedClass c,
80
                   const char *name, const char *sig)
81
{
82
  *m = (*env)->GetMethodID (env, GETCLASS (c), name, sig);
83
  return *m;
84
}
85
 
86
JNIEXPORT jmethodID JNICALL
87
LINK_RelinkStaticMethod (JNIEnv * env, jmethodID * m, linkedClass c,
88
                         const char *name, const char *sig)
89
{
90
  *m = (*env)->GetStaticMethodID (env, GETCLASS (c), name, sig);
91
  return *m;
92
}
93
 
94
JNIEXPORT jfieldID JNICALL
95
LINK_RelinkField (JNIEnv * env, jfieldID * f, linkedClass c,
96
                  const char *name, const char *sig)
97
{
98
  *f = (*env)->GetFieldID (env, GETCLASS (c), name, sig);
99
  return *f;
100
}
101
 
102
JNIEXPORT jfieldID JNICALL
103
LINK_RelinkStaticField (JNIEnv * env, jfieldID * f, linkedClass c,
104
                        const char *name, const char *sig)
105
{
106
  *f = (*env)->GetStaticFieldID (env, GETCLASS (c), name, sig);
107
  return *f;
108
}
109
 
110
 
111
/* These are for when the class referencing the symbols is unloaded; it
112
destroys any object references
113
 * the linker might have kept around.
114
 */
115
JNIEXPORT void JNICALL
116
LINK_UnlinkClass (JNIEnv * env, linkedClass * c)
117
{
118
  if (*c != NULL)
119
    {
120
      if (GETCLASS (*c) != NULL)
121
        (*env)->DeleteGlobalRef (env, GETCLASS (*c));
122
      JCL_free (env, *c);
123
      *c = NULL;
124
    }
125
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.