add minimal comments to generator vector table

This commit is contained in:
rsc 2006-07-16 15:38:56 +00:00
parent 679a977cb2
commit 4763a042c8

View file

@ -1,11 +1,12 @@
#!/usr/bin/perl -w #!/usr/bin/perl -w
# generate vectors.S, the trap/interrupt entry points. # Generate vectors.S, the trap/interrupt entry points.
# there has to be one entry point per interrupt number # There has to be one entry point per interrupt number
# since otherwise there's no way to tell the interrupt # since otherwise there's no way to tell the interrupt
# number. # number.
print "/* generated by vectors.pl */\n"; print "/* generated by vectors.pl */\n";
print "/* handlers */\n";
print ".text\n"; print ".text\n";
print ".globl alltraps\n"; print ".globl alltraps\n";
for(my $i = 0; $i < 256; $i++){ for(my $i = 0; $i < 256; $i++){
@ -17,9 +18,11 @@ for(my $i = 0; $i < 256; $i++){
print "\tpushl \$$i\n"; print "\tpushl \$$i\n";
print "\tjmp alltraps\n"; print "\tjmp alltraps\n";
} }
print "\n/* vector table */\n";
print ".data\n"; print ".data\n";
print ".globl vectors\n"; print ".globl vectors\n";
print "vectors:\n"; print "vectors:\n";
for(my $i = 0; $i < 256; $i++){ for(my $i = 0; $i < 256; $i++){
print ".long vector$i\n"; print "\t.long vector$i\n";
} }