add minimal comments to generator vector table
This commit is contained in:
parent
679a977cb2
commit
4763a042c8
1 changed files with 6 additions and 3 deletions
|
@ -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";
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in a new issue