[jgardou] 64121: [KDGDB] - introduce KDGDB, a KDCOM-like DLL, wrapping the KD protocol and the GDB remote protocol together. It is not fully functional, but for now it permits source-level debuggin...
Author: jgardou Date: Thu Sep 11 20:55:42 2014 New Revision: 64121
URL: http://svn.reactos.org/svn/reactos?rev=64121&view=rev Log: [KDGDB] - introduce KDGDB, a KDCOM-like DLL, wrapping the KD protocol and the GDB remote protocol together. It is not fully functional, but for now it permits source-level debugging in some modules. More will be added as I feel the need and find the time to work a bit more on it. (That is, unless an angel comes and resume the work) To use it, set GDB and _WINKD_ to TRUE in your CMakeCache.txt. Using separate debug symbols is also a good idea.
Added: trunk/reactos/drivers/base/kdgdb/ trunk/reactos/drivers/base/kdgdb/CMakeLists.txt (with props) trunk/reactos/drivers/base/kdgdb/gdb_input.c (with props) trunk/reactos/drivers/base/kdgdb/gdb_receive.c (with props) trunk/reactos/drivers/base/kdgdb/gdb_send.c (with props) trunk/reactos/drivers/base/kdgdb/i386_sup.c (with props) trunk/reactos/drivers/base/kdgdb/kdcom.c (with props) trunk/reactos/drivers/base/kdgdb/kdgdb.h (with props) trunk/reactos/drivers/base/kdgdb/kdgdb.rc (with props) trunk/reactos/drivers/base/kdgdb/kdgdb.spec (with props) trunk/reactos/drivers/base/kdgdb/kdpacket.c (with props) Modified: trunk/reactos/cmake/gcc.cmake trunk/reactos/drivers/base/CMakeLists.txt
Modified: trunk/reactos/cmake/gcc.cmake URL: http://svn.reactos.org/svn/reactos/trunk/reactos/cmake/gcc.cmake?rev=64121&a... ============================================================================== --- trunk/reactos/cmake/gcc.cmake [iso-8859-1] (original) +++ trunk/reactos/cmake/gcc.cmake [iso-8859-1] Thu Sep 11 20:55:42 2014 @@ -62,13 +62,13 @@ string(REPLACE "/" "\" REACTOS_SOURCE_DIR_NATIVE ${REACTOS_SOURCE_DIR}) endif()
-if(NOT CMAKE_C_COMPILER_ID STREQUAL "Clang") +if((NOT CMAKE_C_COMPILER_ID STREQUAL "Clang") AND (NOT SEPARATE_DBG)) add_compile_flags("-fdebug-prefix-map="${REACTOS_SOURCE_DIR_NATIVE}"=ReactOS") endif()
# Debugging if(SEPARATE_DBG) - add_compile_flags("-gdwarf-2 -g2") + add_compile_flags("-gdwarf-4 -fvar-tracking-assignments") else() add_compile_flags("-gdwarf-2 -gstrict-dwarf") if(NOT CMAKE_C_COMPILER_ID STREQUAL "Clang")
Modified: trunk/reactos/drivers/base/CMakeLists.txt URL: http://svn.reactos.org/svn/reactos/trunk/reactos/drivers/base/CMakeLists.txt... ============================================================================== --- trunk/reactos/drivers/base/CMakeLists.txt [iso-8859-1] (original) +++ trunk/reactos/drivers/base/CMakeLists.txt [iso-8859-1] Thu Sep 11 20:55:42 2014 @@ -4,9 +4,13 @@ add_subdirectory(condrv)
if(_WINKD_) -add_subdirectory(kdcom) + if (GDB) + add_subdirectory(kdgdb) + else() + add_subdirectory(kdcom) + endif() else() -add_subdirectory(kdrosdbg) + add_subdirectory(kdrosdbg) endif()
add_subdirectory(nmidebug)
Added: trunk/reactos/drivers/base/kdgdb/CMakeLists.txt URL: http://svn.reactos.org/svn/reactos/trunk/reactos/drivers/base/kdgdb/CMakeLis... ============================================================================== --- trunk/reactos/drivers/base/kdgdb/CMakeLists.txt (added) +++ trunk/reactos/drivers/base/kdgdb/CMakeLists.txt [iso-8859-1] Thu Sep 11 20:55:42 2014 @@ -0,0 +1,29 @@ + +spec2def(kdcom.dll kdgdb.spec ADD_IMPORTLIB) + +list(APPEND SOURCE + gdb_input.c + gdb_receive.c + gdb_send.c + kdcom.c + kdpacket.c + kdgdb.h) + +# TODO: AMD64, ARM... +if(ARCH STREQUAL "i386") + list(APPEND SOURCE i386_sup.c) +endif() + +add_library(kdcom SHARED + ${SOURCE} + kdgdb.rc + ${CMAKE_CURRENT_BINARY_DIR}/kdcom.def) + +set_entrypoint(kdcom 0) +set_subsystem(kdcom native) +set_image_base(kdcom 0x00010000) + +add_importlibs(kdcom ntoskrnl hal) +target_link_libraries(kdcom cportlib) +add_pch(kdcom kdgdb.h SOURCE) +add_cd_file(TARGET kdcom DESTINATION reactos/system32 NO_CAB FOR all)
Propchange: trunk/reactos/drivers/base/kdgdb/CMakeLists.txt ------------------------------------------------------------------------------ svn:eol-style = native
Added: trunk/reactos/drivers/base/kdgdb/gdb_input.c URL: http://svn.reactos.org/svn/reactos/trunk/reactos/drivers/base/kdgdb/gdb_inpu... ============================================================================== --- trunk/reactos/drivers/base/kdgdb/gdb_input.c (added) +++ trunk/reactos/drivers/base/kdgdb/gdb_input.c [iso-8859-1] Thu Sep 11 20:55:42 2014 @@ -0,0 +1,285 @@ +/* + * COPYRIGHT: GPL, see COPYING in the top level directory + * PROJECT: ReactOS kernel + * FILE: drivers/base/kddll/gdb_input.c + * PURPOSE: Base functions for the kernel debugger. + */ + +#include "kdgdb.h" + +/* LOCALS *********************************************************************/ +static HANDLE gdb_run_thread; +static HANDLE gdb_dbg_process; +HANDLE gdb_dbg_thread; + +/* PRIVATE FUNCTIONS **********************************************************/ +static +HANDLE +hex_to_thread(char* buffer) +{ + ULONG_PTR ret = 0; + char hex; + while (*buffer) + { + hex = hex_value(*buffer++); + if (hex < 0) + return (HANDLE)ret; + ret <<= 4; + ret += hex; + } + return (HANDLE)ret; +} + +static +ULONG64 +hex_to_address(char* buffer) +{ + ULONG64 ret = 0; + char hex; + while (*buffer) + { + hex = hex_value(*buffer++); + if (hex < 0) + return ret; + ret <<= 4; + ret += hex; + } + return ret; +} + +/* H* packets */ +static +void +handle_gdb_set_thread(void) +{ + switch (gdb_input[1]) + { + case 'c': + if (strcmp(&gdb_input[2], "-1") == 0) + gdb_run_thread = (HANDLE)-1; + else + gdb_run_thread = hex_to_thread(&gdb_input[2]); + send_gdb_packet("OK"); + break; + case 'g': + if (strncmp(&gdb_input[2], "p-1", 3) == 0) + { + gdb_dbg_process = (HANDLE)-1; + gdb_dbg_thread = (HANDLE)-1; + } + else + { + char* ptr = strstr(gdb_input, ".") + 1; + gdb_dbg_process = hex_to_thread(&gdb_input[3]); + if (strncmp(ptr, "-1", 2) == 0) + gdb_dbg_thread = (HANDLE)-1; + else + gdb_dbg_thread = hex_to_thread(ptr); + } + send_gdb_packet("OK"); + break; + default: + KDDBGPRINT("KDGBD: Unknown 'H' command: %s\n", gdb_input); + send_gdb_packet(""); + } +} + +static +void +handle_gdb_thread_alive(void) +{ + char* ptr = strstr(gdb_input, ".") + 1; + CLIENT_ID ClientId; + PETHREAD Thread; + NTSTATUS Status; + + ClientId.UniqueProcess = hex_to_thread(&gdb_input[2]); + ClientId.UniqueThread = hex_to_thread(ptr); + + Status = PsLookupProcessThreadByCid(&ClientId, NULL, &Thread); + + if (!NT_SUCCESS(Status)) + { + /* Thread doesn't exist */ + send_gdb_packet("E03"); + return; + } + + /* It's OK */ + ObDereferenceObject(Thread); + send_gdb_packet("OK"); +} + +/* q* packets */ +static +void +handle_gdb_query(void) +{ + if (strncmp(gdb_input, "qSupported:", 11) == 0) + { + send_gdb_packet("PacketSize=4096;multiprocess+;"); + return; + } + + if (strncmp(gdb_input, "qAttached", 9) == 0) + { + /* Say yes: the remote server didn't create the process, ReactOS did! */ + send_gdb_packet("0"); + return; + } + + if (strncmp(gdb_input, "qRcmd,", 6) == 0) + { + send_gdb_packet("OK"); + return; + } + + if (strcmp(gdb_input, "qC") == 0) + { + char gdb_out[64]; + sprintf(gdb_out, "QC:p%p.%p;", + PsGetThreadProcessId((PETHREAD)(ULONG_PTR)CurrentStateChange.Thread), + PsGetThreadId((PETHREAD)(ULONG_PTR)CurrentStateChange.Thread)); + send_gdb_packet(gdb_out); + return; + } + + if (strncmp(gdb_input, "qTStatus", 8) == 0) + { + /* We don't support tracepoints. */ + send_gdb_packet("T0"); + return; + } + + KDDBGPRINT("KDGDB: Unknown query: %s\n", gdb_input); + send_gdb_packet(""); +} + +#if 0 +static +KDSTATUS +handle_gdb_registers( + _Out_ DBGKD_MANIPULATE_STATE64* State, + _Out_ PSTRING MessageData, + _Out_ PULONG MessageLength) +{ + /* + if (gdb_dbg_thread) + KDDBGPRINT("Should get registers from other thread!\n"); + */ + + State->ApiNumber = DbgKdGetContextApi; + State->ReturnStatus = STATUS_SUCCESS; /* ? */ + State->Processor = CurrentStateChange.Processor; + State->ProcessorLevel = CurrentStateChange.ProcessorLevel; + if (MessageData) + MessageData->Length = 0; + *MessageLength = 0; + return KdPacketReceived; +} +#endif + +static +KDSTATUS +handle_gdb_read_mem( + _Out_ DBGKD_MANIPULATE_STATE64* State, + _Out_ PSTRING MessageData, + _Out_ PULONG MessageLength) +{ + State->ApiNumber = DbgKdReadVirtualMemoryApi; + State->ReturnStatus = STATUS_SUCCESS; /* ? */ + State->Processor = CurrentStateChange.Processor; + State->ProcessorLevel = CurrentStateChange.ProcessorLevel; + if (MessageData) + MessageData->Length = 0; + *MessageLength = 0; + + State->u.ReadMemory.TargetBaseAddress = hex_to_address(&gdb_input[1]); + State->u.ReadMemory.TransferCount = hex_to_address(strstr(&gdb_input[1], ",") + 1); + return KdPacketReceived; +} + +static +KDSTATUS +handle_gdb_v( + _Out_ DBGKD_MANIPULATE_STATE64* State, + _Out_ PSTRING MessageData, + _Out_ PULONG MessageLength, + _Inout_ PKD_CONTEXT KdContext) +{ + if (strncmp(gdb_input, "vCont", 5) == 0) + { + if (gdb_input[5] == '?') + { + KDSTATUS Status; + /* Report what we support */ + send_gdb_packet("vCont;c;C;s;S"); + Status = gdb_receive_packet(KdContext); + if (Status != KdPacketReceived) + return Status; + return gdb_interpret_input(State, MessageData, MessageLength, KdContext); + } + + if (strcmp(gdb_input, "vCont;c") == 0) + { + /* Let's go on */ + State->ApiNumber = DbgKdContinueApi; + State->ReturnStatus = STATUS_SUCCESS; /* ? */ + State->Processor = CurrentStateChange.Processor; + State->ProcessorLevel = CurrentStateChange.ProcessorLevel; + if (MessageData) + MessageData->Length = 0; + *MessageLength = 0; + State->u.Continue.ContinueStatus = STATUS_SUCCESS; + /* Tell GDB we are fine */ + send_gdb_packet("OK"); + return KdPacketReceived; + } + } + + return KdPacketReceived; +} + +/* GLOBAL FUNCTIONS ***********************************************************/ +KDSTATUS +gdb_interpret_input( + _Out_ DBGKD_MANIPULATE_STATE64* State, + _Out_ PSTRING MessageData, + _Out_ PULONG MessageLength, + _Inout_ PKD_CONTEXT KdContext) +{ + KDSTATUS Status; + switch (gdb_input[0]) + { + case '?': + /* Send the Status */ + gdb_send_exception(); + break; + case 'g': + gdb_send_registers(); + break; + case 'H': + handle_gdb_set_thread(); + break; + case 'm': + return handle_gdb_read_mem(State, MessageData, MessageLength); + case 'q': + handle_gdb_query(); + break; + case 'T': + handle_gdb_thread_alive(); + break; + case 'v': + return handle_gdb_v(State, MessageData, MessageLength, KdContext); + default: + /* We don't know how to handle this request. Maybe this is something for KD */ + State->ReturnStatus = STATUS_NOT_SUPPORTED; + return KdPacketReceived; + } + /* Get the answer from GDB */ + Status = gdb_receive_packet(KdContext); + if (Status != KdPacketReceived) + return Status; + /* Try interpreting this new packet */ + return gdb_interpret_input(State, MessageData, MessageLength, KdContext); +}
Propchange: trunk/reactos/drivers/base/kdgdb/gdb_input.c ------------------------------------------------------------------------------ charset = UTF-8
Propchange: trunk/reactos/drivers/base/kdgdb/gdb_input.c ------------------------------------------------------------------------------ svn:eol-style = native
Propchange: trunk/reactos/drivers/base/kdgdb/gdb_input.c ------------------------------------------------------------------------------ svn:mime-type = text/plain
Added: trunk/reactos/drivers/base/kdgdb/gdb_receive.c URL: http://svn.reactos.org/svn/reactos/trunk/reactos/drivers/base/kdgdb/gdb_rece... ============================================================================== --- trunk/reactos/drivers/base/kdgdb/gdb_receive.c (added) +++ trunk/reactos/drivers/base/kdgdb/gdb_receive.c [iso-8859-1] Thu Sep 11 20:55:42 2014 @@ -0,0 +1,90 @@ +/* + * COPYRIGHT: GPL, see COPYING in the top level directory + * PROJECT: ReactOS kernel + * FILE: drivers/base/kddll/gdb_receive.c + * PURPOSE: Base functions for the kernel debugger. + */ + +#include "kdgdb.h" + +/* GLOBALS ********************************************************************/ +CHAR gdb_input[0x1000]; + +/* GLOBAL FUNCTIONS ***********************************************************/ +char +hex_value(char ch) +{ + if ((ch >= '0') && (ch <= '9')) + return (ch - '0'); + + if ((ch >= 'a') && (ch <= 'f')) + return (ch - 'a' + 10); + + if ((ch >= 'A') && (ch <= 'F')) + return (ch - 'A' + 10); + + return -1; +} + +KDSTATUS +NTAPI +gdb_receive_packet(_Inout_ PKD_CONTEXT KdContext) +{ + char* ByteBuffer = gdb_input; + UCHAR Byte; + KDSTATUS Status; + CHAR CheckSum = 0, ReceivedCheckSum; + + do + { + Status = KdpReceiveByte(&Byte); + if (Status != KdPacketReceived) + return Status; + if (Byte == 0x03) + { + KdContext->KdpControlCPending = TRUE; + return KdPacketNeedsResend; + } + } while (Byte != '$'); + + while (TRUE) + { + /* Try to get a byte from the port */ + Status = KdpReceiveByte(&Byte); + if (Status != KdPacketReceived) + return Status; + + if (Byte == '#') + { + *ByteBuffer = '\0'; + break; + } + + *ByteBuffer++ = Byte; + CheckSum += (CHAR)Byte; + } + + /* Get Check sum (two bytes) */ + Status = KdpReceiveByte(&Byte); + if (Status != KdPacketReceived) + goto end; + ReceivedCheckSum = hex_value(Byte) << 4;; + + Status = KdpReceiveByte(&Byte); + if (Status != KdPacketReceived) + goto end; + ReceivedCheckSum += hex_value(Byte); + +end: + if (ReceivedCheckSum != CheckSum) + { + /* Do not acknowledge to GDB */ + KdpSendByte('-'); + return KdPacketNeedsResend; + } + + /* Acknowledge */ + KdpSendByte('+'); + + return KdPacketReceived; +}
Propchange: trunk/reactos/drivers/base/kdgdb/gdb_receive.c ------------------------------------------------------------------------------ charset = UTF-8
Propchange: trunk/reactos/drivers/base/kdgdb/gdb_receive.c ------------------------------------------------------------------------------ svn:eol-style = native
Propchange: trunk/reactos/drivers/base/kdgdb/gdb_receive.c ------------------------------------------------------------------------------ svn:mime-type = text/plain
Added: trunk/reactos/drivers/base/kdgdb/gdb_send.c URL: http://svn.reactos.org/svn/reactos/trunk/reactos/drivers/base/kdgdb/gdb_send... ============================================================================== --- trunk/reactos/drivers/base/kdgdb/gdb_send.c (added) +++ trunk/reactos/drivers/base/kdgdb/gdb_send.c [iso-8859-1] Thu Sep 11 20:55:42 2014 @@ -0,0 +1,220 @@ +/* + * COPYRIGHT: GPL, see COPYING in the top level directory + * PROJECT: ReactOS kernel + * FILE: drivers/base/kddll/gdb_send.c + * PURPOSE: Base functions for the kernel debugger. + */ + +#include "kdgdb.h" + +/* LOCALS *********************************************************************/ +const char hex_chars[] = "0123456789abcdef"; + +/* PRIVATE FUNCTIONS **********************************************************/ +static +char* +exception_code_to_gdb(NTSTATUS code, char* out) +{ + unsigned char SigVal; + + switch (code) + { + case STATUS_INTEGER_DIVIDE_BY_ZERO: + SigVal = 8; /* divide by zero */ + break; + case STATUS_SINGLE_STEP: + case STATUS_BREAKPOINT: + SigVal = 5; /* breakpoint */ + break; + case STATUS_INTEGER_OVERFLOW: + case STATUS_ARRAY_BOUNDS_EXCEEDED: + SigVal = 16; /* bound instruction */ + break; + case STATUS_ILLEGAL_INSTRUCTION: + SigVal = 4; /* Invalid opcode */ + break; + case STATUS_STACK_OVERFLOW: + case STATUS_DATATYPE_MISALIGNMENT: + case STATUS_ACCESS_VIOLATION: + SigVal = 11; /* access violation */ + break; + default: + SigVal = 7; /* "software generated" */ + } + *out++ = hex_chars[(SigVal >> 4) & 0xf]; + *out++ = hex_chars[SigVal & 0xf]; + return out; +} + +/* GLOBAL FUNCTIONS ***********************************************************/ +void +send_gdb_packet(_In_ CHAR* Buffer) +{ + UCHAR ack; + + do { + CHAR* ptr = Buffer; + CHAR check_sum = 0; + + KdpSendByte('$'); + + /* Calculate checksum */ + check_sum = 0; + while (*ptr) + { + check_sum += *ptr; + KdpSendByte(*ptr++); + } + + /* append it */ + KdpSendByte('#'); + KdpSendByte(hex_chars[(check_sum >> 4) & 0xf]); + KdpSendByte(hex_chars[check_sum & 0xf]); + + /* Wait for acknowledgement */ + if (KdpReceiveByte(&ack) != KdPacketReceived) + { + KD_DEBUGGER_NOT_PRESENT = TRUE; + break; + } + } while (ack != '+'); +} + +void +send_gdb_memory( + _In_ VOID* Buffer, + _In_ size_t Length) +{ + UCHAR ack; + + do { + CHAR* ptr = Buffer; + CHAR check_sum = 0; + size_t len = Length; + CHAR Byte; + + KdpSendByte('$'); + + /* Send the data */ + check_sum = 0; + while (len--) + { + Byte = hex_chars[(*ptr >> 4) & 0xf]; + KdpSendByte(Byte); + check_sum += Byte; + Byte = hex_chars[*ptr++ & 0xf]; + KdpSendByte(Byte); + check_sum += Byte; + } + + /* append check sum */ + KdpSendByte('#'); + KdpSendByte(hex_chars[(check_sum >> 4) & 0xf]); + KdpSendByte(hex_chars[check_sum & 0xf]); + + /* Wait for acknowledgement */ + if (KdpReceiveByte(&ack) != KdPacketReceived) + { + KD_DEBUGGER_NOT_PRESENT = TRUE; + break; + } + } while (ack != '+'); +} + +void +gdb_send_debug_io( + _In_ PSTRING String) +{ + UCHAR ack; + + do { + CHAR* ptr = String->Buffer; + CHAR check_sum; + USHORT Length = String->Length; + CHAR Byte; + + KdpSendByte('$'); + + KdpSendByte('O'); + + /* Send the data */ + check_sum = 'O'; + while (Length--) + { + Byte = hex_chars[(*ptr >> 4) & 0xf]; + KdpSendByte(Byte); + check_sum += Byte; + Byte = hex_chars[*ptr++ & 0xf]; + KdpSendByte(Byte); + check_sum += Byte; + } + + /* append check sum */ + KdpSendByte('#'); + KdpSendByte(hex_chars[(check_sum >> 4) & 0xf]); + KdpSendByte(hex_chars[check_sum & 0xf]); + + /* Wait for acknowledgement */ + if (KdpReceiveByte(&ack) != KdPacketReceived) + { + KD_DEBUGGER_NOT_PRESENT = TRUE; + break; + } + } while (ack != '+'); +} + +void +gdb_send_exception(void) +{ + char gdb_out[1024]; + char* ptr = gdb_out; + DBGKM_EXCEPTION64* Exception = NULL; + + if (CurrentStateChange.NewState == DbgKdExceptionStateChange) + Exception = &CurrentStateChange.u.Exception; + + /* Report to GDB */ + *ptr++ = 'T'; + if (Exception) + ptr = exception_code_to_gdb(Exception->ExceptionRecord.ExceptionCode, ptr); + else + ptr += sprintf(ptr, "05"); + ptr += sprintf(ptr, "thread:p%p.%p;", + PsGetThreadProcessId((PETHREAD)(ULONG_PTR)CurrentStateChange.Thread), + PsGetThreadId((PETHREAD)(ULONG_PTR)CurrentStateChange.Thread)); + ptr += sprintf(ptr, "core:%x;", CurrentStateChange.Processor); + send_gdb_packet(gdb_out); +} + +#ifdef KDDEBUG +ULONG KdpDbgPrint(const char* Format, ...) +{ + va_list ap; + CHAR Buffer[512]; + struct _STRING Str; + int Length; + + va_start(ap, Format); + Length = _vsnprintf(Buffer, sizeof(Buffer), Format, ap); + va_end(ap); + + /* Check if we went past the buffer */ + if (Length == -1) + { + /* Terminate it if we went over-board */ + Buffer[sizeof(Buffer) - 1] = '\n'; + + /* Put maximum */ + Length = sizeof(Buffer); + } + + Str.Buffer = Buffer; + Str.Length = Length; + Str.MaximumLength = sizeof(Buffer); + + gdb_send_debug_io(&Str); + + return 0; +} +#endif +
Propchange: trunk/reactos/drivers/base/kdgdb/gdb_send.c ------------------------------------------------------------------------------ charset = UTF-8
Propchange: trunk/reactos/drivers/base/kdgdb/gdb_send.c ------------------------------------------------------------------------------ svn:eol-style = native
Propchange: trunk/reactos/drivers/base/kdgdb/gdb_send.c ------------------------------------------------------------------------------ svn:mime-type = text/plain
Added: trunk/reactos/drivers/base/kdgdb/i386_sup.c URL: http://svn.reactos.org/svn/reactos/trunk/reactos/drivers/base/kdgdb/i386_sup... ============================================================================== --- trunk/reactos/drivers/base/kdgdb/i386_sup.c (added) +++ trunk/reactos/drivers/base/kdgdb/i386_sup.c [iso-8859-1] Thu Sep 11 20:55:42 2014 @@ -0,0 +1,99 @@ +/* + * COPYRIGHT: GPL, see COPYING in the top level directory + * PROJECT: ReactOS kernel + * FILE: drivers/base/kddll/gdb_input.c + * PURPOSE: Base functions for the kernel debugger. + */ + +#include "kdgdb.h" + +enum reg_name +{ + EAX, ECX, EDX, EBX, ESP, EBP, ESI, EDI, + EIP, + EFLAGS, + CS, SS, DS, ES, FS, GS, + ST0, ST1, ST2, ST3, ST4, ST5, ST6, ST7, + FCTRL, FSTAT, FTAG, FISEG, FIOFF, FOSEG, FOOFF, FOP, + XMM0, XMM1, XMM2, XMM3, XMM4, XMM5, XMM6, XMM7, + MXCSR +}; + +static +void* +ctx_to_reg(CONTEXT* ctx, enum reg_name name, unsigned short* size) +{ + /* For general registers: 32bits */ + *size = 4; + switch (name) + { + case EAX: return &ctx->Eax; + case EBX: return &ctx->Ebx; + case ECX: return &ctx->Ecx; + case EDX: return &ctx->Edx; + case ESP: return &ctx->Esp; + case EBP: return &ctx->Ebp; + case ESI: return &ctx->Esi; + case EDI: return &ctx->Edi; + case EIP: return &ctx->Eip; + case EFLAGS: return &ctx->EFlags; + case CS: return &ctx->SegCs; + case DS: return &ctx->SegDs; + case ES: return &ctx->SegEs; + case FS: return &ctx->SegFs; + case GS: return &ctx->SegGs; + case SS: return &ctx->SegSs; + /* 80 bits */ + case ST0: + case ST1: + case ST2: + case ST3: + case ST4: + case ST5: + case ST6: + case ST7: + *size = 10; + return &ctx->FloatSave.RegisterArea[10 * (name - ST0)]; + /* X87 registers */ + case FCTRL: return &ctx->FloatSave.ControlWord; + case FSTAT: return &ctx->FloatSave.StatusWord; + case FTAG: return &ctx->FloatSave.TagWord; + case FISEG: return &ctx->FloatSave.DataSelector; + case FIOFF: return &ctx->FloatSave.DataOffset; + case FOSEG: return &ctx->FloatSave.ErrorSelector; + case FOOFF: return &ctx->FloatSave.ErrorOffset; + case FOP: return &ctx->FloatSave.Cr0NpxState; + /* SSE */ + case XMM0: + case XMM1: + case XMM2: + case XMM3: + case XMM4: + case XMM5: + case XMM6: + case XMM7: + *size = 16; + return &ctx->ExtendedRegisters[160 + (name - XMM0)*16]; + case MXCSR: return &ctx->ExtendedRegisters[24]; + } + return 0; +} + +void +gdb_send_registers(void) +{ + CONTEXT* ctx; + PKPRCB* ProcessorBlockLists; + ULONG32 Registers[16]; + unsigned i; + unsigned short size; + + ProcessorBlockLists = (PKPRCB*)KdDebuggerDataBlock->KiProcessorBlock.Pointer; + ctx = (CONTEXT*)((char*)ProcessorBlockLists[CurrentStateChange.Processor] + KdDebuggerDataBlock->OffsetPrcbProcStateContext); + + for(i=0; i < 16; i++) + { + Registers[i] = *(ULONG32*)ctx_to_reg(ctx, i, &size); + } + send_gdb_memory(Registers, sizeof(Registers)); +}
Propchange: trunk/reactos/drivers/base/kdgdb/i386_sup.c ------------------------------------------------------------------------------ charset = UTF-8
Propchange: trunk/reactos/drivers/base/kdgdb/i386_sup.c ------------------------------------------------------------------------------ svn:eol-style = native
Propchange: trunk/reactos/drivers/base/kdgdb/i386_sup.c ------------------------------------------------------------------------------ svn:mime-type = text/plain
Added: trunk/reactos/drivers/base/kdgdb/kdcom.c URL: http://svn.reactos.org/svn/reactos/trunk/reactos/drivers/base/kdgdb/kdcom.c?... ============================================================================== --- trunk/reactos/drivers/base/kdgdb/kdcom.c (added) +++ trunk/reactos/drivers/base/kdgdb/kdcom.c [iso-8859-1] Thu Sep 11 20:55:42 2014 @@ -0,0 +1,269 @@ +/* + * COPYRIGHT: GPL, see COPYING in the top level directory + * PROJECT: ReactOS kernel + * FILE: drivers/base/kdgdb/kdcom.c + * PURPOSE: COM port functions for the kernel debugger. + */ + +#include "kdgdb.h" + +#include <cportlib/cportlib.h> +#include <arc/arc.h> +#include <stdlib.h> +#include <ndk/halfuncs.h> + +/* Serial debug connection */ +#define DEFAULT_DEBUG_PORT 2 /* COM2 */ +#define DEFAULT_DEBUG_COM1_IRQ 4 /* COM1 IRQ */ +#define DEFAULT_DEBUG_COM2_IRQ 3 /* COM2 IRQ */ +#define DEFAULT_DEBUG_BAUD_RATE 115200 /* 115200 Baud */ + +#define DEFAULT_BAUD_RATE 19200 + +#if defined(_M_IX86) || defined(_M_AMD64) +const ULONG BaseArray[] = {0, 0x3F8, 0x2F8, 0x3E8, 0x2E8}; +#elif defined(_M_PPC) +const ULONG BaseArray[] = {0, 0x800003F8}; +#elif defined(_M_MIPS) +const ULONG BaseArray[] = {0, 0x80006000, 0x80007000}; +#elif defined(_M_ARM) +const ULONG BaseArray[] = {0, 0xF1012000}; +#else +#error Unknown architecture +#endif + +/* GLOBALS ********************************************************************/ + +CPPORT KdDebugComPort; +ULONG KdDebugComPortIrq = 0; // Not used at the moment. + + +/* FUNCTIONS ******************************************************************/ + +NTSTATUS +NTAPI +KdD0Transition(VOID) +{ + return STATUS_SUCCESS; +} + +NTSTATUS +NTAPI +KdD3Transition(VOID) +{ + return STATUS_SUCCESS; +} + +NTSTATUS +NTAPI +KdSave(IN BOOLEAN SleepTransition) +{ + /* Nothing to do on COM ports */ + return STATUS_SUCCESS; +} + +NTSTATUS +NTAPI +KdRestore(IN BOOLEAN SleepTransition) +{ + /* Nothing to do on COM ports */ + return STATUS_SUCCESS; +} + +NTSTATUS +NTAPI +KdpPortInitialize(IN ULONG ComPortNumber, + IN ULONG ComPortBaudRate) +{ + NTSTATUS Status; + + Status = CpInitialize(&KdDebugComPort, + UlongToPtr(BaseArray[ComPortNumber]), + ComPortBaudRate); + if (!NT_SUCCESS(Status)) + { + return STATUS_INVALID_PARAMETER; + } + else + { + KdComPortInUse = KdDebugComPort.Address; + return STATUS_SUCCESS; + } +} + +/****************************************************************************** + * \name KdDebuggerInitialize0 + * \brief Phase 0 initialization. + * \param [opt] LoaderBlock Pointer to the Loader parameter block. Can be NULL. + * \return Status + */ +NTSTATUS +NTAPI +KdDebuggerInitialize0(IN PLOADER_PARAMETER_BLOCK LoaderBlock OPTIONAL) +{ + ULONG ComPortNumber = DEFAULT_DEBUG_PORT; + ULONG ComPortBaudRate = DEFAULT_DEBUG_BAUD_RATE; + + PCHAR CommandLine, PortString, BaudString, IrqString; + ULONG Value; + + /* Check if e have a LoaderBlock */ + if (LoaderBlock) + { + + /* Get the Command Line */ + CommandLine = LoaderBlock->LoadOptions; + + /* Upcase it */ + _strupr(CommandLine); + + /* Get the port and baud rate */ + PortString = strstr(CommandLine, "DEBUGPORT"); + BaudString = strstr(CommandLine, "BAUDRATE"); + IrqString = strstr(CommandLine, "IRQ"); + + /* Check if we got the /DEBUGPORT parameter */ + if (PortString) + { + /* Move past the actual string, to reach the port*/ + PortString += strlen("DEBUGPORT"); + + /* Now get past any spaces and skip the equal sign */ + while (*PortString == ' ') PortString++; + PortString++; + + /* Do we have a serial port? */ + if (strncmp(PortString, "COM", 3) != 0) + { + return STATUS_INVALID_PARAMETER; + } + + /* Check for a valid Serial Port */ + PortString += 3; + Value = atol(PortString); + if (Value >= sizeof(BaseArray) / sizeof(BaseArray[0])) + { + return STATUS_INVALID_PARAMETER; + } + + /* Set the port to use */ + ComPortNumber = Value; + } + + /* Check if we got a baud rate */ + if (BaudString) + { + /* Move past the actual string, to reach the rate */ + BaudString += strlen("BAUDRATE"); + + /* Now get past any spaces */ + while (*BaudString == ' ') BaudString++; + + /* And make sure we have a rate */ + if (*BaudString) + { + /* Read and set it */ + Value = atol(BaudString + 1); + if (Value) ComPortBaudRate = Value; + } + } + + /* Check Serial Port Settings [IRQ] */ + if (IrqString) + { + /* Move past the actual string, to reach the rate */ + IrqString += strlen("IRQ"); + + /* Now get past any spaces */ + while (*IrqString == ' ') IrqString++; + + /* And make sure we have an IRQ */ + if (*IrqString) + { + /* Read and set it */ + Value = atol(IrqString + 1); + if (Value) KdDebugComPortIrq = Value; + } + } + } + + /* Initialize the port */ + return KdpPortInitialize(ComPortNumber, ComPortBaudRate); +} + +/****************************************************************************** + * \name KdDebuggerInitialize1 + * \brief Phase 1 initialization. + * \param [opt] LoaderBlock Pointer to the Loader parameter block. Can be NULL. + * \return Status + */ +NTSTATUS +NTAPI +KdDebuggerInitialize1(IN PLOADER_PARAMETER_BLOCK LoaderBlock OPTIONAL) +{ + return STATUS_SUCCESS; +} + + +VOID +NTAPI +KdpSendByte(_In_ UCHAR Byte) +{ + /* Send the byte */ + CpPutByte(&KdDebugComPort, Byte); +} + +KDSTATUS +NTAPI +KdpPollByte(OUT PUCHAR OutByte) +{ + /* Poll the byte */ + if (CpGetByte(&KdDebugComPort, OutByte, FALSE, FALSE) == CP_GET_SUCCESS) + { + return KdPacketReceived; + } + else + { + return KdPacketTimedOut; + } +} + +KDSTATUS +NTAPI +KdpReceiveByte(_Out_ PUCHAR OutByte) +{ + /* Get the byte */ + if (CpGetByte(&KdDebugComPort, OutByte, TRUE, FALSE) == CP_GET_SUCCESS) + { + return KdPacketReceived; + } + else + { + return KdPacketTimedOut; + } +} + +KDSTATUS +NTAPI +KdpPollBreakIn(VOID) +{ + KDSTATUS KdStatus; + UCHAR Byte; + + KdStatus = KdpPollByte(&Byte); + if (KdStatus == KdPacketReceived) + { + if (Byte == 0x03) + { + return KdPacketReceived; + } + else if (Byte == '$') + { + /* GDB tried to send a new packet. N-ack it. */ + KdpSendByte('-'); + } + } + return KdPacketTimedOut; +} + +/* EOF */
Propchange: trunk/reactos/drivers/base/kdgdb/kdcom.c ------------------------------------------------------------------------------ charset = UTF-8
Propchange: trunk/reactos/drivers/base/kdgdb/kdcom.c ------------------------------------------------------------------------------ svn:eol-style = native
Propchange: trunk/reactos/drivers/base/kdgdb/kdcom.c ------------------------------------------------------------------------------ svn:mime-type = text/plain
Added: trunk/reactos/drivers/base/kdgdb/kdgdb.h URL: http://svn.reactos.org/svn/reactos/trunk/reactos/drivers/base/kdgdb/kdgdb.h?... ============================================================================== --- trunk/reactos/drivers/base/kdgdb/kdgdb.h (added) +++ trunk/reactos/drivers/base/kdgdb/kdgdb.h [iso-8859-1] Thu Sep 11 20:55:42 2014 @@ -0,0 +1,56 @@ +/* + * COPYRIGHT: GPL, see COPYING in the top level directory + * PROJECT: ReactOS kernel + * FILE: drivers/base/kddll/kddll.h + * PURPOSE: Base definitions for the kernel debugger. + */ + +#ifndef _KDGDB_H_ +#define _KDGDB_H_ + +#define NOEXTAPI +#include <ntifs.h> +#include <halfuncs.h> +#include <stdio.h> +#include <arc/arc.h> +#include <windbgkd.h> +#include <kddll.h> + +// #define KDDEBUG /* uncomment to enable debugging this dll */ + +#ifndef KDDEBUG +#define KDDBGPRINT(...) +#else +extern ULONG KdpDbgPrint(const char* Format, ...); +#define KDDBGPRINT KdpDbgPrint +#endif + +/* gdb_input.c */ +extern HANDLE gdb_dbg_thread; +KDSTATUS gdb_interpret_input(_Out_ DBGKD_MANIPULATE_STATE64* State, _Out_ PSTRING MessageData, _Out_ PULONG MessageLength, _Inout_ PKD_CONTEXT KdContext); + +/* gdb_receive.c */ +extern CHAR gdb_input[]; +KDSTATUS NTAPI gdb_receive_packet(_Inout_ PKD_CONTEXT KdContext); +char hex_value(char ch); + +/* gdb_send.c */ +void send_gdb_packet(_In_ CHAR* Buffer); +void send_gdb_memory(_In_ VOID* Buffer, size_t Length); +void gdb_send_debug_io(_In_ PSTRING String); +void gdb_send_exception(void); + +/* kdcom.c */ +KDSTATUS NTAPI KdpPollBreakIn(VOID); +VOID NTAPI KdpSendByte(_In_ UCHAR Byte); +KDSTATUS NTAPI KdpReceiveByte(_Out_ PUCHAR OutByte); + +/* kdpacket.c */ +extern DBGKD_ANY_WAIT_STATE_CHANGE CurrentStateChange; +extern DBGKD_GET_VERSION64 KdVersion; +extern KDDEBUGGER_DATA64* KdDebuggerDataBlock; + +/* arch_sup.c */ +void gdb_send_registers(void); + +#endif /* _KDGDB_H_ */
Propchange: trunk/reactos/drivers/base/kdgdb/kdgdb.h ------------------------------------------------------------------------------ charset = UTF-8
Propchange: trunk/reactos/drivers/base/kdgdb/kdgdb.h ------------------------------------------------------------------------------ svn:eol-style = native
Propchange: trunk/reactos/drivers/base/kdgdb/kdgdb.h ------------------------------------------------------------------------------ svn:mime-type = text/plain
Added: trunk/reactos/drivers/base/kdgdb/kdgdb.rc URL: http://svn.reactos.org/svn/reactos/trunk/reactos/drivers/base/kdgdb/kdgdb.rc... ============================================================================== --- trunk/reactos/drivers/base/kdgdb/kdgdb.rc (added) +++ trunk/reactos/drivers/base/kdgdb/kdgdb.rc [iso-8859-1] Thu Sep 11 20:55:42 2014 @@ -0,0 +1,5 @@ +#define REACTOS_VERSION_DLL +#define REACTOS_STR_FILE_DESCRIPTION "ReactOS GDB KDCOM wrapper DLL" +#define REACTOS_STR_INTERNAL_NAME "kdcom" +#define REACTOS_STR_ORIGINAL_FILENAME "kdcom.dll" +#include <reactos/version.rc>
Propchange: trunk/reactos/drivers/base/kdgdb/kdgdb.rc ------------------------------------------------------------------------------ svn:eol-style = native
Added: trunk/reactos/drivers/base/kdgdb/kdgdb.spec URL: http://svn.reactos.org/svn/reactos/trunk/reactos/drivers/base/kdgdb/kdgdb.sp... ============================================================================== --- trunk/reactos/drivers/base/kdgdb/kdgdb.spec (added) +++ trunk/reactos/drivers/base/kdgdb/kdgdb.spec [iso-8859-1] Thu Sep 11 20:55:42 2014 @@ -0,0 +1,8 @@ +@ stdcall KdD0Transition() +@ stdcall KdD3Transition() +@ stdcall KdDebuggerInitialize0(ptr) +@ stdcall KdDebuggerInitialize1(ptr) +@ stdcall KdReceivePacket(long ptr ptr ptr ptr) +@ stdcall KdRestore(long) +@ stdcall KdSave(long) +@ stdcall KdSendPacket(long ptr ptr ptr)
Propchange: trunk/reactos/drivers/base/kdgdb/kdgdb.spec ------------------------------------------------------------------------------ svn:eol-style = native
Added: trunk/reactos/drivers/base/kdgdb/kdpacket.c URL: http://svn.reactos.org/svn/reactos/trunk/reactos/drivers/base/kdgdb/kdpacket... ============================================================================== --- trunk/reactos/drivers/base/kdgdb/kdpacket.c (added) +++ trunk/reactos/drivers/base/kdgdb/kdpacket.c [iso-8859-1] Thu Sep 11 20:55:42 2014 @@ -0,0 +1,203 @@ +/* + * COPYRIGHT: GPL, see COPYING in the top level directory + * PROJECT: ReactOS kernel + * FILE: drivers/base/kddll/kdpacket.c + * PURPOSE: Base functions for the kernel debugger. + */ + +#include "kdgdb.h" + +/* GLOBALS ********************************************************************/ + +DBGKD_ANY_WAIT_STATE_CHANGE CurrentStateChange; +DBGKD_GET_VERSION64 KdVersion; +KDDEBUGGER_DATA64* KdDebuggerDataBlock; + +/* LOCALS *********************************************************************/ +static BOOLEAN FakeNextManipulatePacket = FALSE; +static DBGKD_MANIPULATE_STATE64 FakeManipulateState = {0}; + +/* PRIVATE FUNCTIONS **********************************************************/ +static +void +send_kd_state_change(DBGKD_ANY_WAIT_STATE_CHANGE* StateChange) +{ + static BOOLEAN first = TRUE; + + /* Save current state for later GDB queries */ + CurrentStateChange = *StateChange; + + if (first) + { + /* + * This is the first packet we receive. + * We take this as an opportunity to connect with GDB and to + * get the KD version block + */ + FakeNextManipulatePacket = TRUE; + FakeManipulateState.ApiNumber = DbgKdGetVersionApi; + FakeManipulateState.Processor = StateChange->Processor; + FakeManipulateState.ProcessorLevel = StateChange->ProcessorLevel; + FakeManipulateState.ReturnStatus = STATUS_SUCCESS; + + first = FALSE; + return; + } + + switch (StateChange->NewState) + { + case DbgKdLoadSymbolsStateChange: + { + /* We don't care about symbols loading */ + FakeNextManipulatePacket = TRUE; + FakeManipulateState.ApiNumber = DbgKdContinueApi; + FakeManipulateState.Processor = StateChange->Processor; + FakeManipulateState.ProcessorLevel = StateChange->ProcessorLevel; + FakeManipulateState.ReturnStatus = STATUS_SUCCESS; + FakeManipulateState.u.Continue.ContinueStatus = STATUS_SUCCESS; + break; + } + case DbgKdExceptionStateChange: + gdb_send_exception(); + break; + default: + /* FIXME */ + while (1); + } +} + +static +void +send_kd_debug_io( + _In_ DBGKD_DEBUG_IO* DebugIO, + _In_ PSTRING String) +{ + switch (DebugIO->ApiNumber) + { + case DbgKdPrintStringApi: + gdb_send_debug_io(String); + break; + default: + /* FIXME */ + while (1); + } +} + +static +void +send_kd_state_manipulate( + _In_ DBGKD_MANIPULATE_STATE64* State, + _In_ PSTRING MessageData) +{ + switch (State->ApiNumber) + { +#if 0 + case DbgKdGetContextApi: + /* This is an answer to a 'g' GDB request */ + gdb_send_registers((CONTEXT*)MessageData->Buffer); + return; +#endif + case DbgKdReadVirtualMemoryApi: + /* Answer to 'm' GDB request */ + send_gdb_memory(MessageData->Buffer, State->u.ReadMemory.ActualBytesRead); + break; + case DbgKdGetVersionApi: + { + LIST_ENTRY* DebuggerDataList; + /* Simply get a copy */ + RtlCopyMemory(&KdVersion, &State->u.GetVersion64, sizeof(KdVersion)); + DebuggerDataList = (LIST_ENTRY*)(ULONG_PTR)KdVersion.DebuggerDataList; + KdDebuggerDataBlock = CONTAINING_RECORD(DebuggerDataList->Flink, KDDEBUGGER_DATA64, Header.List); + return; + } + default: + /* FIXME */ + while (1); + } +} + +/* PUBLIC FUNCTIONS ***********************************************************/ + +/****************************************************************************** + * \name KdReceivePacket + * \brief Receive a packet from the KD port. + * \param [in] PacketType Describes the type of the packet to receive. + * This can be one of the PACKET_TYPE_ constants. + * \param [out] MessageHeader Pointer to a STRING structure for the header. + * \param [out] MessageData Pointer to a STRING structure for the data. + * \return KdPacketReceived if successful, KdPacketTimedOut if the receive + * timed out, KdPacketNeedsResend to signal that the last packet needs + * to be sent again. + * \note If PacketType is PACKET_TYPE_KD_POLL_BREAKIN, the function doesn't + * wait for any data, but returns KdPacketTimedOut instantly if no breakin + * packet byte is received. + * \sa http://www.nynaeve.net/?p=169 + */ +KDSTATUS +NTAPI +KdReceivePacket( + _In_ ULONG PacketType, + _Out_ PSTRING MessageHeader, + _Out_ PSTRING MessageData, + _Out_ PULONG DataLength, + _Inout_ PKD_CONTEXT KdContext) +{ + KDSTATUS Status; + DBGKD_MANIPULATE_STATE64* State; + + /* Special handling for breakin packet */ + if (PacketType == PACKET_TYPE_KD_POLL_BREAKIN) + { + return KdpPollBreakIn(); + } + + if (PacketType != PACKET_TYPE_KD_STATE_MANIPULATE) + { + /* What should we do ? */ + while (1); + } + + State = (DBGKD_MANIPULATE_STATE64*)MessageHeader->Buffer; + + if (FakeNextManipulatePacket) + { + FakeNextManipulatePacket = FALSE; + *State = FakeManipulateState; + return KdPacketReceived; + } + + /* Receive data from GDB */ + Status = gdb_receive_packet(KdContext); + if (Status != KdPacketReceived) + return Status; + + /* Interpret it */ + return gdb_interpret_input(State, MessageData, DataLength, KdContext); +} + +VOID +NTAPI +KdSendPacket( + IN ULONG PacketType, + IN PSTRING MessageHeader, + IN PSTRING MessageData, + IN OUT PKD_CONTEXT KdContext) +{ + switch (PacketType) + { + case PACKET_TYPE_KD_STATE_CHANGE64: + send_kd_state_change((DBGKD_ANY_WAIT_STATE_CHANGE*)MessageHeader->Buffer); + return; + case PACKET_TYPE_KD_DEBUG_IO: + send_kd_debug_io((DBGKD_DEBUG_IO*)MessageHeader->Buffer, MessageData); + break; + case PACKET_TYPE_KD_STATE_MANIPULATE: + send_kd_state_manipulate((DBGKD_MANIPULATE_STATE64*)MessageHeader->Buffer, MessageData); + break; + default: + /* FIXME */ + while (1); + } +} + +/* EOF */
Propchange: trunk/reactos/drivers/base/kdgdb/kdpacket.c ------------------------------------------------------------------------------ charset = UTF-8
Propchange: trunk/reactos/drivers/base/kdgdb/kdpacket.c ------------------------------------------------------------------------------ svn:eol-style = native
Propchange: trunk/reactos/drivers/base/kdgdb/kdpacket.c ------------------------------------------------------------------------------ svn:mime-type = text/plain
-
jgardou＠svn.reactos.org