Skip to content

Commit 85f93fd

Browse files
Remove EGCS support
1 parent a9e9829 commit 85f93fd

File tree

3 files changed

+2
-9
lines changed

3 files changed

+2
-9
lines changed

lib/perl5/App/Cilly.pm.in

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1788,7 +1788,7 @@ sub setVersion {
17881788
. join(' ', @{$self->{PPARGS}}) ." |")
17891789
|| die "Cannot start GNUCC";
17901790
while(<VER>) {
1791-
if($_ =~ m|^(\d+\S*)| || $_ =~ m|^(egcs-\d+\S*)|) {
1791+
if($_ =~ m|^(\d+\S*)|) {
17921792
$cversion = "gcc_$1";
17931793
close(VER) || die "Cannot start GNUCC\n";
17941794
$self->{CVERSION} = $cversion;

lib/perl5/patcher

Lines changed: 1 addition & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -203,10 +203,7 @@ sub findCompilerVersion {
203203
open(VER, "$::cc -dumpversion $ppargs|")
204204
|| die "Cannot start $cname";
205205
while(<VER>) {
206-
# sm: had to modify this to match "egcs-2.91.66", which is
207-
# how egcs responds to the -dumpversion request
208-
if($_ =~ m|^(\d+\S+)| ||
209-
$_ =~ m|^(egcs-\d+\S+)|) {
206+
if($_ =~ m|^(\d+\S+)|) {
210207
$cversion = "gcc_$1";
211208
close(VER) || die "Cannot start $cname\n";
212209
return;

test/testcil.pl

Lines changed: 0 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -40,10 +40,6 @@
4040
my $gcc = "_GNUCC=1"; # sm: not sure where/why this is needed
4141

4242

43-
# am I using egcs?
44-
my $egcs = $unix && system("gcc -v 2>&1 | grep egcs >/dev/null")==0;
45-
46-
4743
my $make;
4844
if ($solaris || $freebsd) {
4945
$make = "gmake";

0 commit comments

Comments
 (0)