summaryrefslogtreecommitdiff
path: root/extra/scripts/initfini.pl
diff options
context:
space:
mode:
author"Steven J. Hill" <sjhill@realitydiluted.com>2002-05-20 18:35:43 +0000
committer"Steven J. Hill" <sjhill@realitydiluted.com>2002-05-20 18:35:43 +0000
commitb91b4d00d0bdc9c29a43a3cf859f1444273495cd (patch)
tree0e170cd94c3cddbf1761f494430a97878f4547ce /extra/scripts/initfini.pl
parent1e811cd2c026257eb9adc27f0978698cdc226c26 (diff)
Changes needed for MIPS with regards to the .init and .fini sections.
Diffstat (limited to 'extra/scripts/initfini.pl')
-rwxr-xr-xextra/scripts/initfini.pl13
1 files changed, 9 insertions, 4 deletions
diff --git a/extra/scripts/initfini.pl b/extra/scripts/initfini.pl
index ec6bdb36b..7c592daac 100755
--- a/extra/scripts/initfini.pl
+++ b/extra/scripts/initfini.pl
@@ -31,19 +31,20 @@ if ($initfini) {
} else {
die "(fatal) Please give me an --initfini argument$!";
}
-while($line = <INITFINI>) {
- if ($line =~ /^\w\.endp/) {
+while(<INITFINI>) {
+ if (/\.endp/) {
$endp=1;
next;
}
- if ($line =~ /^\w\.end/) {
+ if (/\.end/) {
$end=1;
next;
}
- if ($line =~ /\w\.align\(.*\)/) {
+ if (/\.align(.*)/) {
$alignval=$1;
next;
}
+
}
close(INITFINI);
@@ -79,8 +80,12 @@ while(<INITFINI>) {
}
if (/PROLOG_BEGINS/) {
$omitcrti = 0;
+ $omitcrtn = 0;
next;
}
+ if (/^_init:/ || /^_fini:/) {
+ $omitcrtn = 1;
+ }
if (/PROLOG_PAUSES/) {
$omitcrti = 1;
next;