<HTML><HEAD>
<META content="text/html; charset=ISO-8859-1" http-equiv=Content-Type></HEAD>
<BODY dir=ltr bgColor=#ffffff text=#000000>
<DIV dir=ltr>
<DIV style="FONT-SIZE: 12pt; FONT-FAMILY: 'Calibri'; COLOR: #000000">
<DIV>how close are we to adding openocd to the debugging in lazarus ?</DIV>
<DIV> </DIV>
<DIV>is there a simple configuration file to change or patch to use ?</DIV>
<DIV> </DIV>
<DIV>i want to be try openocd for debugging.</DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV>King Regards</DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV>Justin Smyth</DIV>
<DIV 
style="FONT-SIZE: small; FONT-FAMILY: 'Calibri'; FONT-WEIGHT: normal; COLOR: #000000; FONT-STYLE: normal; TEXT-DECORATION: none; DISPLAY: inline">
<DIV style="FONT: 10pt tahoma">
<DIV> </DIV>
<DIV style="BACKGROUND: #f5f5f5">
<DIV style="font-color: black"><B>From:</B> <A title=lazarus@mfriebe.de 
href="mailto:lazarus@mfriebe.de">Martin</A> </DIV>
<DIV><B>Sent:</B> Friday, February 8, 2013 11:09 AM</DIV>
<DIV><B>To:</B> <A title=fpc-devel@lists.freepascal.org 
href="mailto:fpc-devel@lists.freepascal.org">FPC developers' list</A> </DIV>
<DIV><B>Subject:</B> Re: [fpc-devel] I have created a openocd debugger-interface 
forlazarus, now some questions</DIV></DIV></DIV>
<DIV> </DIV></DIV>
<DIV 
style="FONT-SIZE: small; FONT-FAMILY: 'Calibri'; FONT-WEIGHT: normal; COLOR: #000000; FONT-STYLE: normal; TEXT-DECORATION: none; DISPLAY: inline">
<DIV class=moz-cite-prefix>On 07/02/2013 23:51, Michael Ring wrote:<BR></DIV>
<BLOCKQUOTE cite=mid:51143DF5.3060306@michael-ring.org type="cite">
  <DIV class=moz-cite-prefix> </DIV>Index: 
  debugger/debugger.pp<BR>===================================================================<BR>--- 
  debugger/debugger.pp        (revision 
  40204)<BR>+++ debugger/debugger.pp        
  (working copy)<BR>@@ -3304,6 +3304,7 @@<BR>const<BR>   
  OLD_GDB_DBG_NAME = 'GNU debugger (gdb)';<BR>   OLD_SSH_DBG_NAME = 
  'GNU debugger through SSH (gdb)';<BR>+  OLD_REMOTE_DBG_NAME = 'GNU 
  debugger through OpenOCD (gdb)';<BR></BLOCKQUOTE><BR>You should not need 
this.<BR><BR>Older versions of the IDE used those strings in the XML. But now 
the IDE uses the classname.<BR><BR>The 2 existing old names are kept so old 
config can be read.<BR><BR>There is no old config for your class.<BR><BR>
<BLOCKQUOTE cite=mid:51143DF5.3060306@michael-ring.org 
  type="cite">var<BR>   s: String;<BR>begin<BR>@@ -3314,6 +3315,7 
  @@<BR>     s := ConfigStore.GetValue('Type', 
  '');<BR>     if s = OLD_GDB_DBG_NAME then 
  FDebuggerClass:='TGDBMIDEBUGGER';<BR>     if s = 
  OLD_SSH_DBG_NAME then 
  FDebuggerClass:='TSSHGDBMIDEBUGGER';<BR>+    if s = 
  OLD_REMOTE_DBG_NAME then 
FDebuggerClass:='TOPENOCDGDBMIDEBUGGER';<BR></BLOCKQUOTE>see above<BR><BR>
<BLOCKQUOTE cite=mid:51143DF5.3060306@michael-ring.org type="cite">Index: 
  debugger/gdbmidebugger.pp<BR>===================================================================<BR>--- 
  debugger/gdbmidebugger.pp   (revision 40204)<BR>+++ 
  debugger/gdbmidebugger.pp   (working copy)<BR>@@ -4502,8 +4502,12 
  @@<BR>       s := GetPart(['Thread '], [' '], 
  R.Values, True);<BR>       Result := 
  StrToIntDef(s, 0);<BR>       if Result <> 
  0 then exit;<BR>+<BR>+      // returned by openocd 
  server<BR>+      s := GetPart(['* '], ['Remote 
  target'], R.Values, True);<BR>+      Result := 
  StrToIntDef(trim(s), 0);<BR>+      if Result <> 
  0 then exit;<BR>     end;<BR></BLOCKQUOTE><BR>I'd rather 
factor all of the "get PID" code into a virtual method. (on the class 
TGDBMIDebuggerCommandStartDebugging)<BR>Actually that might be the entire 
"RunToMain"<BR><BR>Then you can override it, and add there.<BR><BR>That means 
you have to subclass TGDBMIDebuggerCommandStartDebugging. See the 
GDBMIServerDebugger haw to do that<BR><BR><BR>
<P>
<HR>
_______________________________________________<BR>fpc-devel maillist  
-  
fpc-devel@lists.freepascal.org<BR>http://lists.freepascal.org/mailman/listinfo/fpc-devel<BR></DIV></DIV></DIV></BODY></HTML>