Commits

sk  committed 2902767

When thread is suspended, the reason is shown in thread label.

  • Participants
  • Parent commits 93c780c

Comments (0)

Files changed (2)

File src/org/lispdev/swank/LispImplementation.java

     }
     DebugInfo res = new DebugInfo(debugInfo.get(1).value,
         debugInfo.get(2).asInt(),
-        debugInfo.get(3).get(0) + "\n" + debugInfo.get(3).get(1));
+        debugInfo.get(3).get(0).value + "\n" + debugInfo.get(3).get(1).value);
     if( res.condition == null || res.thread == null )
     {
       Log.logError("Debug info does not have correct structure: "+

File src/org/lispdev/swank/debug/LispThread.java

 package org.lispdev.swank.debug;
 
+import org.eclipse.debug.core.DebugEvent;
 import org.eclipse.debug.core.DebugException;
 import org.eclipse.debug.core.model.IBreakpoint;
 import org.eclipse.debug.core.model.IStackFrame;
   {
     debugInfo = null;
     suspended = false;
-    fireResumeEvent(1);
+    fireResumeEvent(DebugEvent.RESUME);
   }
 
   @Override
   public void suspend() throws DebugException
-  {
-  }
+  {}
 
   @Override
   public boolean canStepInto()
   {
     debugInfo = info;
     suspended = (info != null);
-    fireSuspendEvent(1);
+    fireSuspendEvent(DebugEvent.SUSPEND);
+  }
+
+  public String getError()
+  {
+    if( debugInfo == null )
+    {
+      return null;
+    }
+    return debugInfo.condition;
   }
 
 }