From bd09d77972eca4a75b1d008c9957fb3d5e8ba88c Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Sat, 17 Oct 2015 00:19:15 +0200
Subject: [PATCH] gdb, prepared some struct related to gdbmi format

---
 src/ce_gdb.pas | 58 +++++++++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 57 insertions(+), 1 deletion(-)

diff --git a/src/ce_gdb.pas b/src/ce_gdb.pas
index 9bc16ed5..b939f506 100644
--- a/src/ce_gdb.pas
+++ b/src/ce_gdb.pas
@@ -11,7 +11,63 @@ uses
 
 type
 
+  {$IFDEF CPU64}
+  TCpuRegs = (rax);
+  {$ENDIF}
+
+  {$IFDEF CPU32}
   TCpuRegs = (eax);
+  {$ENDIF}
+
+  //TODO-cDebugging: write a parser for the DBG/MI output messages
+
+
+  TGDBMI_Frame = record
+    level: integer;
+    func: string;
+    adrress: ptruint;
+    fname: string;  // named "file"
+    line: integer;
+    from: string;
+  end;
+
+  TGDBMI_Breakpoint = record
+    number: integer;
+    tpe: string;        // named "type"
+    catchtype: string;  // named "catch-type"
+    disp: string;       // "del" | "keep"
+    enabled: boolean;   // "y" | "n"
+    addr: ptrUint;      // hex | <PENDING> | <MULTIPLE>
+    func: string;
+    filename: string;
+    fullname: string;
+    line: integer;
+    at: string;
+    pending: string;    // value is the command passed to set the BP
+    evaluateby: string; // named "evaluate-by" , host | target
+    thread: ptrUint;
+    task: string;
+    cond: string;
+    ignore: integer;
+    enable: integer;
+    traceframeusage: string;// named "traceframe-usage"
+    statictraceid: string;  // named "static-tracepoint-marker-string-id"
+    mask: string;
+    pass: integer;
+    originloc: string; // named "original-location"
+    times: integer;
+    installed: boolean; // "y" | "n" , only for trace points
+    what: string;
+  end;
+
+  TGDBMI_Thread = record
+    id: ptrUint;
+    targetid: string; // named "target-id"
+    details: string;
+    state: string;    // running | stopped
+    core: integer;
+  end;
+
 
   { TCEGdbWidget }
   TCEGdbWidget = class(TCEWidget, ICEProjectObserver, ICEMultiDocObserver)
@@ -37,7 +93,7 @@ type
     fDocHandler: ICEMultiDocHandler;
     fMsg: ICEMessagesDisplay;
     fGdb: TCEProcess;
-    fRegs: array[TCpuRegs] of UInt64;
+    fRegs: array[TCpuRegs] of ptrUint;
     //
     procedure startDebugging;
     procedure killGdb;