source: rtems/c/src/lib/libbsp/i386/ts_386ex/tools/debug_ada/serial_debug.adb @ 1d4048b2

with Ada.Text_IO;  use Ada.Text_IO;
with System.Machine_Code;  use System.Machine_Code;

package body Serial_Debug is

   ----------------
   -- Breakpoint --
   ----------------

   procedure Breakpoint is
   begin
      Asm ("int $3",
           No_Output_Operands,
           No_Input_Operands,
           Volatile => True);
   end Breakpoint;


   -- This type is from uart.h
   -- Equivalent to an int, with (COM1, COM2) => (0, 1)

   type BSP_Uart is (COM1, COM2);
   pragma Convention (C, BSP_Uart);


   -- The serial port currently used for console I/O

   BSP_Console_Port: BSP_Uart;
   pragma Import (C, BSP_Console_Port, "BSPConsolePort");


   -- C utility routines to set up serial-port debugging

   procedure I386_Stub_Glue_Init (Debug_Port: in BSP_Uart);
   pragma Import (C, I386_Stub_Glue_Init, "i386_stub_glue_init");

   procedure Set_Debug_Traps;
   pragma Import (C, Set_Debug_Traps, "set_debug_traps");

   procedure I386_Stub_Glue_Init_Breakin;
   pragma Import (C, I386_Stub_Glue_Init_Breakin,
                  "i386_stub_glue_init_breakin");

begin

   if BSP_Console_Port /= COM2
   then
      I386_Stub_Glue_Init (COM2);

      Put_Line ("Remote GDB using COM2...");
   else
      I386_Stub_Glue_Init (COM1);

      Put_Line ("Remote GDB using COM1...");
   end if;

   Put_Line ("Remote GDB setting traps...");

   Set_Debug_Traps;

   Put_Line ("Remote GDB waiting for connection...");

   I386_Stub_Glue_Init_Breakin;

end Serial_Debug;