1.1 --- a/.hgignore	Mon Sep 19 16:02:32 2005 +0000
     1.2 +++ b/.hgignore	Mon Sep 19 16:02:54 2005 +0000
     1.3 @@ -86,6 +86,9 @@
     1.4  ^tools/check/\..*$
     1.5  ^tools/console/xenconsoled$
     1.6  ^tools/console/xenconsole$
     1.7 +^tools/debugger/gdb/gdb-6\.2\.1\.tar\.bz2$
     1.8 +^tools/debugger/gdb/gdb-6\.2\.1/.*$
     1.9 +^tools/debugger/gdb/gdb-6\.2\.1-linux-i386-xen/.*$
    1.10  ^tools/debugger/pdb/pdb$
    1.11  ^tools/debugger/pdb/linux-[0-9.]*-module/.*\.ko$
    1.12  ^tools/debugger/pdb/linux-[0-9.]*-module/.*\.mod.c$
    1.13 @@ -156,6 +159,7 @@
    1.14  ^tools/xenstore/xs_stress$
    1.15  ^tools/xenstore/xs_test$
    1.16  ^tools/xenstore/xs_watch_stress$
    1.17 +^tools/xentrace/xenctx$
    1.18  ^tools/xentrace/xentrace$
    1.19  ^xen/BLOG$
    1.20  ^xen/TAGS$

     2.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     2.2 +++ b/tools/debugger/gdb/README	Mon Sep 19 16:02:54 2005 +0000
     2.3 @@ -0,0 +1,29 @@
     2.4 +
     2.5 +DomU GDB server for 32-bit (PAE and non-PAE) systems
     2.6 +----------------------------------------------------
     2.7 +
     2.8 +Lines marked below with [*] are optional, if you want full
     2.9 +source-level debugging of your kernel image.
    2.10 +
    2.11 +To build the GDB server:
    2.12 + 1. Run ./gdbbuild from within this directory.
    2.13 + 2. Copy ./gdb-6.2.1-linux-i386-xen/gdb/gdbserver/gdbserver-xen
    2.14 +    to your test machine.
    2.15 +
    2.16 +To build a debuggable guest kernel image:
    2.17 + 1. cd linux-2.6.12-xenU
    2.18 + 2. ARCH=xen make menuconfig
    2.19 + 3. From within the configurator, enable the following options:
    2.20 +    # Kernel hacking -> Compile the kernel with debug info [*]
    2.21 +                     -> Compile the kernel with frame pointers
    2.22 + 4. (Re)build and (re)install your xenU kernel image.
    2.23 +
    2.24 +To debug a running guest:
    2.25 + 1. Use 'xm list' to discover its domain id ($domid). 
    2.26 + 2. Run 'gdbserver-xen 127.0.0.1:9999 --attach $domid'
    2.27 + 3. Run 'gdb /path/to/vmlinux-syms-2.6.xx-xenU'
    2.28 + 4. From within the gdb client session:
    2.29 +    # directory /path/to/linux-2.6.xx-xenU [*]
    2.30 +    # target remote 127.0.0.1:9999
    2.31 +    # bt
    2.32 +    # disass

     3.1 --- a/tools/debugger/gdb/gdb-6.2.1-xen-sparse/gdb/gdbserver/linux-xen-low.c	Mon Sep 19 16:02:32 2005 +0000
     3.2 +++ b/tools/debugger/gdb/gdb-6.2.1-xen-sparse/gdb/gdbserver/linux-xen-low.c	Mon Sep 19 16:02:54 2005 +0000
     3.3 @@ -37,9 +37,10 @@
     3.4  #include <errno.h>
     3.5  #include <xenctrl.h>
     3.6  #define TRACE_ENTER /* printf("enter %s\n", __FUNCTION__) */
     3.7 -long (*myptrace)(enum __ptrace_request, pid_t, long, long);
     3.8 -int (*myxcwait)(int domain, int *status, int options) ;
     3.9  
    3.10 +long (*myptrace)(int xc_handle, enum __ptrace_request, u32, long, long);
    3.11 +int (*myxcwait)(int xc_handle, int domain, int *status, int options) ;
    3.12 +static int xc_handle;
    3.13  
    3.14  #define DOMFLAGS_DYING     (1<<0) /* Domain is scheduled to die.             */
    3.15  #define DOMFLAGS_SHUTDOWN  (1<<2) /* The guest OS has shut down.             */
    3.16 @@ -47,11 +48,7 @@ int (*myxcwait)(int domain, int *status,
    3.17  #define DOMFLAGS_BLOCKED   (1<<4) /* Currently blocked pending an event.     */
    3.18  #define DOMFLAGS_RUNNING   (1<<5) /* Domain is currently running.            */
    3.19  
    3.20 -
    3.21 -
    3.22  struct inferior_list all_processes;
    3.23 -
    3.24 -
    3.25  static int current_domain;
    3.26  static int expect_signal = 0;
    3.27  static int signal_to_send = 0; 
    3.28 @@ -150,7 +147,7 @@ linux_attach (int domain)
    3.29  {
    3.30      struct process_info *new_process;
    3.31      current_domain = domain;
    3.32 -    if (myptrace (PTRACE_ATTACH, domain, 0, 0) != 0) {
    3.33 +    if (myptrace (xc_handle, PTRACE_ATTACH, domain, 0, 0) != 0) {
    3.34  	fprintf (stderr, "Cannot attach to domain %d: %s (%d)\n", domain,
    3.35  		 strerror (errno), errno);
    3.36  	fflush (stderr);
    3.37 @@ -173,8 +170,7 @@ linux_kill_one_process (struct inferior_
    3.38  {
    3.39    struct thread_info *thread = (struct thread_info *) entry;
    3.40    struct process_info *process = get_thread_process (thread);
    3.41 -  myptrace (PTRACE_KILL, pid_of (process), 0, 0);
    3.42 -
    3.43 +  myptrace (xc_handle, PTRACE_KILL, pid_of (process), 0, 0);
    3.44  }
    3.45  
    3.46  static void
    3.47 @@ -190,7 +186,7 @@ linux_detach_one_process (struct inferio
    3.48    struct thread_info *thread = (struct thread_info *) entry;
    3.49    struct process_info *process = get_thread_process (thread);
    3.50  
    3.51 -  myptrace (PTRACE_DETACH, pid_of (process), 0, 0);
    3.52 +  myptrace (xc_handle, PTRACE_DETACH, pid_of (process), 0, 0);
    3.53  }
    3.54  
    3.55  
    3.56 @@ -216,7 +212,7 @@ static unsigned char
    3.57  linux_wait (char *status)
    3.58  {
    3.59    int w;
    3.60 -  if (myxcwait(current_domain, &w, 0))
    3.61 +  if (myxcwait(xc_handle, current_domain, &w, 0))
    3.62        return -1;
    3.63    
    3.64    if (w & (DOMFLAGS_SHUTDOWN|DOMFLAGS_DYING)) {
    3.65 @@ -241,7 +237,7 @@ linux_resume (struct thread_resume *resu
    3.66    expect_signal = resume_info->sig;
    3.67    for_each_inferior(&all_threads, regcache_invalidate_one);
    3.68  
    3.69 -  myptrace (step ? PTRACE_SINGLESTEP : PTRACE_CONT, current_domain, 0, 0);
    3.70 +  myptrace (xc_handle, step ? PTRACE_SINGLESTEP : PTRACE_CONT, current_domain, 0, 0);
    3.71  
    3.72  }
    3.73  
    3.74 @@ -265,7 +261,7 @@ regsets_fetch_inferior_registers ()
    3.75  	}
    3.76  
    3.77        buf = malloc (regset->size);
    3.78 -      res = myptrace (regset->get_request, inferior_pid, 0, (PTRACE_XFER_TYPE)buf);
    3.79 +      res = myptrace (xc_handle, regset->get_request, inferior_pid, 0, (PTRACE_XFER_TYPE)buf);
    3.80        if (res < 0)
    3.81  	{
    3.82  	  if (errno == EIO)
    3.83 @@ -317,7 +313,7 @@ regsets_store_inferior_registers ()
    3.84  
    3.85        buf = malloc (regset->size);
    3.86        regset->fill_function (buf);
    3.87 -      res = myptrace (regset->set_request, inferior_pid, 0, (PTRACE_XFER_TYPE)buf);
    3.88 +      res = myptrace (xc_handle, regset->set_request, inferior_pid, 0, (PTRACE_XFER_TYPE)buf);
    3.89        if (res < 0)
    3.90  	{
    3.91  	  if (errno == EIO)
    3.92 @@ -395,7 +391,7 @@ linux_read_memory (CORE_ADDR memaddr, ch
    3.93    for (i = 0; i < count; i++, addr += sizeof (PTRACE_XFER_TYPE))
    3.94      {
    3.95        errno = 0;
    3.96 -      buffer[i] = myptrace (PTRACE_PEEKTEXT, inferior_pid, (PTRACE_ARG3_TYPE) addr, 0);
    3.97 +      buffer[i] = myptrace (xc_handle, PTRACE_PEEKTEXT, inferior_pid, (PTRACE_ARG3_TYPE) addr, 0);
    3.98        if (errno)
    3.99  	return errno;
   3.100      }
   3.101 @@ -428,13 +424,13 @@ linux_write_memory (CORE_ADDR memaddr, c
   3.102  
   3.103    /* Fill start and end extra bytes of buffer with existing memory data.  */
   3.104  
   3.105 -  buffer[0] = myptrace (PTRACE_PEEKTEXT, inferior_pid,
   3.106 +  buffer[0] = myptrace (xc_handle, PTRACE_PEEKTEXT, inferior_pid,
   3.107  		      (PTRACE_ARG3_TYPE) addr, 0);
   3.108  
   3.109    if (count > 1)
   3.110      {
   3.111        buffer[count - 1]
   3.112 -	= myptrace (PTRACE_PEEKTEXT, inferior_pid,
   3.113 +	= myptrace (xc_handle, PTRACE_PEEKTEXT, inferior_pid,
   3.114  		  (PTRACE_ARG3_TYPE) (addr + (count - 1)
   3.115  				      * sizeof (PTRACE_XFER_TYPE)),
   3.116  		  0);
   3.117 @@ -448,7 +444,7 @@ linux_write_memory (CORE_ADDR memaddr, c
   3.118    for (i = 0; i < count; i++, addr += sizeof (PTRACE_XFER_TYPE))
   3.119      {
   3.120        errno = 0;
   3.121 -      myptrace (PTRACE_POKETEXT, inferior_pid, (PTRACE_ARG3_TYPE) addr, buffer[i]);
   3.122 +      myptrace (xc_handle, PTRACE_POKETEXT, inferior_pid, (PTRACE_ARG3_TYPE) addr, buffer[i]);
   3.123        if (errno)
   3.124  	return errno;
   3.125      }
   3.126 @@ -539,7 +535,7 @@ linux_init_signals ()
   3.127  void
   3.128  initialize_low (void)
   3.129  {
   3.130 -
   3.131 +  xc_handle = xc_interface_open();
   3.132    set_target_ops (&linux_xen_target_ops);
   3.133    set_breakpoint_data (the_low_target.breakpoint,
   3.134  		       the_low_target.breakpoint_len);

     4.1 --- a/tools/debugger/gdb/gdbbuild	Mon Sep 19 16:02:32 2005 +0000
     4.2 +++ b/tools/debugger/gdb/gdbbuild	Mon Sep 19 16:02:54 2005 +0000
     4.3 @@ -1,20 +1,17 @@
     4.4  #!/bin/sh
     4.5  
     4.6 -XENROOT=`hg root`
     4.7 -export XENROOT
     4.8 -
     4.9 -cd $XENROOT/tools/debugger/gdb
    4.10 -rm -rf gdb-6.2.1  gdb-6.2.1-linux-i386-xen
    4.11 -# FIXME:cw this should be smarter
    4.12 -wget -c ftp://ftp.gnu.org/gnu/gdb/gdb-6.2.1.tar.bz2
    4.13 +rm -rf gdb-6.2.1 gdb-6.2.1-linux-i386-xen
    4.14 +[ -a gdb-6.2.1.tar.bz2 ] || wget -c ftp://ftp.gnu.org/gnu/gdb/gdb-6.2.1.tar.bz2
    4.15  tar xjf gdb-6.2.1.tar.bz2
    4.16  
    4.17 -cd $XENROOT/tools/debugger/gdb/gdb-6.2.1-xen-sparse
    4.18 +cd gdb-6.2.1-xen-sparse
    4.19  ./mkbuildtree ../gdb-6.2.1
    4.20  
    4.21 -mkdir $XENROOT/tools/debugger/gdb/gdb-6.2.1-linux-i386-xen
    4.22 -cd $XENROOT/tools/debugger/gdb/gdb-6.2.1-linux-i386-xen
    4.23 +cd ..
    4.24 +mkdir gdb-6.2.1-linux-i386-xen
    4.25 +cd gdb-6.2.1-linux-i386-xen
    4.26  ../gdb-6.2.1/configure
    4.27 +
    4.28  # some people don't have gmake
    4.29  if which gmake ; then
    4.30      gmake -j4

     5.1 --- a/tools/libxc/Makefile	Mon Sep 19 16:02:32 2005 +0000
     5.2 +++ b/tools/libxc/Makefile	Mon Sep 19 16:02:54 2005 +0000
     5.3 @@ -30,8 +30,10 @@ BUILD_SRCS += xc_load_elf.c
     5.4  ifeq ($(XEN_TARGET_ARCH),ia64)
     5.5  BUILD_SRCS += xc_ia64_stubs.c
     5.6  else
     5.7 +ifeq ($(XEN_TARGET_ARCH),x86_32)
     5.8  SRCS       += xc_ptrace.c
     5.9  SRCS       += xc_ptrace_core.c
    5.10 +endif
    5.11  BUILD_SRCS += xc_load_aout9.c
    5.12  BUILD_SRCS += xc_linux_restore.c
    5.13  BUILD_SRCS += xc_linux_save.c

     6.1 --- a/tools/libxc/xc_ptrace.c	Mon Sep 19 16:02:32 2005 +0000
     6.2 +++ b/tools/libxc/xc_ptrace.c	Mon Sep 19 16:02:54 2005 +0000
     6.3 @@ -1,6 +1,7 @@
     6.4  #include <sys/ptrace.h>
     6.5  #include <sys/wait.h>
     6.6  #include "xc_private.h"
     6.7 +#include "xg_private.h"
     6.8  #include <time.h>
     6.9  
    6.10  #define X86_CR0_PE              0x00000001 /* Enable Protected Mode    (RW) */
    6.11 @@ -10,14 +11,6 @@
    6.12  #define PSL_T  0x00000100 /* trace enable bit */
    6.13  #define VCPU            0               /* XXX */
    6.14  
    6.15 -/*
    6.16 - * long  
    6.17 - * ptrace(enum __ptrace_request request, pid_t pid, void *addr, void *data);
    6.18 - */
    6.19 -
    6.20 -
    6.21 -int waitdomain(int domain, int *status, int options);
    6.22 -
    6.23  char * ptrace_names[] = {
    6.24      "PTRACE_TRACEME",
    6.25      "PTRACE_PEEKTEXT",
    6.26 @@ -122,8 +115,6 @@ struct gdb_regs {
    6.27  #define vtopti(va) (((va) >> PAGE_SHIFT) & 0x3ff)
    6.28  
    6.29  /* XXX application state */
    6.30 -
    6.31 -static int                      xc_handle;
    6.32  static long   nr_pages = 0;
    6.33  unsigned long   *page_array = NULL;
    6.34  static int                      regs_valid[MAX_VIRT_CPUS];
    6.35 @@ -133,14 +124,60 @@ static vcpu_guest_context_t ctxt[MAX_VIR
    6.36  static inline int paging_enabled(vcpu_guest_context_t *v)
    6.37  {
    6.38      unsigned long cr0 = v->ctrlreg[0];
    6.39 -
    6.40      return (cr0 & X86_CR0_PE) && (cr0 & X86_CR0_PG);
    6.41  }
    6.42  
    6.43  /* --------------------- */
    6.44  
    6.45  static void *
    6.46 -map_domain_va(unsigned long domid, int cpu, void * guest_va, int perm)
    6.47 +map_domain_va_pae(
    6.48 +    int xc_handle,
    6.49 +    unsigned long domid,
    6.50 +    int cpu,
    6.51 +    void *guest_va,
    6.52 +    int perm)
    6.53 +{
    6.54 +    unsigned long l2p, l1p, p, va = (unsigned long)guest_va;
    6.55 +    u64 *l3, *l2, *l1;
    6.56 +    static void *v;
    6.57 +
    6.58 +    FETCH_REGS(cpu);
    6.59 +
    6.60 +    l3 = xc_map_foreign_range(
    6.61 +        xc_handle, domid, PAGE_SIZE, PROT_READ, cr3[cpu] >> PAGE_SHIFT);
    6.62 +    if ( l3 == NULL )
    6.63 +        goto error_out;
    6.64 +
    6.65 +    l2p = l3[l3_table_offset_pae(va)] >> PAGE_SHIFT;
    6.66 +    l2 = xc_map_foreign_range(xc_handle, domid, PAGE_SIZE, PROT_READ, l2p);
    6.67 +    if ( l2 == NULL )
    6.68 +        goto error_out;
    6.69 +
    6.70 +    l1p = l2[l2_table_offset_pae(va)] >> PAGE_SHIFT;
    6.71 +    l1 = xc_map_foreign_range(xc_handle, domid, PAGE_SIZE, perm, l1p);
    6.72 +    if ( l1 == NULL )
    6.73 +        goto error_out;
    6.74 +
    6.75 +    p = l1[l1_table_offset_pae(va)] >> PAGE_SHIFT;
    6.76 +    if ( v != NULL )
    6.77 +        munmap(v, PAGE_SIZE);
    6.78 +    v = xc_map_foreign_range(xc_handle, domid, PAGE_SIZE, perm, p);
    6.79 +    if ( v == NULL )
    6.80 +        goto error_out;
    6.81 +
    6.82 +    return (void *)((unsigned long)v | (va & (PAGE_SIZE - 1)));
    6.83 +
    6.84 + error_out:
    6.85 +    return NULL;
    6.86 +}
    6.87 +
    6.88 +static void *
    6.89 +map_domain_va(
    6.90 +    int xc_handle,
    6.91 +    unsigned long domid,
    6.92 +    int cpu,
    6.93 +    void *guest_va,
    6.94 +    int perm)
    6.95  {
    6.96      unsigned long pde, page;
    6.97      unsigned long va = (unsigned long)guest_va;
    6.98 @@ -151,20 +188,35 @@ map_domain_va(unsigned long domid, int c
    6.99      static unsigned long  pde_phys[MAX_VIRT_CPUS];
   6.100      static unsigned long *pde_virt[MAX_VIRT_CPUS];
   6.101      static unsigned long  page_phys[MAX_VIRT_CPUS];
   6.102 -    static unsigned long *page_virt[MAX_VIRT_CPUS];
   6.103 -    
   6.104 +    static unsigned long *page_virt[MAX_VIRT_CPUS];    
   6.105      static int            prev_perm[MAX_VIRT_CPUS];
   6.106 +    static enum { MODE_UNKNOWN, MODE_32, MODE_PAE } mode;
   6.107  
   6.108 -    if (nr_pages != npgs) {
   6.109 -        if (nr_pages > 0)
   6.110 +    if ( mode == MODE_UNKNOWN )
   6.111 +    {
   6.112 +        xen_capabilities_info_t caps;
   6.113 +        (void)xc_version(xc_handle, XENVER_capabilities, caps);
   6.114 +        mode = MODE_32;
   6.115 +        if ( strstr(caps, "_x86_32p") )
   6.116 +            mode = MODE_PAE;
   6.117 +    }
   6.118 +
   6.119 +    if ( mode == MODE_PAE )
   6.120 +        return map_domain_va_pae(xc_handle, domid, cpu, guest_va, perm);
   6.121 +
   6.122 +    if ( nr_pages != npgs )
   6.123 +    {
   6.124 +        if ( nr_pages > 0 )
   6.125              free(page_array);
   6.126          nr_pages = npgs;
   6.127 -        if ((page_array = malloc(nr_pages * sizeof(unsigned long))) == NULL) {
   6.128 +        if ( (page_array = malloc(nr_pages * sizeof(unsigned long))) == NULL )
   6.129 +        {
   6.130              printf("Could not allocate memory\n");
   6.131              goto error_out;
   6.132          }
   6.133 -
   6.134 -        if (xc_get_pfn_list(xc_handle, domid, page_array, nr_pages) != nr_pages) {
   6.135 +        if ( xc_get_pfn_list(xc_handle, domid,
   6.136 +                             page_array, nr_pages) != nr_pages )
   6.137 +        {
   6.138              printf("Could not get the page frame list\n");
   6.139              goto error_out;
   6.140          }
   6.141 @@ -172,48 +224,52 @@ map_domain_va(unsigned long domid, int c
   6.142  
   6.143      FETCH_REGS(cpu);
   6.144  
   6.145 -    if (cr3[cpu] != cr3_phys[cpu]) 
   6.146 +    if ( cr3[cpu] != cr3_phys[cpu] )
   6.147      {
   6.148          cr3_phys[cpu] = cr3[cpu];
   6.149 -        if (cr3_virt[cpu])
   6.150 +        if ( cr3_virt[cpu] )
   6.151              munmap(cr3_virt[cpu], PAGE_SIZE);
   6.152 -        if ((cr3_virt[cpu] = xc_map_foreign_range(xc_handle, domid, PAGE_SIZE,
   6.153 -                                                  PROT_READ,
   6.154 -                                                  cr3_phys[cpu] >> PAGE_SHIFT)) == NULL)
   6.155 +        cr3_virt[cpu] = xc_map_foreign_range(
   6.156 +            xc_handle, domid, PAGE_SIZE, PROT_READ,
   6.157 +            cr3_phys[cpu] >> PAGE_SHIFT);
   6.158 +        if ( cr3_virt[cpu] == NULL )
   6.159              goto error_out;
   6.160 -    } 
   6.161 -    if ((pde = cr3_virt[cpu][vtopdi(va)]) == 0) /* logical address */
   6.162 +    }
   6.163 +    if ( (pde = cr3_virt[cpu][vtopdi(va)]) == 0 )
   6.164          goto error_out;
   6.165 -    if ((ctxt[cpu].flags & VGCF_VMX_GUEST) && paging_enabled(&ctxt[cpu]))
   6.166 +    if ( (ctxt[cpu].flags & VGCF_VMX_GUEST) && paging_enabled(&ctxt[cpu]) )
   6.167          pde = page_array[pde >> PAGE_SHIFT] << PAGE_SHIFT;
   6.168 -    if (pde != pde_phys[cpu]) 
   6.169 +    if ( pde != pde_phys[cpu] )
   6.170      {
   6.171          pde_phys[cpu] = pde;
   6.172 -        if (pde_virt[cpu])
   6.173 +        if ( pde_virt[cpu] )
   6.174              munmap(pde_virt[cpu], PAGE_SIZE);
   6.175 -        if ((pde_virt[cpu] = xc_map_foreign_range(xc_handle, domid, PAGE_SIZE,
   6.176 -                                                  PROT_READ,
   6.177 -                                                  pde_phys[cpu] >> PAGE_SHIFT)) == NULL)
   6.178 +        pde_virt[cpu] = xc_map_foreign_range(
   6.179 +            xc_handle, domid, PAGE_SIZE, PROT_READ,
   6.180 +            pde_phys[cpu] >> PAGE_SHIFT);
   6.181 +        if ( pde_virt[cpu] == NULL )
   6.182              goto error_out;
   6.183      }
   6.184 -    if ((page = pde_virt[cpu][vtopti(va)]) == 0) /* logical address */
   6.185 +    if ( (page = pde_virt[cpu][vtopti(va)]) == 0 )
   6.186          goto error_out;
   6.187 -    if (ctxt[cpu].flags & VGCF_VMX_GUEST && paging_enabled(&ctxt[cpu]))
   6.188 +    if ( (ctxt[cpu].flags & VGCF_VMX_GUEST) && paging_enabled(&ctxt[cpu]) )
   6.189          page = page_array[page >> PAGE_SHIFT] << PAGE_SHIFT;
   6.190 -    if (page != page_phys[cpu] || perm != prev_perm[cpu]) 
   6.191 +    if ( (page != page_phys[cpu]) || (perm != prev_perm[cpu]) )
   6.192      {
   6.193          page_phys[cpu] = page;
   6.194 -        if (page_virt[cpu])
   6.195 +        if ( page_virt[cpu] )
   6.196              munmap(page_virt[cpu], PAGE_SIZE);
   6.197 -        if ((page_virt[cpu] = xc_map_foreign_range(xc_handle, domid, PAGE_SIZE,
   6.198 -                                                   perm,
   6.199 -                                                   page_phys[cpu] >> PAGE_SHIFT)) == NULL) {
   6.200 -            printf("cr3 %lx pde %lx page %lx pti %lx\n", cr3[cpu], pde, page, vtopti(va));
   6.201 +        page_virt[cpu] = xc_map_foreign_range(
   6.202 +            xc_handle, domid, PAGE_SIZE, perm,
   6.203 +            page_phys[cpu] >> PAGE_SHIFT);
   6.204 +        if ( page_virt[cpu] == NULL )
   6.205 +        {
   6.206              page_phys[cpu] = 0;
   6.207              goto error_out;
   6.208          }
   6.209          prev_perm[cpu] = perm;
   6.210      } 
   6.211 +
   6.212      return (void *)(((unsigned long)page_virt[cpu]) | (va & BSD_PAGE_MASK));
   6.213  
   6.214   error_out:
   6.215 @@ -221,7 +277,11 @@ map_domain_va(unsigned long domid, int c
   6.216  }
   6.217  
   6.218  int 
   6.219 -xc_waitdomain(int domain, int *status, int options)
   6.220 +xc_waitdomain(
   6.221 +    int xc_handle,
   6.222 +    int domain,
   6.223 +    int *status,
   6.224 +    int options)
   6.225  {
   6.226      dom0_op_t op;
   6.227      int retval;
   6.228 @@ -229,38 +289,39 @@ xc_waitdomain(int domain, int *status, i
   6.229      ts.tv_sec = 0;
   6.230      ts.tv_nsec = 10*1000*1000;
   6.231  
   6.232 -    if (!xc_handle)
   6.233 -        if ((xc_handle = xc_interface_open()) < 0) 
   6.234 -        {
   6.235 -            printf("xc_interface_open failed\n");
   6.236 -            return -1;
   6.237 -        }
   6.238      op.cmd = DOM0_GETDOMAININFO;
   6.239      op.u.getdomaininfo.domain = domain;
   6.240 - retry:
   6.241  
   6.242 + retry:
   6.243      retval = do_dom0_op(xc_handle, &op);
   6.244 -    if (retval || op.u.getdomaininfo.domain != domain) {
   6.245 +    if ( retval || (op.u.getdomaininfo.domain != domain) )
   6.246 +    {
   6.247          printf("getdomaininfo failed\n");
   6.248          goto done;
   6.249      }
   6.250      *status = op.u.getdomaininfo.flags;
   6.251      
   6.252 -    if (options & WNOHANG)
   6.253 +    if ( options & WNOHANG )
   6.254          goto done;
   6.255 - 
   6.256  
   6.257 -    if (!(op.u.getdomaininfo.flags & DOMFLAGS_PAUSED)) { 
   6.258 +    if ( !(op.u.getdomaininfo.flags & DOMFLAGS_PAUSED) )
   6.259 +    {
   6.260          nanosleep(&ts,NULL);
   6.261          goto retry;
   6.262      }
   6.263 +
   6.264   done:
   6.265      return retval;
   6.266  
   6.267  }
   6.268  
   6.269  long
   6.270 -xc_ptrace(enum __ptrace_request request, u32 domid, long eaddr, long edata)
   6.271 +xc_ptrace(
   6.272 +    int xc_handle,
   6.273 +    enum __ptrace_request request,
   6.274 +    u32 domid,
   6.275 +    long eaddr,
   6.276 +    long edata)
   6.277  {
   6.278      dom0_op_t       op;
   6.279      int             status = 0;
   6.280 @@ -273,44 +334,51 @@ xc_ptrace(enum __ptrace_request request,
   6.281  
   6.282      op.interface_version = DOM0_INTERFACE_VERSION;
   6.283      
   6.284 -    if (!xc_handle)
   6.285 -        if ((xc_handle = xc_interface_open()) < 0)
   6.286 -            return -1;
   6.287 -#if 0
   6.288 -    printf("%20s %d, %p, %p \n", ptrace_names[request], domid, addr, data);
   6.289 -#endif
   6.290 -    switch (request) { 
   6.291 +    switch ( request )
   6.292 +    { 
   6.293      case PTRACE_PEEKTEXT:
   6.294      case PTRACE_PEEKDATA:
   6.295 -        if ((guest_va = (unsigned long *)map_domain_va(domid, cpu, addr, PROT_READ)) == NULL) {
   6.296 +        guest_va = (unsigned long *)map_domain_va(
   6.297 +            xc_handle, domid, cpu, addr, PROT_READ);
   6.298 +        if ( guest_va == NULL )
   6.299 +        {
   6.300              status = EFAULT;
   6.301              goto error_out;
   6.302          }
   6.303 -
   6.304          retval = *guest_va;
   6.305          break;
   6.306 +
   6.307      case PTRACE_POKETEXT:
   6.308      case PTRACE_POKEDATA:
   6.309 -        if ((guest_va = (unsigned long *)map_domain_va(domid, cpu, addr, PROT_READ|PROT_WRITE)) == NULL) {
   6.310 +        guest_va = (unsigned long *)map_domain_va(
   6.311 +            xc_handle, domid, cpu, addr, PROT_READ|PROT_WRITE);
   6.312 +        if ( guest_va == NULL )
   6.313 +        {
   6.314              status = EFAULT;
   6.315              goto error_out;
   6.316          }
   6.317 -
   6.318          *guest_va = (unsigned long)data;
   6.319          break;
   6.320 +
   6.321      case PTRACE_GETREGS:
   6.322      case PTRACE_GETFPREGS:
   6.323      case PTRACE_GETFPXREGS:
   6.324          FETCH_REGS(cpu);
   6.325 -
   6.326 -        if (request == PTRACE_GETREGS) {
   6.327 +        if ( request == PTRACE_GETREGS )
   6.328 +        {
   6.329              SET_PT_REGS(pt, ctxt[cpu].user_regs); 
   6.330              memcpy(data, &pt, sizeof(struct gdb_regs));
   6.331 -        } else if (request == PTRACE_GETFPREGS)
   6.332 +        }
   6.333 +        else if (request == PTRACE_GETFPREGS)
   6.334 +        {
   6.335              memcpy(data, &ctxt[cpu].fpu_ctxt, sizeof(ctxt[cpu].fpu_ctxt));
   6.336 +        }
   6.337          else /*if (request == PTRACE_GETFPXREGS)*/
   6.338 +        {
   6.339              memcpy(data, &ctxt[cpu].fpu_ctxt, sizeof(ctxt[cpu].fpu_ctxt));
   6.340 +        }
   6.341          break;
   6.342 +
   6.343      case PTRACE_SETREGS:
   6.344          op.cmd = DOM0_SETDOMAININFO;
   6.345          SET_XC_REGS(((struct gdb_regs *)data), ctxt[VCPU].user_regs);
   6.346 @@ -321,17 +389,19 @@ xc_ptrace(enum __ptrace_request request,
   6.347          retval = do_dom0_op(xc_handle, &op);
   6.348          if (retval)
   6.349              goto error_out;
   6.350 +        break;
   6.351  
   6.352 -        break;
   6.353      case PTRACE_ATTACH:
   6.354          op.cmd = DOM0_GETDOMAININFO;
   6.355          op.u.getdomaininfo.domain = domid;
   6.356          retval = do_dom0_op(xc_handle, &op);
   6.357 -        if (retval || op.u.getdomaininfo.domain != domid) {
   6.358 +        if ( retval || (op.u.getdomaininfo.domain != domid) )
   6.359 +        {
   6.360              perror("dom0 op failed");
   6.361              goto error_out;
   6.362          }
   6.363 -        if (op.u.getdomaininfo.flags & DOMFLAGS_PAUSED) {
   6.364 +        if ( op.u.getdomaininfo.flags & DOMFLAGS_PAUSED )
   6.365 +        {
   6.366              printf("domain currently paused\n");
   6.367              goto error_out;
   6.368          }
   6.369 @@ -340,6 +410,7 @@ xc_ptrace(enum __ptrace_request request,
   6.370          op.u.pausedomain.domain = domid;
   6.371          retval = do_dom0_op(xc_handle, &op);
   6.372          break;
   6.373 +
   6.374      case PTRACE_SINGLESTEP:
   6.375          ctxt[VCPU].user_regs.eflags |= PSL_T;
   6.376          op.cmd = DOM0_SETDOMAININFO;
   6.377 @@ -347,24 +418,29 @@ xc_ptrace(enum __ptrace_request request,
   6.378          op.u.setdomaininfo.vcpu = 0;
   6.379          op.u.setdomaininfo.ctxt = &ctxt[cpu];
   6.380          retval = do_dom0_op(xc_handle, &op); 
   6.381 -        if (retval) {
   6.382 +        if ( retval )
   6.383 +        {
   6.384              perror("dom0 op failed");
   6.385              goto error_out;
   6.386          }
   6.387          /* FALLTHROUGH */
   6.388 +
   6.389      case PTRACE_CONT:
   6.390      case PTRACE_DETACH:
   6.391 -        if (request != PTRACE_SINGLESTEP) {
   6.392 +        if ( request != PTRACE_SINGLESTEP )
   6.393 +        {
   6.394              FETCH_REGS(cpu);
   6.395              /* Clear trace flag */
   6.396 -            if (ctxt[cpu].user_regs.eflags & PSL_T) {
   6.397 +            if ( ctxt[cpu].user_regs.eflags & PSL_T )
   6.398 +            {
   6.399                  ctxt[cpu].user_regs.eflags &= ~PSL_T;
   6.400                  op.cmd = DOM0_SETDOMAININFO;
   6.401                  op.u.setdomaininfo.domain = domid;
   6.402                  op.u.setdomaininfo.vcpu = cpu;
   6.403                  op.u.setdomaininfo.ctxt = &ctxt[cpu];
   6.404                  retval = do_dom0_op(xc_handle, &op); 
   6.405 -                if (retval) {
   6.406 +                if ( retval )
   6.407 +                {
   6.408                      perror("dom0 op failed");
   6.409                      goto error_out;
   6.410                  }
   6.411 @@ -375,6 +451,7 @@ xc_ptrace(enum __ptrace_request request,
   6.412          op.u.unpausedomain.domain = domid > 0 ? domid : -domid;
   6.413          retval = do_dom0_op(xc_handle, &op);
   6.414          break;
   6.415 +
   6.416      case PTRACE_SETFPREGS:
   6.417      case PTRACE_SETFPXREGS:
   6.418      case PTRACE_PEEKUSER:
   6.419 @@ -387,15 +464,18 @@ xc_ptrace(enum __ptrace_request request,
   6.420          /* XXX not yet supported */
   6.421          status = ENOSYS;
   6.422          break;
   6.423 +
   6.424      case PTRACE_TRACEME:
   6.425          printf("PTRACE_TRACEME is an invalid request under Xen\n");
   6.426          status = EINVAL;
   6.427      }
   6.428      
   6.429 -    if (status) {
   6.430 +    if ( status )
   6.431 +    {
   6.432          errno = status;
   6.433          retval = -1;
   6.434      }
   6.435 +
   6.436   error_out:
   6.437      return retval;
   6.438  }

     7.1 --- a/tools/libxc/xc_ptrace_core.c	Mon Sep 19 16:02:32 2005 +0000
     7.2 +++ b/tools/libxc/xc_ptrace_core.c	Mon Sep 19 16:02:54 2005 +0000
     7.3 @@ -166,7 +166,11 @@ map_domain_va(unsigned long domfd, int c
     7.4  }
     7.5  
     7.6  int 
     7.7 -xc_waitdomain_core(int domfd, int *status, int options)
     7.8 +xc_waitdomain_core(
     7.9 +    int xc_handle,
    7.10 +    int domfd,
    7.11 +    int *status,
    7.12 +    int options)
    7.13  {
    7.14      int retval = -1;
    7.15      int nr_vcpus;
    7.16 @@ -215,7 +219,12 @@ xc_waitdomain_core(int domfd, int *statu
    7.17  }
    7.18  
    7.19  long
    7.20 -xc_ptrace_core(enum __ptrace_request request, u32 domfd, long eaddr, long edata)
    7.21 +xc_ptrace_core(
    7.22 +    int xc_handle,
    7.23 +    enum __ptrace_request request,
    7.24 +    u32 domfd,
    7.25 +    long eaddr,
    7.26 +    long edata)
    7.27  {
    7.28      int             status = 0;
    7.29      struct gdb_regs pt;

     8.1 --- a/tools/libxc/xenctrl.h	Mon Sep 19 16:02:32 2005 +0000
     8.2 +++ b/tools/libxc/xenctrl.h	Mon Sep 19 16:02:54 2005 +0000
     8.3 @@ -101,23 +101,31 @@ typedef struct xc_core_header {
     8.4  } xc_core_header_t;
     8.5  
     8.6  
     8.7 -long xc_ptrace(enum __ptrace_request request, 
     8.8 -               u32  domid,
     8.9 -               long addr, 
    8.10 -               long data);
    8.11 +long xc_ptrace(
    8.12 +    int xc_handle,
    8.13 +    enum __ptrace_request request, 
    8.14 +    u32  domid,
    8.15 +    long addr, 
    8.16 +    long data);
    8.17  
    8.18 -long xc_ptrace_core(enum __ptrace_request request, 
    8.19 -                    u32 domid, 
    8.20 -                    long addr, 
    8.21 -                    long data);
    8.22 +long xc_ptrace_core(
    8.23 +    int xc_handle,
    8.24 +    enum __ptrace_request request, 
    8.25 +    u32 domid, 
    8.26 +    long addr, 
    8.27 +    long data);
    8.28  
    8.29 -int xc_waitdomain(int domain, 
    8.30 -                  int *status, 
    8.31 -                  int options);
    8.32 +int xc_waitdomain(
    8.33 +    int xc_handle,
    8.34 +    int domain, 
    8.35 +    int *status, 
    8.36 +    int options);
    8.37  
    8.38 -int xc_waitdomain_core(int domain, 
    8.39 -                       int *status, 
    8.40 -                       int options);
    8.41 +int xc_waitdomain_core(
    8.42 +    int xc_handle,
    8.43 +    int domain, 
    8.44 +    int *status, 
    8.45 +    int options);
    8.46  
    8.47  /*
    8.48   * DOMAIN MANAGEMENT FUNCTIONS