libjava/gnu/classpath/jdwp/natVMVirtualMachine.cc

   1 // natVMVirtualMachine.cc - native support for VMVirtualMachine
   2
   3 /* Copyright (C) 2006, 2007 Free Software Foundation
   4
   5    This file is part of libgcj.
   6
   7 This software is copyrighted work licensed under the terms of the
   8 Libgcj License. Please consult the file "LIBGCJ_LICENSE" for
   9 details. */
  10
  11 #include <config.h>
  12 #include <gcj/cni.h>
  13 #include <java-assert.h>
  14 #include <java-interp.h>
  15 #include <jvm.h>
  16 #include <jvmti.h>
  17
  18 #include <java/lang/Class.h>
  19 #include <java/lang/ClassLoader.h>
  20 #include <java/lang/Integer.h>
  21 #include <java/lang/String.h>
  22 #include <java/lang/StringBuilder.h>
  23 #include <java/lang/Thread.h>
  24 #include <java/lang/Throwable.h>
  25 #include <java/nio/ByteBuffer.h>
  26 #include <java/nio/ByteBufferImpl.h>
  27 #include <java/util/ArrayList.h>
  28 #include <java/util/Collection.h>
  29 #include <java/util/Hashtable.h>
  30 #include <java/util/Iterator.h>
  31
  32 #include <gnu/classpath/jdwp/Jdwp.h>
  33 #include <gnu/classpath/jdwp/JdwpConstants$StepDepth.h>
  34 #include <gnu/classpath/jdwp/JdwpConstants$StepSize.h>
  35 #include <gnu/classpath/jdwp/JdwpConstants$ThreadStatus.h>
  36 #include <gnu/classpath/jdwp/VMFrame.h>
  37 #include <gnu/classpath/jdwp/VMMethod.h>
  38 #include <gnu/classpath/jdwp/VMVirtualMachine.h>
  39 #include <gnu/classpath/jdwp/event/BreakpointEvent.h>
  40 #include <gnu/classpath/jdwp/event/ClassPrepareEvent.h>
  41 #include <gnu/classpath/jdwp/event/ExceptionEvent.h>
  42 #include <gnu/classpath/jdwp/event/EventManager.h>
  43 #include <gnu/classpath/jdwp/event/EventRequest.h>
  44 #include <gnu/classpath/jdwp/event/SingleStepEvent.h>
  45 #include <gnu/classpath/jdwp/event/ThreadEndEvent.h>
  46 #include <gnu/classpath/jdwp/event/ThreadStartEvent.h>
  47 #include <gnu/classpath/jdwp/event/VmDeathEvent.h>
  48 #include <gnu/classpath/jdwp/event/VmInitEvent.h>
  49 #include <gnu/classpath/jdwp/event/filters/IEventFilter.h>
  50 #include <gnu/classpath/jdwp/event/filters/LocationOnlyFilter.h>
  51 #include <gnu/classpath/jdwp/event/filters/StepFilter.h>
  52 #include <gnu/classpath/jdwp/exception/AbsentInformationException.h>
  53 #include <gnu/classpath/jdwp/exception/InvalidFrameException.h>
  54 #include <gnu/classpath/jdwp/exception/InvalidLocationException.h>
  55 #include <gnu/classpath/jdwp/exception/InvalidMethodException.h>
  56 #include <gnu/classpath/jdwp/exception/JdwpInternalErrorException.h>
  57 #include <gnu/classpath/jdwp/id/ThreadId.h>
  58 #include <gnu/classpath/jdwp/util/Location.h>
  59 #include <gnu/classpath/jdwp/util/MethodResult.h>
  60 #include <gnu/gcj/jvmti/Breakpoint.h>
  61 #include <gnu/gcj/jvmti/BreakpointManager.h>
  62
  63 using namespace java::lang;
  64 using namespace gnu::classpath::jdwp::event;
  65 using namespace gnu::classpath::jdwp::util;
  66
  67 // Stepping information
  68 struct step_info
  69 {
  70   jint size;   // See gnu.classpath.jdwp.JdwpConstants.StepSize
  71   jint depth;  // See gnu.classpath.jdwp.JdwpConstants.StepDepth
  72   int stack_depth;  // stack depth at start of stepping
  73   jmethodID method; // method in which we are stepping
  74 };
  75
  76 // Forward declarations
  77 static jvmtiError get_linetable (jvmtiEnv *, jmethodID, jint *,
  78                                  jvmtiLineNumberEntry **);
  79 static Location *get_request_location (EventRequest *);
  80 static gnu::classpath::jdwp::event::filters::StepFilter *
  81 get_request_step_filter (EventRequest *);
  82 static void handle_single_step (jvmtiEnv *, struct step_info *, jthread,
  83                                 jmethodID, jlocation);
  84 static void JNICALL jdwpBreakpointCB (jvmtiEnv *, JNIEnv *, jthread,
  85                                       jmethodID, jlocation);
  86 static void JNICALL jdwpClassPrepareCB (jvmtiEnv *, JNIEnv *, jthread, jclass);
  87 static void JNICALL jdwpExceptionCB (jvmtiEnv *, JNIEnv *jni_env, jthread,
  88                                      jmethodID, jlocation, jobject,
  89                                      jmethodID, jlocation);
  90 static void JNICALL jdwpSingleStepCB (jvmtiEnv *, JNIEnv *, jthread,
  91                                       jmethodID, jlocation);
  92 static void JNICALL jdwpThreadEndCB (jvmtiEnv *, JNIEnv *, jthread);
  93 static void JNICALL jdwpThreadStartCB (jvmtiEnv *, JNIEnv *, jthread);
  94 static void JNICALL jdwpVMDeathCB (jvmtiEnv *, JNIEnv *);
  95 static void JNICALL jdwpVMInitCB (jvmtiEnv *, JNIEnv *, jthread);
  96 static void throw_jvmti_error (jvmtiError);
  97
  98 #define DEFINE_CALLBACK(Cb,Event) Cb.Event = jdwp ## Event ## CB
  99 #define DISABLE_EVENT(Event,Thread)                                     \
 100   _jdwp_jvmtiEnv->SetEventNotificationMode (JVMTI_DISABLE,              \
 101                                             JVMTI_EVENT_ ## Event, Thread)
 102 #define ENABLE_EVENT(Event,Thread)                                      \
 103   _jdwp_jvmtiEnv->SetEventNotificationMode (JVMTI_ENABLE,               \
 104                                             JVMTI_EVENT_ ## Event, Thread)
 105 // JVMTI environment
 106 static jvmtiEnv *_jdwp_jvmtiEnv;
 107
 108 jvmtiEnv *
 109 _Jv_GetJDWP_JVMTIEnv (void)
 110 {
 111   return _jdwp_jvmtiEnv;
 112 }
 113
 114 void
 115 gnu::classpath::jdwp::VMVirtualMachine::initialize ()
 116 {
 117   _jdwp_suspend_counts = new ::java::util::Hashtable ();
 118   _stepping_threads = new ::java::util::Hashtable ();
 119   _event_list = new ::java::util::ArrayList ();
 120
 121   JavaVM *vm = _Jv_GetJavaVM ();
 122   union
 123   {
 124     void *ptr;
 125     jvmtiEnv *env;
 126   } foo;
 127   vm->GetEnv (&(foo.ptr), JVMTI_VERSION_1_0);
 128   _jdwp_jvmtiEnv = foo.env;
 129
 130   // Wait for VM_INIT to do more initialization
 131   jvmtiEventCallbacks callbacks;
 132   DEFINE_CALLBACK (callbacks, VMInit);
 133   _jdwp_jvmtiEnv->SetEventCallbacks (&callbacks, sizeof (callbacks));
 134   ENABLE_EVENT (VM_INIT, NULL);
 135 }
 136
 137 void
 138 gnu::classpath::jdwp::VMVirtualMachine::suspendThread (Thread *thread)
 139 {
 140   jint value;
 141   Integer *count;
 142   {
 143     JvSynchronize dummy (_jdwp_suspend_counts);
 144     count = reinterpret_cast<Integer *> (_jdwp_suspend_counts->get (thread));
 145     if (count == NULL)
 146       {
 147         // New -- suspend thread
 148         value = 0;
 149       }
 150     else
 151       {
 152         // Thread already suspended
 153         value = count->intValue ();
 154       }
 155
 156     count = Integer::valueOf (++value);
 157     _jdwp_suspend_counts->put (thread, count);
 158   }
 159
 160   if (value == 1)
 161     {
 162       // Suspend the thread
 163       jvmtiError err = _jdwp_jvmtiEnv->SuspendThread (thread);
 164       if (err != JVMTI_ERROR_NONE)
 165         {
 166           using namespace gnu::gcj::runtime;
 167           using namespace gnu::classpath::jdwp::exception;
 168           char *reason;
 169           _jdwp_jvmtiEnv->GetErrorName (err, &reason);
 170           String *txt = JvNewStringLatin1 ("could not suspend thread: ");
 171           StringBuilder *msg = new StringBuilder (txt);
 172           msg->append (JvNewStringLatin1 (reason));
 173           _jdwp_jvmtiEnv->Deallocate ((unsigned char *) reason);
 174           throw new JdwpInternalErrorException (msg->toString ());
 175         }
 176     }
 177 }
 178
 179 void
 180 gnu::classpath::jdwp::VMVirtualMachine::resumeThread (Thread *thread)
 181 {
 182   jint value;
 183   {
 184     JvSynchronize dummy (_jdwp_suspend_counts);
 185     Integer *count
 186       = reinterpret_cast<Integer *> (_jdwp_suspend_counts->get (thread));
 187     if (count == NULL)
 188       {
 189         // Thread not suspended: ThreadReference.Resume says to ignore it.
 190         return;
 191       }
 192     else
 193       {
 194         // Decrement suspend count
 195         value = count->intValue () - 1;
 196       }
 197
 198     if (value == 0)
 199       {
 200         // Thread will be resumed, remove from table
 201         _jdwp_suspend_counts->remove (thread);
 202       }
 203     else
 204       {
 205         // Thread stays suspended: record new suspend count
 206         count = Integer::valueOf (value);
 207         _jdwp_suspend_counts->put (thread, count);
 208       }
 209   }
 210
 211   if (value == 0)
 212     {
 213       jvmtiError err = _jdwp_jvmtiEnv->ResumeThread (thread);
 214       if (err != JVMTI_ERROR_NONE)
 215         {
 216           using namespace gnu::gcj::runtime;
 217           using namespace gnu::classpath::jdwp::exception;
 218           char *reason;
 219           _jdwp_jvmtiEnv->GetErrorName (err, &reason);
 220           String *txt = JvNewStringLatin1 ("could not resume thread: ");
 221           StringBuilder *msg = new StringBuilder (txt);
 222           msg->append (JvNewStringLatin1 (reason));
 223           _jdwp_jvmtiEnv->Deallocate ((unsigned char *) reason);
 224           throw new JdwpInternalErrorException (msg->toString ());
 225         }
 226     }
 227 }
 228
 229 jint
 230 gnu::classpath::jdwp::VMVirtualMachine::getSuspendCount (Thread *thread)
 231 {
 232   jint suspensions = 0;
 233   Integer *count
 234     = reinterpret_cast<Integer *> (_jdwp_suspend_counts->get (thread));
 235   if (count != NULL)
 236     suspensions = count->intValue ();
 237   return suspensions;
 238 }
 239
 240 void
 241 gnu::classpath::jdwp::VMVirtualMachine::registerEvent (EventRequest *request)
 242 {
 243   switch (request->getEventKind ())
 244     {
 245     case EventRequest::EVENT_SINGLE_STEP:
 246       {
 247         Thread *thread;
 248         filters::StepFilter *filter = get_request_step_filter (request);
 249         if (filter == NULL)
 250           {
 251             // No filter specified: report every step in every
 252             // thread.
 253             thread = NULL;
 254           }
 255         else
 256           {
 257             // Add stepping information to list of stepping threads
 258             thread = filter->getThread ()->getThread ();
 259             _Jv_InterpFrame *frame
 260               = reinterpret_cast<_Jv_InterpFrame *> (thread->interp_frame);
 261             struct step_info *sinfo
 262               = (struct step_info *) JvAllocBytes (sizeof (struct step_info));
 263             sinfo->size = filter->getSize ();
 264             sinfo->depth = filter->getDepth ();
 265             sinfo->stack_depth = frame->depth ();
 266             sinfo->method = frame->self->get_method ();
 267             _stepping_threads->put (thread, (jobject) sinfo);
 268           }
 269
 270         ENABLE_EVENT (SINGLE_STEP, thread);
 271       }
 272       break;
 273
 274     case EventRequest::EVENT_BREAKPOINT:
 275       {
 276         using namespace ::gnu::gcj::jvmti;
 277         Location *loc = get_request_location (request);
 278         if (loc == NULL)
 279           {
 280             using namespace gnu::classpath::jdwp::exception;
 281             throw new InvalidLocationException ();
 282           }
 283
 284         jlong method = loc->getMethod ()->getId ();
 285         jlocation index = loc->getIndex ();
 286         Breakpoint  *bp = BreakpointManager::getBreakpoint (method, index);
 287         if (bp == NULL)
 288           {
 289             // Breakpoint not in interpreter yet
 290             bp = BreakpointManager::newBreakpoint (method, index);
 291           }
 292         else
 293           {
 294             // Ignore the duplicate
 295           }
 296       }
 297       break;
 298
 299     case EventRequest::EVENT_FRAME_POP:
 300       break;
 301
 302     case EventRequest::EVENT_EXCEPTION:
 303       break;
 304
 305     case EventRequest::EVENT_USER_DEFINED:
 306       break;
 307
 308     case EventRequest::EVENT_THREAD_START:
 309       break;
 310
 311     case EventRequest::EVENT_THREAD_END:
 312       break;
 313
 314     case EventRequest::EVENT_CLASS_PREPARE:
 315       break;
 316
 317     case EventRequest::EVENT_CLASS_LOAD:
 318       break;
 319
 320     case EventRequest::EVENT_CLASS_UNLOAD:
 321       break;
 322
 323     case EventRequest::EVENT_FIELD_ACCESS:
 324       break;
 325
 326     case EventRequest::EVENT_FIELD_MODIFY:
 327       break;
 328
 329     case EventRequest::EVENT_METHOD_ENTRY:
 330       break;
 331
 332     case EventRequest::EVENT_METHOD_EXIT:
 333       break;
 334
 335     case EventRequest::EVENT_VM_INIT:
 336       break;
 337
 338     case EventRequest::EVENT_VM_DEATH:
 339       break;
 340     }
 341 }
 342
 343 void
 344 gnu::classpath::jdwp::VMVirtualMachine::unregisterEvent (EventRequest *request)
 345 {
 346   switch (request->getEventKind ())
 347     {
 348     case EventRequest::EVENT_SINGLE_STEP:
 349       {
 350         Thread *thread;
 351         filters::StepFilter *filter = get_request_step_filter (request);
 352         if (filter == NULL)
 353           thread = NULL;
 354         else
 355           {
 356             thread = filter->getThread ()->getThread ();
 357             _stepping_threads->remove (thread);
 358           }
 359
 360         DISABLE_EVENT (SINGLE_STEP, thread);
 361       }
 362       break;
 363
 364     case EventRequest::EVENT_BREAKPOINT:
 365       {
 366         using namespace gnu::gcj::jvmti;
 367         ::java::util::Collection *breakpoints;
 368         EventManager *em = EventManager::getDefault ();
 369         breakpoints = em->getRequests (EventRequest::EVENT_BREAKPOINT);
 370
 371         // Check for duplicates
 372         int matches = 0;
 373         Location *the_location = get_request_location (request);
 374
 375         // This should not be possible: we REQUIRE a Location
 376         // to install a breakpoint
 377         JvAssert (the_location != NULL);
 378
 379         ::java::util::Iterator *iter = breakpoints->iterator ();
 380         while (iter->hasNext ())
 381           {
 382             EventRequest *er
 383               = reinterpret_cast<EventRequest *> (iter->next ());
 384             Location *loc = get_request_location (er);
 385             JvAssert (loc != NULL);
 386             if (loc->equals (the_location) && ++matches == 2)
 387               {
 388                 // Short-circuit: already more than one breakpoint
 389                 return;
 390               }
 391           }
 392
 393         if (matches == 0)
 394           {
 395             using namespace gnu::classpath::jdwp::exception;
 396             jstring msg
 397               = JvNewStringLatin1 ("attempt to remove unknown breakpoint");
 398             throw new JdwpInternalErrorException (msg);
 399           }
 400
 401         jlong methodId = the_location->getMethod ()->getId ();
 402         BreakpointManager::deleteBreakpoint (methodId,
 403                                              the_location->getIndex ());
 404       }
 405       break;
 406
 407     case EventRequest::EVENT_FRAME_POP:
 408       break;
 409
 410     case EventRequest::EVENT_EXCEPTION:
 411       break;
 412
 413     case EventRequest::EVENT_USER_DEFINED:
 414       break;
 415
 416     case EventRequest::EVENT_THREAD_START:
 417       break;
 418
 419     case EventRequest::EVENT_THREAD_END:
 420       break;
 421
 422     case EventRequest::EVENT_CLASS_PREPARE:
 423       break;
 424
 425     case EventRequest::EVENT_CLASS_LOAD:
 426       break;
 427
 428     case EventRequest::EVENT_CLASS_UNLOAD:
 429       break;
 430
 431     case EventRequest::EVENT_FIELD_ACCESS:
 432       break;
 433
 434     case EventRequest::EVENT_FIELD_MODIFY:
 435       break;
 436
 437     case EventRequest::EVENT_METHOD_ENTRY:
 438       break;
 439
 440     case EventRequest::EVENT_METHOD_EXIT:
 441       break;
 442
 443     case EventRequest::EVENT_VM_INIT:
 444       break;
 445
 446     case EventRequest::EVENT_VM_DEATH:
 447       break;
 448     }
 449 }
 450
 451 void
 452 gnu::classpath::jdwp::VMVirtualMachine::clearEvents (MAYBE_UNUSED jbyte kind)
 453 {
 454 }
 455
 456 java::util::Collection *
 457 gnu::classpath::jdwp::VMVirtualMachine::getAllLoadedClasses (void)
 458 {
 459   using namespace ::java::util;
 460   return (Collection *) new ArrayList ();
 461 }
 462
 463 jint
 464 gnu::classpath::jdwp::VMVirtualMachine::
 465 getClassStatus (jclass klass)
 466 {
 467   jint flags = 0;
 468   jvmtiError err = _jdwp_jvmtiEnv->GetClassStatus (klass, &flags);
 469   if (err != JVMTI_ERROR_NONE)
 470     throw_jvmti_error (err);
 471
 472   using namespace gnu::classpath::jdwp::event;
 473   jint status = 0;
 474   if (flags & JVMTI_CLASS_STATUS_VERIFIED)
 475     status |= ClassPrepareEvent::STATUS_VERIFIED;
 476   if (flags & JVMTI_CLASS_STATUS_PREPARED)
 477     status |= ClassPrepareEvent::STATUS_PREPARED;
 478   if (flags & JVMTI_CLASS_STATUS_ERROR)
 479     status |= ClassPrepareEvent::STATUS_ERROR;
 480   if (flags & JVMTI_CLASS_STATUS_INITIALIZED)
 481     status |= ClassPrepareEvent::STATUS_INITIALIZED;
 482
 483   return status;
 484 }
 485
 486 JArray<gnu::classpath::jdwp::VMMethod *> *
 487 gnu::classpath::jdwp::VMVirtualMachine::
 488 getAllClassMethods (jclass klass)
 489 {
 490   jint count;
 491   jmethodID *methods;
 492   jvmtiError err = _jdwp_jvmtiEnv->GetClassMethods (klass, &count, &methods);
 493   if (err != JVMTI_ERROR_NONE)
 494     throw_jvmti_error (err);
 495
 496   JArray<VMMethod *> *result
 497     = (JArray<VMMethod *> *) JvNewObjectArray (count,
 498                                                &VMMethod::class$, NULL);
 499   VMMethod **rmeth = elements (result);
 500   for (int i = 0; i < count; ++i)
 501     {
 502       jlong id = reinterpret_cast<jlong> (methods[i]);
 503       rmeth[i] = getClassMethod (klass, id);
 504     }
 505
 506   _jdwp_jvmtiEnv->Deallocate ((unsigned char *) methods);
 507   return result;
 508 }
 509
 510 gnu::classpath::jdwp::VMMethod *
 511 gnu::classpath::jdwp::VMVirtualMachine::
 512 getClassMethod (jclass klass, jlong id)
 513 {
 514   jint count;
 515   jmethodID *methods;
 516   jvmtiError err = _jdwp_jvmtiEnv->GetClassMethods (klass, &count, &methods);
 517   if (err != JVMTI_ERROR_NONE)
 518     throw_jvmti_error (err);
 519
 520   jmethodID meth_id = reinterpret_cast<jmethodID> (id);
 521
 522   using namespace gnu::classpath::jdwp;
 523
 524   // Check if this method is defined for the given class and if so return a
 525   // VMMethod representing it.
 526   for (int i = 0; i < count; i++)
 527     {
 528       if (methods[i] == meth_id)
 529         return new VMMethod (klass, reinterpret_cast<jlong> (meth_id));
 530     }
 531
 532   throw new exception::InvalidMethodException (id);
 533 }
 534
 535 java::util::ArrayList *
 536 gnu::classpath::jdwp::VMVirtualMachine::getFrames (Thread *thread, jint start,
 537                                                    jint length)
 538 {
 539   jint frame_count = getFrameCount (thread);
 540   ::java::util::ArrayList *frame_list;
 541
 542   // Calculate the max number of frames to be returned.
 543   jint num_frames = frame_count - start;
 544
 545   // Check if num_frames is valid.
 546   if (num_frames < 0)
 547     num_frames = 0;
 548
 549   // Check if there are more than length frames left after start.
 550   // If length ios -1 return all remaining frames.
 551   if (length != -1 && num_frames > length)
 552     num_frames = length;
 553
 554   frame_list = new ::java::util::ArrayList (num_frames);
 555
 556   _Jv_Frame *vm_frame = reinterpret_cast<_Jv_Frame *> (thread->frame);
 557
 558   // Take start frames off the top of the stack
 559   while (vm_frame != NULL && start > 0)
 560     {
 561       start--;
 562       vm_frame = vm_frame->next;
 563     }
 564
 565   // Use as a counter for the number of frames returned.
 566   num_frames = 0;
 567
 568   while (vm_frame != NULL && (num_frames < length || length == -1))
 569     {
 570       jlong frameId = reinterpret_cast<jlong> (vm_frame);
 571
 572       VMFrame *frame = getFrame (thread, frameId);
 573       frame_list->add (frame);
 574       vm_frame = vm_frame->next;
 575       num_frames++;
 576     }
 577
 578   return frame_list;
 579 }
 580
 581 gnu::classpath::jdwp::VMFrame *
 582 gnu::classpath::jdwp::VMVirtualMachine::
 583 getFrame (Thread *thread, jlong frameID)
 584 {
 585   using namespace gnu::classpath::jdwp::exception;
 586
 587   _Jv_Frame *vm_frame = (_Jv_Frame *) thread->frame;
 588   jint depth = 0;
 589   _Jv_Frame *frame = reinterpret_cast<_Jv_Frame *> (frameID);
 590
 591   // We need to find the stack depth of the frame, so search through the call
 592   // stack to find it.  This also checks for a valid frameID.
 593   while (vm_frame != frame)
 594     {
 595       vm_frame = vm_frame->next;
 596       depth++;
 597       if (vm_frame == NULL)
 598         throw new InvalidFrameException (frameID);
 599     }
 600
 601   Location *loc = NULL;
 602   jvmtiFrameInfo info;
 603   jvmtiError jerr;
 604   jint num_frames;
 605   jclass klass;
 606
 607   // Get the info for the frame of interest
 608   jerr = _jdwp_jvmtiEnv->GetStackTrace (thread, depth, 1, &info, &num_frames);
 609
 610   if (jerr != JVMTI_ERROR_NONE)
 611     throw_jvmti_error (jerr);
 612
 613   jerr = _jdwp_jvmtiEnv->GetMethodDeclaringClass (info.method, &klass);
 614
 615   if (jerr != JVMTI_ERROR_NONE)
 616     throw_jvmti_error (jerr);
 617
 618   VMMethod *meth
 619     = getClassMethod (klass, reinterpret_cast<jlong> (info.method));
 620
 621   jobject this_obj;
 622
 623   if (info.location == -1)
 624     {
 625       loc = new Location (meth, 0);
 626       this_obj = NULL;
 627     }
 628   else
 629     {
 630       loc = new Location (meth, info.location);
 631       _Jv_InterpFrame *iframe = reinterpret_cast<_Jv_InterpFrame *> (vm_frame);
 632       this_obj = iframe->get_this_ptr ();
 633     }
 634
 635   return new VMFrame (thread, reinterpret_cast<jlong> (vm_frame), loc,
 636                       this_obj);
 637 }
 638
 639 jint
 640 gnu::classpath::jdwp::VMVirtualMachine::
 641 getFrameCount (Thread *thread)
 642 {
 643   jint frame_count;
 644
 645   jvmtiError jerr = _jdwp_jvmtiEnv->GetFrameCount (thread, &frame_count);
 646
 647   if (jerr != JVMTI_ERROR_NONE)
 648     throw_jvmti_error (jerr);
 649
 650   return frame_count;
 651 }
 652
 653 jint
 654 gnu::classpath::jdwp::VMVirtualMachine::
 655 getThreadStatus (Thread *thread)
 656 {
 657   jint thr_state, status;
 658
 659   jvmtiError jerr = _jdwp_jvmtiEnv->GetThreadState (thread, &thr_state);
 660   if (jerr != JVMTI_ERROR_NONE)
 661     throw_jvmti_error (jerr);
 662
 663   if (thr_state & JVMTI_THREAD_STATE_SLEEPING)
 664     status = gnu::classpath::jdwp::JdwpConstants$ThreadStatus::SLEEPING;
 665   else if (thr_state & JVMTI_THREAD_STATE_RUNNABLE)
 666     status = gnu::classpath::jdwp::JdwpConstants$ThreadStatus::RUNNING;
 667   else if (thr_state & JVMTI_THREAD_STATE_WAITING)
 668     {
 669       if (thr_state & (JVMTI_THREAD_STATE_IN_OBJECT_WAIT
 670                        | JVMTI_THREAD_STATE_BLOCKED_ON_MONITOR_ENTER))
 671         status = gnu::classpath::jdwp::JdwpConstants$ThreadStatus::MONITOR;
 672       else
 673         status = gnu::classpath::jdwp::JdwpConstants$ThreadStatus::WAIT;
 674     }
 675   else
 676     {
 677       // The thread is not SLEEPING, MONITOR, or WAIT.  It may, however, be
 678       // alive but not yet started.
 679       if (!(thr_state & (JVMTI_THREAD_STATE_ALIVE
 680                          | JVMTI_THREAD_STATE_TERMINATED)))
 681         status = gnu::classpath::jdwp::JdwpConstants$ThreadStatus::RUNNING;
 682       status = gnu::classpath::jdwp::JdwpConstants$ThreadStatus::ZOMBIE;
 683     }
 684
 685   return status;
 686 }
 687
 688 java::util::ArrayList *
 689 gnu::classpath::jdwp::VMVirtualMachine::
 690 getLoadRequests (MAYBE_UNUSED ClassLoader *cl)
 691 {
 692   return new ::java::util::ArrayList ();
 693 }
 694
 695 MethodResult *
 696 gnu::classpath::jdwp::VMVirtualMachine::
 697 executeMethod (MAYBE_UNUSED jobject obj, MAYBE_UNUSED Thread *thread,
 698                MAYBE_UNUSED jclass clazz, MAYBE_UNUSED VMMethod *method,
 699                MAYBE_UNUSED JArray<value::Value *> *values,
 700                MAYBE_UNUSED jint options)
 701 {
 702   return NULL;
 703 }
 704
 705 jstring
 706 gnu::classpath::jdwp::VMVirtualMachine::
 707 getSourceFile (jclass clazz)
 708 {
 709   jstring file = _Jv_GetInterpClassSourceFile (clazz);
 710
 711   // Check if the source file was found.
 712   if (file == NULL)
 713     throw new exception::AbsentInformationException (
 714                            _Jv_NewStringUTF("Source file not found"));
 715
 716   return file;
 717 }
 718
 719 void
 720 gnu::classpath::jdwp::VMVirtualMachine::
 721 redefineClasses (MAYBE_UNUSED JArray<jclass> *types,
 722                  MAYBE_UNUSED JArray<jbyteArray> *bytecodes)
 723 {
 724 }
 725
 726 void
 727 gnu::classpath::jdwp::VMVirtualMachine::
 728 setDefaultStratum (MAYBE_UNUSED jstring stratum)
 729 {
 730 }
 731
 732 jstring
 733 gnu::classpath::jdwp::VMVirtualMachine::
 734 getSourceDebugExtension (MAYBE_UNUSED jclass klass)
 735 {
 736   return NULL;
 737 }
 738
 739 jbyteArray
 740 gnu::classpath::jdwp::VMVirtualMachine::
 741 getBytecodes (MAYBE_UNUSED gnu::classpath::jdwp::VMMethod *method)
 742 {
 743   return NULL;
 744 }
 745
 746 gnu::classpath::jdwp::util::MonitorInfo *
 747 gnu::classpath::jdwp::VMVirtualMachine::
 748 getMonitorInfo (MAYBE_UNUSED jobject obj)
 749 {
 750   return NULL;
 751 }
 752
 753 jobjectArray
 754 gnu::classpath::jdwp::VMVirtualMachine::
 755 getOwnedMonitors (MAYBE_UNUSED ::java::lang::Thread *thread)
 756 {
 757   return NULL;
 758 }
 759
 760 jobject
 761 gnu::classpath::jdwp::VMVirtualMachine::
 762 getCurrentContendedMonitor (MAYBE_UNUSED ::java::lang::Thread *thread)
 763 {
 764   return NULL;
 765 }
 766
 767 void
 768 gnu::classpath::jdwp::VMVirtualMachine::
 769 popFrames (MAYBE_UNUSED ::java::lang::Thread *thread,
 770            MAYBE_UNUSED jlong frameId)
 771 {
 772 }
 773
 774 // A simple caching function used while single-stepping
 775 static jvmtiError
 776 get_linetable (jvmtiEnv *env, jmethodID method, jint *count_ptr,
 777                jvmtiLineNumberEntry **table_ptr)
 778 {
 779   static jint last_count = 0;
 780   static jvmtiLineNumberEntry *last_table = NULL;
 781   static jmethodID last_method = 0;
 782
 783   if (method == last_method)
 784     {
 785       *count_ptr = last_count;
 786       *table_ptr = last_table;
 787       return JVMTI_ERROR_NONE;
 788     }
 789
 790   jvmtiError err;
 791   jint count;
 792   jvmtiLineNumberEntry *table;
 793   err = env->GetLineNumberTable (method, &count, &table);
 794   if (err != JVMTI_ERROR_NONE)
 795     {
 796       // Keep last table in cache
 797       return err;
 798     }
 799
 800   env->Deallocate ((unsigned char *) last_table);
 801   last_table = *table_ptr = table;
 802   last_count = *count_ptr = count;
 803   return JVMTI_ERROR_NONE;
 804 }
 805
 806 static gnu::classpath::jdwp::event::filters::StepFilter *
 807 get_request_step_filter (EventRequest *request)
 808 {
 809   ::java::util::Collection *filters = request->getFilters ();
 810   ::java::util::Iterator *iter = filters->iterator ();
 811   filters::StepFilter *filter = NULL;
 812   while (iter->hasNext ())
 813     {
 814       using namespace gnu::classpath::jdwp::event::filters;
 815       IEventFilter *next = (IEventFilter *) iter->next ();
 816       if (next->getClass () == &StepFilter::class$)
 817         {
 818           filter = reinterpret_cast<StepFilter *> (next);
 819           break;
 820         }
 821     }
 822
 823   return filter;
 824 }
 825
 826 static Location *
 827 get_request_location (EventRequest *request)
 828 {
 829   Location *loc = NULL;
 830   ::java::util::Collection *filters = request->getFilters ();
 831   ::java::util::Iterator *iter = filters->iterator ();
 832   while (iter->hasNext ())
 833     {
 834       using namespace gnu::classpath::jdwp::event::filters;
 835       IEventFilter *filter = (IEventFilter *) iter->next ();
 836       if (filter->getClass () == &LocationOnlyFilter::class$)
 837         {
 838           LocationOnlyFilter *lof
 839             = reinterpret_cast<LocationOnlyFilter *> (filter);
 840           loc = lof->getLocation ();
 841         }
 842     }
 843
 844   return loc;
 845 }
 846
 847 static void
 848 handle_single_step (jvmtiEnv *env, struct step_info *sinfo, jthread thread,
 849                     jmethodID method, jlocation location)
 850 {
 851   using namespace gnu::classpath::jdwp;
 852
 853   if (sinfo == NULL || sinfo->size == JdwpConstants$StepSize::MIN)
 854     {
 855       // Stop now
 856       goto send_notification;
 857     }
 858   else
 859     {
 860       // Check if we're on a new source line
 861       /* This is a little inefficient when we're stepping OVER,
 862          but this must be done when stepping INTO. */
 863       jint count;
 864       jvmtiLineNumberEntry *table;
 865       if (get_linetable (env, method, &count, &table) == JVMTI_ERROR_NONE)
 866         {
 867           jint i;
 868           for (i = 0; i < count; ++i)
 869             {
 870               if (table[i].start_location == location)
 871                 {
 872                   // This is the start of a new line -- stop
 873                   goto send_notification;
 874                 }
 875             }
 876
 877           // Not at a new source line -- just keep stepping
 878           return;
 879         }
 880       else
 881         {
 882           /* Something went wrong: either "absent information"
 883              or "out of memory" ("invalid method id" and "native
 884              method" aren't possible -- those are validated before
 885              single stepping is enabled).
 886
 887              Do what gdb does: just keep going. */
 888           return;
 889         }
 890     }
 891
 892  send_notification:
 893   jclass klass;
 894   jvmtiError err = env->GetMethodDeclaringClass (method, &klass);
 895   if (err != JVMTI_ERROR_NONE)
 896     {
 897       fprintf (stderr, "libgcj: internal error: could not find class for method while single stepping -- continuing\n");
 898       return;
 899     }
 900
 901   VMMethod *vmmethod = new VMMethod (klass, reinterpret_cast<jlong> (method));
 902   Location *loc = new Location (vmmethod, location);
 903   _Jv_InterpFrame *iframe
 904     = reinterpret_cast<_Jv_InterpFrame *> (thread->interp_frame);
 905   JvAssert (iframe->frame_type == frame_interpreter);
 906   jobject instance = iframe->get_this_ptr ();
 907   event::SingleStepEvent *event
 908     = new event::SingleStepEvent (thread, loc, instance);
 909
 910   // We only want to send the notification (and consequently
 911   // suspend) if we are not about to execute a breakpoint.
 912   _Jv_InterpMethod *im = reinterpret_cast<_Jv_InterpMethod *> (iframe->self);
 913   if (im->breakpoint_at (location))
 914     {
 915       // Next insn is a breakpoint -- record event and
 916       // wait for the JVMTI breakpoint notification to
 917       // enforce a suspension policy.
 918       VMVirtualMachine::_event_list->add (event);
 919     }
 920   else
 921     {
 922       // Next insn is not a breakpoint, so send notification
 923       // and enforce the suspend policy.
 924       Jdwp::notify (event);
 925     }
 926 }
 927
 928 static void
 929 throw_jvmti_error (jvmtiError err)
 930 {
 931   char *error;
 932   jstring msg;
 933   if (_jdwp_jvmtiEnv->GetErrorName (err, &error) == JVMTI_ERROR_NONE)
 934     {
 935       msg = JvNewStringLatin1 (error);
 936       _jdwp_jvmtiEnv->Deallocate ((unsigned char *) error);
 937     }
 938   else
 939     msg = JvNewStringLatin1 ("out of memory");
 940
 941   using namespace gnu::classpath::jdwp::exception;
 942   throw new JdwpInternalErrorException (msg);
 943 }
 944
 945 static void JNICALL
 946 jdwpBreakpointCB (jvmtiEnv *env, MAYBE_UNUSED JNIEnv *jni_env,
 947                   jthread thread, jmethodID method, jlocation location)
 948 {
 949   jclass klass;
 950   jvmtiError err;
 951   err = env->GetMethodDeclaringClass (method, &klass);
 952   JvAssert (err == JVMTI_ERROR_NONE);
 953
 954   using namespace gnu::classpath::jdwp;
 955   using namespace gnu::classpath::jdwp::event;
 956
 957   jlong methodId = reinterpret_cast<jlong> (method);
 958   VMMethod *meth = VMVirtualMachine::getClassMethod (klass, methodId);
 959   Location *loc = new Location (meth, location);
 960   _Jv_InterpFrame *iframe
 961     = reinterpret_cast<_Jv_InterpFrame *> (thread->interp_frame);
 962   JvAssert (iframe->frame_type == frame_interpreter);
 963   jobject instance = iframe->get_this_ptr ();
 964   BreakpointEvent *event = new BreakpointEvent (thread, loc, instance);
 965
 966   VMVirtualMachine::_event_list->add (event);
 967   JArray<Event *> *events
 968     = ((JArray<Event *> *)
 969        JvNewObjectArray (VMVirtualMachine::_event_list->size (),
 970                          &Event::class$, NULL));
 971   VMVirtualMachine::_event_list->toArray ((jobjectArray) events);
 972   VMVirtualMachine::_event_list->clear ();
 973   Jdwp::notify (events);
 974 }
 975
 976 static void JNICALL
 977 jdwpClassPrepareCB (MAYBE_UNUSED jvmtiEnv *env, MAYBE_UNUSED JNIEnv *jni_env,
 978                     jthread thread, jclass klass)
 979 {
 980   using namespace gnu::classpath::jdwp;
 981
 982   jint status = VMVirtualMachine::getClassStatus (klass);
 983   event::ClassPrepareEvent *event
 984     = new event::ClassPrepareEvent (thread, klass, status);
 985   Jdwp::notify (event);
 986 }
 987
 988 static void JNICALL
 989 jdwpExceptionCB (jvmtiEnv *env, MAYBE_UNUSED JNIEnv *jni_env, jthread thread,
 990                  jmethodID method, jlocation location, jobject exception,
 991                  jmethodID catch_method, jlocation catch_location)
 992 {
 993   using namespace gnu::classpath::jdwp;
 994   jclass throw_klass;
 995   jvmtiError err = env->GetMethodDeclaringClass (method, &throw_klass);
 996   if (err != JVMTI_ERROR_NONE)
 997     {
 998       fprintf (stderr, "libgcj: internal error: could not find class for ");
 999       fprintf (stderr, "method throwing exception -- continuing\n");
1000       return;
1001     }
1002
1003   VMMethod *vmmethod = new VMMethod (throw_klass,
1004                                      reinterpret_cast<jlong> (method));
1005   Location *throw_loc = new Location (vmmethod, location);
1006   Location *catch_loc = NULL;
1007   if (catch_method == 0)
1008     catch_loc = Location::getEmptyLocation ();
1009   else
1010     {
1011       jclass catch_klass;
1012       err = env->GetMethodDeclaringClass (catch_method, &catch_klass);
1013       if (err != JVMTI_ERROR_NONE)
1014         {
1015           fprintf (stderr,
1016                    "libgcj: internal error: could not find class for ");
1017           fprintf (stderr,
1018                    "method catching exception -- ignoring\n");
1019         }
1020       else
1021         {
1022           vmmethod = new VMMethod (catch_klass,
1023                                    reinterpret_cast<jlong> (catch_method));
1024           catch_loc = new Location (vmmethod, catch_location);
1025         }
1026     }
1027
1028   _Jv_InterpFrame *iframe
1029     = reinterpret_cast<_Jv_InterpFrame *> (thread->interp_frame);
1030   jobject instance = (iframe == NULL) ? NULL : iframe->get_this_ptr ();
1031   Throwable *throwable = reinterpret_cast<Throwable *> (exception);
1032   event::ExceptionEvent *e = new ExceptionEvent (throwable, thread,
1033                                                  throw_loc, catch_loc,
1034                                                  throw_klass, instance);
1035   Jdwp::notify (e);
1036 }
1037
1038 static void JNICALL
1039 jdwpSingleStepCB (jvmtiEnv *env, MAYBE_UNUSED JNIEnv *jni_env, jthread thread,
1040                   jmethodID method, jlocation location)
1041 {
1042   jobject si =
1043     gnu::classpath::jdwp::VMVirtualMachine::_stepping_threads->get (thread);
1044   struct step_info *sinfo = reinterpret_cast<struct step_info *> (si);
1045
1046   if (sinfo == NULL)
1047     {
1048       // no step filter for this thread - simply report it
1049       handle_single_step (env, NULL, thread, method, location);
1050     }
1051   else
1052     {
1053       // A step filter exists for this thread
1054       using namespace gnu::classpath::jdwp;
1055
1056       _Jv_InterpFrame *frame
1057         = reinterpret_cast<_Jv_InterpFrame *> (thread->interp_frame);
1058
1059       switch (sinfo->depth)
1060         {
1061         case JdwpConstants$StepDepth::INTO:
1062           /* This is the easy case. We ignore the method and
1063              simply stop at either the next insn, or the next source
1064              line. */
1065           handle_single_step (env, sinfo, thread, method, location);
1066           break;
1067
1068         case JdwpConstants$StepDepth::OVER:
1069           /* This is also a pretty easy case. We just make sure that
1070              the methods are the same and that we are at the same
1071              stack depth, but we should also stop on the next
1072              insn/line if the stack depth is LESS THAN it was when
1073              we started stepping. */
1074           if (method == sinfo->method)
1075             {
1076               // Still in the same method -- must be at same stack depth
1077               // to avoid confusion with recursive methods.
1078               if (frame->depth () == sinfo->stack_depth)
1079                 handle_single_step (env, sinfo, thread, method, location);
1080             }
1081           else if (frame->depth () < sinfo->stack_depth)
1082             {
1083               // The method in which we were stepping was popped off
1084               // the stack. We simply need to stop at the next insn/line.
1085               handle_single_step (env, sinfo, thread, method, location);
1086             }
1087           break;
1088
1089         case JdwpConstants$StepDepth::OUT:
1090           // All we need to do is check the stack depth
1091           if (sinfo->stack_depth > frame->depth ())
1092             handle_single_step (env, sinfo, thread, method, location);
1093           break;
1094
1095         default:
1096           /* This should not happen. The JDWP back-end should have
1097              validated the StepFilter. */
1098           fprintf (stderr,
1099                    "libgcj: unknown step depth while single stepping\n");
1100           return;
1101         }
1102     }
1103 }
1104
1105 static void JNICALL
1106 jdwpThreadEndCB (MAYBE_UNUSED jvmtiEnv *env, MAYBE_UNUSED JNIEnv *jni_env,
1107                  jthread thread)
1108 {
1109   using namespace gnu::classpath::jdwp::event;
1110
1111   ThreadEndEvent *e = new ThreadEndEvent (thread);
1112   gnu::classpath::jdwp::Jdwp::notify (e);
1113 }
1114
1115 static void JNICALL
1116 jdwpThreadStartCB (MAYBE_UNUSED jvmtiEnv *env, MAYBE_UNUSED JNIEnv *jni_env,
1117                    jthread thread)
1118 {
1119   using namespace gnu::classpath::jdwp::event;
1120
1121   ThreadStartEvent *e = new ThreadStartEvent (thread);
1122   gnu::classpath::jdwp::Jdwp::notify (e);
1123 }
1124
1125 static void JNICALL
1126 jdwpVMDeathCB (MAYBE_UNUSED jvmtiEnv *env, MAYBE_UNUSED JNIEnv *jni_env)
1127 {
1128   using namespace gnu::classpath::jdwp::event;
1129   gnu::classpath::jdwp::Jdwp::notify (new VmDeathEvent ());
1130 }
1131
1132 static void JNICALL
1133 jdwpVMInitCB (MAYBE_UNUSED jvmtiEnv *env, MAYBE_UNUSED JNIEnv *jni_env,
1134               jthread thread)
1135 {
1136   // The VM is now initialized, add our callbacks
1137   jvmtiEventCallbacks callbacks;
1138   DEFINE_CALLBACK (callbacks, Breakpoint);
1139   DEFINE_CALLBACK (callbacks, ClassPrepare);
1140   DEFINE_CALLBACK (callbacks, Exception);
1141   DEFINE_CALLBACK (callbacks, SingleStep);
1142   DEFINE_CALLBACK (callbacks, ThreadEnd);
1143   DEFINE_CALLBACK (callbacks, ThreadStart);
1144   DEFINE_CALLBACK (callbacks, VMDeath);
1145   _jdwp_jvmtiEnv->SetEventCallbacks (&callbacks, sizeof (callbacks));
1146
1147   // Enable callbacks
1148   ENABLE_EVENT (BREAKPOINT, NULL);
1149   ENABLE_EVENT (CLASS_PREPARE, NULL);
1150   ENABLE_EVENT (EXCEPTION, NULL);
1151   // SingleStep is enabled only when needed
1152   ENABLE_EVENT (THREAD_END, NULL);
1153   ENABLE_EVENT (THREAD_START, NULL);
1154   ENABLE_EVENT (VM_DEATH, NULL);
1155
1156   // Send JDWP VMInit
1157   using namespace gnu::classpath::jdwp::event;
1158   gnu::classpath::jdwp::Jdwp::notify (new VmInitEvent (thread));
1159 }