mirror of
https://github.com/xen-project/xen.git
synced 2026-10-28 18:21:39 +01:00
kaf24@firebug.cl.cam.ac.uk
13e63314c4
The following allows you to run unmodified guest operating systems
under Xen on VMX (VT) enabled processors. The tree lives under
<ROOT>/tools/dfw. Instead of booting a guest kernel, boot vmxloader and
specify the disk image in qemurc.
Leendert
Signed-Off-By: Leendert van Doorn <leendert@watson.ibm.com>
32 lines
850 B
Perl
Executable File
32 lines
850 B
Perl
Executable File
#!/usr/bin/perl
|
|
#
|
|
# $Id: makesym.perl,v 1.1 2002/11/24 22:45:40 bdenney Exp $
|
|
#
|
|
# Read output file from as86 (e.g. rombios.txt) and write out a symbol
|
|
# table suitable for the Bochs debugger.
|
|
#
|
|
|
|
$WHERE_BEFORE_SYM_TABLE = 0;
|
|
$WHERE_IN_SYM_TABLE = 1;
|
|
$WHERE_AFTER_SYM_TABLE = 2;
|
|
|
|
$where = $WHERE_BEFORE_SYM_TABLE;
|
|
while (<STDIN>) {
|
|
chop;
|
|
if ($where == WHERE_BEFORE_SYM_TABLE && /^Symbols:/) {
|
|
$where = $WHERE_IN_SYM_TABLE;
|
|
} elsif ($where == $WHERE_IN_SYM_TABLE && /^$/) {
|
|
$where = $WHERE_AFTER_SYM_TABLE;
|
|
}
|
|
if ($where == $WHERE_IN_SYM_TABLE) {
|
|
@F = split (/\s+/);
|
|
($name[0], $junk, $addr[0], $junk, $name[1], $junk, $addr[1]) = @F;
|
|
foreach $col (0,1) {
|
|
next if length $addr[$col] < 1;
|
|
$addr[$col] =~ tr/A-Z/a-z/;
|
|
$addr[$col] = "000f" . $addr[$col];
|
|
print "$addr[$col] $name[$col]\n";
|
|
}
|
|
}
|
|
}
|