Files
xen/tools/libxc/xc_dom_boot.c
T
2007-10-23 14:42:06 +01:00

279 lines
7.7 KiB
C

/*
* Xen domain builder -- xen booter.
*
* This is the code which actually boots a fresh
* prepared domain image as xen guest domain.
*
* ==> this is the only domain bilder code piece
* where xen hypercalls are allowed <==
*
* This code is licenced under the GPL.
* written 2006 by Gerd Hoffmann <kraxel@suse.de>.
*
*/
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <inttypes.h>
#include <zlib.h>
#include "xg_private.h"
#include "xc_dom.h"
#include <xen/hvm/params.h>
/* ------------------------------------------------------------------------ */
static int setup_hypercall_page(struct xc_dom_image *dom)
{
DECLARE_DOMCTL;
xen_pfn_t pfn;
int rc;
if ( dom->parms.virt_hypercall == -1 )
return 0;
pfn = (dom->parms.virt_hypercall - dom->parms.virt_base)
>> XC_DOM_PAGE_SHIFT(dom);
xc_dom_printf("%s: vaddr=0x%" PRIx64 " pfn=0x%" PRIpfn "\n", __FUNCTION__,
dom->parms.virt_hypercall, pfn);
domctl.cmd = XEN_DOMCTL_hypercall_init;
domctl.domain = dom->guest_domid;
domctl.u.hypercall_init.gmfn = xc_dom_p2m_guest(dom, pfn);
rc = do_domctl(dom->guest_xc, &domctl);
if ( rc != 0 )
xc_dom_panic(XC_INTERNAL_ERROR, "%s: HYPERCALL_INIT failed (rc=%d)\n",
__FUNCTION__, rc);
return rc;
}
static int launch_vm(int xc, domid_t domid, void *ctxt)
{
DECLARE_DOMCTL;
int rc;
xc_dom_printf("%s: called, ctxt=%p\n", __FUNCTION__, ctxt);
memset(&domctl, 0, sizeof(domctl));
domctl.cmd = XEN_DOMCTL_setvcpucontext;
domctl.domain = domid;
domctl.u.vcpucontext.vcpu = 0;
set_xen_guest_handle(domctl.u.vcpucontext.ctxt, ctxt);
rc = do_domctl(xc, &domctl);
if ( rc != 0 )
xc_dom_panic(XC_INTERNAL_ERROR,
"%s: SETVCPUCONTEXT failed (rc=%d)\n", __FUNCTION__, rc);
return rc;
}
static int clear_page(struct xc_dom_image *dom, xen_pfn_t pfn)
{
xen_pfn_t dst;
int rc;
if ( pfn == 0 )
return 0;
dst = xc_dom_p2m_host(dom, pfn);
xc_dom_printf("%s: pfn 0x%" PRIpfn ", mfn 0x%" PRIpfn "\n",
__FUNCTION__, pfn, dst);
rc = xc_clear_domain_page(dom->guest_xc, dom->guest_domid, dst);
if ( rc != 0 )
xc_dom_panic(XC_INTERNAL_ERROR,
"%s: xc_clear_domain_page failed (pfn 0x%" PRIpfn
", rc=%d)\n", __FUNCTION__, pfn, rc);
return rc;
}
/* ------------------------------------------------------------------------ */
int xc_dom_compat_check(struct xc_dom_image *dom)
{
xen_capabilities_info_t xen_caps;
char *item, *ptr;
int match, found = 0;
strncpy(xen_caps, dom->xen_caps, XEN_CAPABILITIES_INFO_LEN - 1);
xen_caps[XEN_CAPABILITIES_INFO_LEN - 1] = '\0';
for ( item = strtok_r(xen_caps, " ", &ptr);
item != NULL ; item = strtok_r(NULL, " ", &ptr) )
{
match = !strcmp(dom->guest_type, item);
xc_dom_printf("%s: supported guest type: %s%s\n", __FUNCTION__,
item, match ? " <= matches" : "");
if ( match )
found++;
}
if ( !found )
xc_dom_panic(XC_INVALID_KERNEL,
"%s: guest type %s not supported by xen kernel, sorry\n",
__FUNCTION__, dom->guest_type);
return found;
}
int xc_dom_boot_xen_init(struct xc_dom_image *dom, int xc, domid_t domid)
{
dom->guest_xc = xc;
dom->guest_domid = domid;
dom->xen_version = xc_version(dom->guest_xc, XENVER_version, NULL);
if ( xc_version(xc, XENVER_capabilities, &dom->xen_caps) < 0 )
{
xc_dom_panic(XC_INTERNAL_ERROR, "can't get xen capabilities");
return -1;
}
xc_dom_printf("%s: ver %d.%d, caps %s\n", __FUNCTION__,
dom->xen_version >> 16, dom->xen_version & 0xff,
dom->xen_caps);
return 0;
}
int xc_dom_boot_mem_init(struct xc_dom_image *dom)
{
long rc;
xc_dom_printf("%s: called\n", __FUNCTION__);
rc = arch_setup_meminit(dom);
if ( rc != 0 )
{
xc_dom_panic(XC_OUT_OF_MEMORY,
"%s: can't allocate low memory for domain\n",
__FUNCTION__);
return rc;
}
return 0;
}
void *xc_dom_boot_domU_map(struct xc_dom_image *dom, xen_pfn_t pfn,
xen_pfn_t count)
{
int page_shift = XC_DOM_PAGE_SHIFT(dom);
privcmd_mmap_entry_t *entries;
void *ptr;
int i, rc;
int err;
entries = xc_dom_malloc(dom, count * sizeof(privcmd_mmap_entry_t));
if ( entries == NULL )
{
xc_dom_panic(XC_INTERNAL_ERROR,
"%s: failed to mmap domU pages 0x%" PRIpfn "+0x%" PRIpfn
" [malloc]\n", __FUNCTION__, pfn, count);
return NULL;
}
ptr = mmap(NULL, count << page_shift, PROT_READ | PROT_WRITE,
MAP_SHARED, dom->guest_xc, 0);
if ( ptr == MAP_FAILED )
{
err = errno;
xc_dom_panic(XC_INTERNAL_ERROR,
"%s: failed to mmap domU pages 0x%" PRIpfn "+0x%" PRIpfn
" [mmap, errno=%i (%s)]\n", __FUNCTION__, pfn, count,
err, strerror(err));
return NULL;
}
for ( i = 0; i < count; i++ )
{
entries[i].va = (uintptr_t) ptr + (i << page_shift);
entries[i].mfn = xc_dom_p2m_host(dom, pfn + i);
entries[i].npages = 1;
}
rc = xc_map_foreign_ranges(dom->guest_xc, dom->guest_domid,
entries, count);
if ( rc < 0 )
{
xc_dom_panic(XC_INTERNAL_ERROR,
"%s: failed to mmap domU pages 0x%" PRIpfn "+0x%" PRIpfn
" [xenctl, rc=%d]\n", __FUNCTION__, pfn, count, rc);
return NULL;
}
return ptr;
}
int xc_dom_boot_image(struct xc_dom_image *dom)
{
DECLARE_DOMCTL;
void *ctxt;
int rc;
xc_dom_printf("%s: called\n", __FUNCTION__);
/* misc ia64 stuff*/
if ( (rc = arch_setup_bootearly(dom)) != 0 )
return rc;
/* collect some info */
domctl.cmd = XEN_DOMCTL_getdomaininfo;
domctl.domain = dom->guest_domid;
rc = do_domctl(dom->guest_xc, &domctl);
if ( rc != 0 )
{
xc_dom_panic(XC_INTERNAL_ERROR,
"%s: getdomaininfo failed (rc=%d)\n", __FUNCTION__, rc);
return rc;
}
if ( domctl.domain != dom->guest_domid )
{
xc_dom_panic(XC_INTERNAL_ERROR,
"%s: Huh? domid mismatch (%d != %d)\n", __FUNCTION__,
domctl.domain, dom->guest_domid);
return -1;
}
dom->shared_info_mfn = domctl.u.getdomaininfo.shared_info_frame;
/* sanity checks */
if ( !xc_dom_compat_check(dom) )
return -1;
/* initial mm setup */
if ( (rc = xc_dom_update_guest_p2m(dom)) != 0 )
return rc;
if ( dom->arch_hooks->setup_pgtables )
if ( (rc = dom->arch_hooks->setup_pgtables(dom)) != 0 )
return rc;
if ( (rc = clear_page(dom, dom->console_pfn)) != 0 )
return rc;
if ( (rc = clear_page(dom, dom->xenstore_pfn)) != 0 )
return rc;
/* start info page */
if ( dom->arch_hooks->start_info )
dom->arch_hooks->start_info(dom);
/* hypercall page */
if ( (rc = setup_hypercall_page(dom)) != 0 )
return rc;
xc_dom_log_memory_footprint(dom);
/* misc x86 stuff */
if ( (rc = arch_setup_bootlate(dom)) != 0 )
return rc;
/* let the vm run */
ctxt = xc_dom_malloc(dom, PAGE_SIZE * 2 /* FIXME */ );
memset(ctxt, 0, PAGE_SIZE * 2);
if ( (rc = dom->arch_hooks->vcpu(dom, ctxt)) != 0 )
return rc;
xc_dom_unmap_all(dom);
rc = launch_vm(dom->guest_xc, dom->guest_domid, ctxt);
return rc;
}
/*
* Local variables:
* mode: C
* c-set-style: "BSD"
* c-basic-offset: 4
* tab-width: 4
* indent-tabs-mode: nil
* End:
*/