summaryrefslogtreecommitdiff
path: root/extra/scripts/initfini.pl
diff options
context:
space:
mode:
authorEric Andersen <andersen@codepoet.org>2002-10-14 07:21:51 +0000
committerEric Andersen <andersen@codepoet.org>2002-10-14 07:21:51 +0000
commita1d020f74e0702791d2d4cbad5a69bcc2adfecfc (patch)
treefd4af9dd9f6d56c77c455bc274c2ad764646a893 /extra/scripts/initfini.pl
parent4b5152b36106aedcbeb844169b3d92a59dcf47e9 (diff)
Kill the now redundant initfini.pl
-Erik
Diffstat (limited to 'extra/scripts/initfini.pl')
-rwxr-xr-xextra/scripts/initfini.pl156
1 files changed, 0 insertions, 156 deletions
diff --git a/extra/scripts/initfini.pl b/extra/scripts/initfini.pl
deleted file mode 100755
index 3d62a2257..000000000
--- a/extra/scripts/initfini.pl
+++ /dev/null
@@ -1,156 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use Getopt::Long;
-
-my($initfini) = "initfini.s";
-my($crti) = "crti.S";
-my($crtn) = "crtn.S";
-my($alignval) = "";
-my($endp) = 0;
-my($end) = 0;
-my($omitcrti) = 0;
-my($omitcrtn) = 0;
-my($line);
-
-# Get commandline parameters
-Getopt::Long::Configure("no_ignore_case", "bundling");
-&GetOptions( "initfini=s" => \$initfini,
- "crti=s" => \$crti,
- "crtn=s" => \$crtn,
- );
-
-chomp($initfini);
-chomp($crti);
-chomp($crtn);
-
-
-if ($initfini) {
- open(INITFINI,"<$initfini") or
- die "(fatal) Can't open $initfini$!";
-} else {
- die "(fatal) Please give me an --initfini argument$!";
-}
-while(<INITFINI>) {
- if (/\.endp/) {
- $endp=1;
- next;
- }
- if (/\.end/) {
- $end=1;
- next;
- }
- if (/\.align(.*)/) {
- $alignval=$1;
- next;
- }
-
-}
-close(INITFINI);
-
-
-
-
-
-if ($initfini) {
- open(INITFINI,"<$initfini") or
- die "(fatal) Can't open $initfini$!";
-} else {
- die "(fatal) Please give me an --initfini argument$!";
-}
-
-if ($crti) {
- open(CRTI,">$crti") or
- die "(fatal) Can't open $crti$!";
-} else {
- die "(fatal) Please give me a --asm argument$!";
-}
-if ($crtn) {
- open(CRTN,">$crtn") or
- die "(fatal) Can't open $crtn$!";
-} else {
- die "(fatal) Please give me a --asm argument$!";
-}
-
-while(<INITFINI>) {
- if (/HEADER_ENDS/) {
- $omitcrti = 1;
- $omitcrtn = 1;
- next;
- }
- if (/PROLOG_BEGINS/) {
- $omitcrti = 0;
- $omitcrtn = 0;
- next;
- }
- if (/i_am_not_a_leaf/) {
- next;
- }
- if (/^_init:/ || /^_fini:/) {
- $omitcrtn = 1;
- }
- if (/PROLOG_PAUSES/) {
- $omitcrti = 1;
- next;
- }
- if (/PROLOG_UNPAUSES/) {
- $omitcrti = 0;
- next;
- }
- if (/PROLOG_ENDS/) {
- $omitcrti = 1;
- next;
- }
- if (/EPILOG_BEGINS/) {
- $omitcrtn = 0;
- next;
- }
- if (/EPILOG_ENDS/) {
- $omitcrtn = 1;
- next;
- }
- if (/TRAILER_BEGINS/) {
- $omitcrti = 0;
- $omitcrtn = 0;
- next;
- }
- if (/END_INIT/) {
- if ($endp) {
- s/END_INIT/.endp _init/;
- } else {
- if($end) {
- s/END_INIT/.end _init/;
- } else {
- s/END_INIT//;
- }
- }
- }
- if (/END_FINI/) {
- if ($endp) {
- s/END_FINI/.endp _fini/;
- } else {
- if($end) {
- s/END_FINI/.end _fini/;
- } else {
- s/END_FINI//;
- }
- }
- }
- if (/ALIGN/) {
- if($alignval) {
- s/ALIGN/.align $alignval/;
- } else {
- s/ALIGN//;
- }
- }
- if (!$omitcrti) {
- print CRTI;
- }
- if (!$omitcrtn) {
- print CRTN;
- }
-}
-close(INITFINI);
-close(CRTI);
-close(CRTN);
-