cvsuser 02/01/29 07:40:49
Modified: . Configure.pl
Log:
Detect if we can use "objdump".
Courtesy of: Jason Gloudon <[EMAIL PROTECTED]>
Revision Changes Path
1.85 +10 -6 parrot/Configure.pl
Index: Configure.pl
===================================================================
RCS file: /home/perlcvs/parrot/Configure.pl,v
retrieving revision 1.84
retrieving revision 1.85
diff -u -w -r1.84 -r1.85
--- Configure.pl 26 Jan 2002 16:52:36 -0000 1.84
+++ Configure.pl 29 Jan 2002 15:40:49 -0000 1.85
@@ -2,7 +2,7 @@
#
# Configure.pl
#
-# $Id: Configure.pl,v 1.84 2002/01/26 16:52:36 dan Exp $
+# $Id: Configure.pl,v 1.85 2002/01/29 15:40:49 grunblatt Exp $
#
# Author: Brent Dax
#
@@ -75,7 +75,7 @@
if($opt_version) {
print "Parrot Version $parrot_version Configure\n";
- print '$Id: Configure.pl,v 1.84 2002/01/26 16:52:36 dan Exp $' . "\n";
+ print '$Id: Configure.pl,v 1.85 2002/01/29 15:40:49 grunblatt Exp $' . "\n";
exit;
}
@@ -152,12 +152,16 @@
$jitarchname = "$cpuarch-$osname";
$jitarchname =~ s/i[456]86/i386/i;
$jitarchname =~ s/-(net|free|open)bsd$/-bsd/i;
+$jitcapable = 0;
if (-e "Parrot/Jit/$jitarchname.pm") {
- $jitcapable = 1;
+ my $objdump_test = `objdump -V`;
+ if(defined($objdump_test)){
+ $jitcapable = 1 if($objdump_test =~ /GNU\s+objdump/)
}
-else {
- $jitcapable = 0;
+}
+
+unless($jitcapable){
$jitarchname = 'i386-nojit';
}
