Subversion Repositories openrisc

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;