cvsuser 03/07/24 13:20:29
Modified: config/auto jit.pl
. interpreter.c
Log:
Do the right thing for perl Configure.pl --execcapable=0
Removed a warning.
Revision Changes Path
1.16 +1 -1 parrot/config/auto/jit.pl
Index: jit.pl
===================================================================
RCS file: /cvs/public/parrot/config/auto/jit.pl,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -w -r1.15 -r1.16
--- jit.pl 24 Jul 2003 19:23:29 -0000 1.15
+++ jit.pl 24 Jul 2003 20:20:28 -0000 1.16
@@ -85,7 +85,6 @@
}
$jitcapable = $set_jitcapable if defined $set_jitcapable;
- $execcapable = $set_execcapable if defined $set_execcapable;
if($jitcapable) {
my($jitcpuarch, $jitosname) = split('-', $jitarchname);
@@ -117,6 +116,7 @@
$execcapable = 0;
}
}
+ $execcapable = $set_execcapable if defined $set_execcapable;
if ($execcapable) {
Configure::Data->set(
exec_h => '$(INC)/jit.h',
1.179 +2 -2 parrot/interpreter.c
Index: interpreter.c
===================================================================
RCS file: /cvs/public/parrot/interpreter.c,v
retrieving revision 1.178
retrieving revision 1.179
diff -u -w -r1.178 -r1.179
--- interpreter.c 24 Jul 2003 20:07:56 -0000 1.178
+++ interpreter.c 24 Jul 2003 20:20:29 -0000 1.179
@@ -1,7 +1,7 @@
/* interpreter.c
* Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
* CVS Info
- * $Id: interpreter.c,v 1.178 2003/07/24 20:07:56 grunblatt Exp $
+ * $Id: interpreter.c,v 1.179 2003/07/24 20:20:29 grunblatt Exp $
* Overview:
* The interpreter api handles running the operations
* Data Structure and Algorithms:
@@ -406,8 +406,8 @@
# endif
Parrot_exec(interpreter, pc, code_start, code_end);
- return NULL;
#endif
+ return NULL;
}
