xv6-65oo2/vectors.pl

29 lines
712 B
Perl
Raw Normal View History

2006-06-13 15:50:06 +00:00
#!/usr/bin/perl -w
# Generate vectors.S, the trap/interrupt entry points.
# There has to be one entry point per interrupt number
2006-08-30 18:55:06 +00:00
# since otherwise there's no way for trap() to discover
# the interrupt number.
2006-06-13 15:50:06 +00:00
2006-09-06 17:50:20 +00:00
print "# generated by vectors.pl - do not edit\n";
print "# handlers\n";
2006-06-13 15:50:06 +00:00
print ".text\n";
print ".globl alltraps\n";
for(my $i = 0; $i < 256; $i++){
print ".globl vector$i\n";
print "vector$i:\n";
if(($i < 8 || $i > 14) && $i != 17){
print " pushl \$0\n";
2006-06-13 15:50:06 +00:00
}
print " pushl \$$i\n";
print " jmp alltraps\n";
2006-06-13 15:50:06 +00:00
}
2006-09-06 17:50:20 +00:00
print "\n# vector table\n";
2006-06-13 15:50:06 +00:00
print ".data\n";
print ".globl vectors\n";
print "vectors:\n";
for(my $i = 0; $i < 256; $i++){
print " .long vector$i\n";
2006-06-13 15:50:06 +00:00
}