nsz Git - libfirm/blob - firmjni/Dbginfo.c

   1 /*
   2  * Project:     libFIRM / Recoder frontend for libFIRM
   3  * File name:   firmjni/Dbginfo.c
   4  * Purpose:     Testing callback.
   5  * Author:      Goetz Lindenmaier
   6  * Modified by:
   7  * Created:     26.2.2003
   8  * CVS-ID:      $Id$
   9  * Copyright:   (c) 2003 Universität Karlsruhe
  10  * Licence:     This file protected by GPL -  GNU GENERAL PUBLIC LICENSE.
  11  */
  12
  13 #include "Dbginfo.h"   /* Generated. */
  14
  15 #include "firm.h"
  16 #include "dbginfo.h"
  17 #include <stdio.h>
  18
  19 static jmethodID pair_id;
  20 static jmethodID sets_id;
  21 static JNIEnv   *my_env_jni_;
  22 static jclass    my_cls_jni_;
  23
  24 static void
  25 my_dbg_info_merge_pair(ir_node *nw, ir_node *old, dbg_action info) {
  26   if (pair_id) {
  27     (*my_env_jni_)->CallStaticVoidMethod(my_env_jni_, my_cls_jni_, pair_id, nw, old, info);
  28   }
  29 }
  30
  31 static void
  32 my_dbg_info_merge_sets(ir_node **new_nodes, int n_new_nodes,
  33                     ir_node **old_nodes, int n_old_nodes,
  34                     dbg_action info) {
  35   if (sets_id) {
  36     /* Convert argument arrays to java arrays. */
  37     jintArray j_new_nodes = (*my_env_jni_)->NewIntArray(my_env_jni_, n_new_nodes);
  38     jintArray j_old_nodes = (*my_env_jni_)->NewIntArray(my_env_jni_, n_old_nodes);
  39     if (j_new_nodes)
  40       (*my_env_jni_)->SetIntArrayRegion(my_env_jni_, j_new_nodes, 0, n_new_nodes, (jint *)new_nodes);
  41     if (j_old_nodes)
  42       (*my_env_jni_)->SetIntArrayRegion(my_env_jni_, j_old_nodes, 0, n_old_nodes, (jint *)old_nodes);
  43
  44     (*my_env_jni_)->CallStaticVoidMethod(my_env_jni_, my_cls_jni_, sets_id, j_new_nodes, j_old_nodes, info);
  45   }
  46 }
  47
  48
  49 void Java_firmjni_Dbginfo_dbgInit (JNIEnv *env_jni_, jclass cls_jni_) {
  50   pair_id = (*env_jni_)->GetStaticMethodID(env_jni_, cls_jni_, "myJavaDbgInfoMergePair", "(III)V");
  51   sets_id = (*env_jni_)->GetStaticMethodID(env_jni_, cls_jni_, "myJavaDbgInfoMergeSets", "([I[II)V");
  52   my_env_jni_ = env_jni_;
  53   my_cls_jni_ = cls_jni_;
  54
  55   dbg_init(&my_dbg_info_merge_pair, &my_dbg_info_merge_sets);
  56 }