Archipelago » qemu

/*

 * gdb server stub

 * Copyright (c) 2003-2005 Fabrice Bellard

 *

 * This library is free software; you can redistribute it and/or

    registers[41] = 0; /* foseg */

    registers[42] = 0; /* fooff */

    registers[43] = 0; /* fop */

    for(i = 0; i < 16; i++)

        tswapls(&registers[i]);

    for(i = 36; i < 44; i++)

    /* F0-F7.  The 68881/68040 have 12-bit extended precision registers.

       ColdFire has 8-bit double precision registers.  */

    for (i = 0; i < 8; i++) {

        u.l.lower = tswap32(*(uint32_t *)ptr);

        env->fregs[i] = u.d;

    }

    uint8_t mem_buf[2000];

    uint32_t *registers;

    target_ulong addr, len;

#ifdef DEBUG_GDB

    printf("command='%s'\n", line_buf);

#endif

        /* when the CPU is running, we cannot do anything except stop

           it when receiving a char */

        vm_stop(EXCP_INTERRUPT);

#endif

    {

        switch(s->state) {

    /* set short latency */

    val = 1;

    setsockopt(fd, IPPROTO_TCP, TCP_NODELAY, (char *)&val, sizeof(val));

    s = &gdbserver_state;

    memset (s, 0, sizeof (GDBState));

    s->env = first_cpu; /* XXX: allow to change CPU */