First part of inspecting local variables

runtime/vm/debugger.cc

 // Copyright (c) 2011, the Dart project authors.  Please see the AUTHORS file
 // for details. All rights reserved. Use of this source code is governed by a
 // BSD-style license that can be found in the LICENSE file.
 
 #include "vm/debugger.h"
 
 #include "vm/code_index_table.h"
 #include "vm/code_patcher.h"
 #include "vm/compiler.h"
 #include "vm/flags.h"
@@ skipping 54 matching lines @@
 
 void Breakpoint::VisitObjectPointers(ObjectPointerVisitor* visitor) {
   visitor->VisitPointer(reinterpret_cast<RawObject**>(&function_));
 }
 
 
 ActivationFrame::ActivationFrame(uword pc)
     : pc_(pc),
       function_(Function::null()),
       token_index_(-1),
-      line_number_(-1) {
+      line_number_(-1),
+      locals_(NULL) {
 }
 
 
 RawFunction* ActivationFrame::DartFunction() {
   if (function_ == Function::null()) {
     ASSERT(Isolate::Current() != NULL);
     CodeIndexTable* code_index_table = Isolate::Current()->code_index_table();
     ASSERT(code_index_table != NULL);
     function_ = code_index_table->LookupFunction(pc_);
   }
@@ skipping 63 matching lines @@
   // Compute line number lazily since it causes scanning of the script.
   if (line_number_ < 0) {
     const Script& script = Script::Handle(SourceScript());
     intptr_t ignore_column;
     script.GetTokenLocation(TokenIndex(), &line_number_, &ignore_column);
   }
   return line_number_;
 }
 
 
-RawArray* ActivationFrame::Variables() {
-  UNIMPLEMENTED();
-  return NULL;
+ActiveVariables* ActivationFrame::LocalVariables() {
+  if (locals_ == NULL) {
+    const Function& func = Function::Handle(DartFunction());
+    locals_ = new ActiveVariables(func, TokenIndex());
+  }
+  return locals_;
 }
 
 
 RawInstance* ActivationFrame::Value(const String& variable_name) {
   UNIMPLEMENTED();
   return NULL;
 }
 
 
 const char* ActivationFrame::ToCString() {
@@ skipping 12 matching lines @@
   OS::SNPrint(chars, len, kFormat, func_name, url.ToCString(), line);
   return chars;
 }
 
 
 void StackTrace::AddActivation(ActivationFrame* frame) {
   this->trace_.Add(frame);
 }
 
 
+ActiveVariables::ActiveVariables(const Function& function, intptr_t token_pos)
+    : descriptors_(NULL),
+      desc_indices_(8) {
+  const Code& code = Code::Handle(function.code());
+  LocalVarDescriptors& var_descs =
+      LocalVarDescriptors::ZoneHandle(code.var_descriptors());
+  descriptors_ = &var_descs;
+  intptr_t desc_len = var_descs.Length();
+  for (int i = 0; i < desc_len; i++) {
+    intptr_t begin_pos, end_pos;
+    var_descs.GetRange(i, &begin_pos, &end_pos);
+    if ((begin_pos <= token_pos) && (token_pos <= end_pos)) {
+      desc_indices_.Add(i);
+    }
+  }
+}
+
+
+void ActiveVariables::VariableAt(intptr_t i,
+                                 String* name,
+                                 intptr_t* token_pos,
+                                 intptr_t* end_pos,
+                                 Instance* value) const {
+  ASSERT(i < Length());
+  ASSERT(name != NULL);
+  intptr_t desc_index = desc_indices_[i];
+  *name ^= descriptors_->GetName(desc_index);
+  descriptors_->GetRange(i, token_pos, end_pos);
+  ASSERT(value != NULL);
+  *value = Instance::null();

[siva, 2011/12/20 19:11:26]

Do you need a TODO here stating that getting of local variable values is not
implemented yet?

[hausner, 2011/12/20 21:43:55]

Done. It's what I'll do in the next change.

+}
+
+
 Debugger::Debugger()
     : initialized_(false),
       bp_handler_(NULL),
       breakpoints_(NULL) {
 }
 
 
 bool Debugger::IsActive() {
   // TODO(hausner): The code generator uses this function to prevent
   // generation of optimized code when Dart code is being debugged.
@@ skipping 47 matching lines @@
   ASSERT(!code.IsNull());
   PcDescriptors& desc = PcDescriptors::Handle(code.pc_descriptors());
   for (int i = 0; i < desc.Length(); i++) {
     PcDescriptors::Kind kind = desc.DescriptorKind(i);
     Breakpoint* bpt = NULL;
     if (kind == PcDescriptors::kIcCall) {
       CodePatcher::PatchInstanceCallAt(
           desc.PC(i), StubCode::BreakpointDynamicEntryPoint());
       bpt = new Breakpoint(target_function, i);
     } else if (kind == PcDescriptors::kOther) {
-      if (CodePatcher::IsDartCall(desc.PC(i))) {
+      if ((desc.TokenIndex(i) > 0) && CodePatcher::IsDartCall(desc.PC(i))) {
         CodePatcher::PatchStaticCallAt(
             desc.PC(i), StubCode::BreakpointStaticEntryPoint());
         bpt = new Breakpoint(target_function, i);
       }
     }
     if (bpt != NULL) {
       if (verbose) {
         OS::Print("Setting breakpoint at '%s' line %d  (PC %p)\n",
             String::Handle(bpt->SourceUrl()).ToCString(),
             bpt->LineNumber(),
@@ skipping 11 matching lines @@
   ASSERT(visitor != NULL);
   Breakpoint* bpt = this->breakpoints_;
   while (bpt != NULL) {
     bpt->VisitObjectPointers(visitor);
     bpt = bpt->next();
   }
 }
 
 
 static void DefaultBreakpointHandler(Breakpoint* bpt, StackTrace* stack) {
+  String& var_name = String::Handle();
+  Instance& value = Instance::Handle();
   for (intptr_t i = 0; i < stack->Length(); i++) {
+    ActivationFrame* frame = stack->ActivationFrameAt(i);
     OS::Print("   %d. %s\n",
-              i + 1, stack->ActivationFrameAt(i)->ToCString());
+              i + 1, frame->ToCString());
+    ActiveVariables* locals = frame->LocalVariables();
+    intptr_t num_locals = locals->Length();
+    for (intptr_t i = 0; i < num_locals; i++) {
+      intptr_t token_pos, end_pos;
+      locals->VariableAt(i, &var_name, &token_pos, &end_pos, &value);
+      OS::Print("      var %s (pos %d) = %s\n",
+                var_name.ToCString(), token_pos, value.ToCString());
+    }
   }
 }
 
 
 void Debugger::SetBreakpointHandler(BreakpointHandler* handler) {
   bp_handler_ = handler;
   if (bp_handler_ == NULL) {
     bp_handler_ = &DefaultBreakpointHandler;
   }
 }
@@ skipping 49 matching lines @@
 
 
 void Debugger::AddBreakpoint(Breakpoint* bpt) {
   ASSERT(bpt->next() == NULL);
   bpt->set_next(this->breakpoints_);
   this->breakpoints_ = bpt;
 }
 
 
 }  // namespace dart