cvsuser 05/03/06 04:24:31
Modified: config/init/hints dec_osf.pl
t/pmc eval.t
Log:
[perl #34352] [PATCH] Tru64: strip the strip
The ld -s flag caused all symbol information to be stripped from
the libraries, which caused all the Python dynclass tests to fail.
(The -s can be used in Perl 5 since the XS builds up a separate
"symbol table".) Patch attached.
Courtesy of Jarkko Hietaniemi <[EMAIL PROTECTED]>
Revision Changes Path
1.10 +9 -4 parrot/config/init/hints/dec_osf.pl
Index: dec_osf.pl
===================================================================
RCS file: /cvs/public/parrot/config/init/hints/dec_osf.pl,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -r1.9 -r1.10
--- dec_osf.pl 2 Feb 2005 12:23:29 -0000 1.9
+++ dec_osf.pl 6 Mar 2005 12:24:30 -0000 1.10
@@ -1,5 +1,5 @@
# Copyright: 2005 The Perl Foundation. All Rights Reserved.
-# $Id: dec_osf.pl,v 1.9 2005/02/02 12:23:29 leo Exp $
+# $Id: dec_osf.pl,v 1.10 2005/03/06 12:24:30 leo Exp $
# Tru64
my $ccflags = Configure::Data->get('ccflags');
@@ -21,13 +21,18 @@
libs => $libs,
);
+for my $ldflags (qw(ld_load_flags ld_share_flags)) {
+ my $f = Configure::Data->get($ldflags);
+ if ($f =~ s/ -s / /) {
+ Configure::Data->set($ldflags => $f);
+ }
+}
+
my $linkflags = Configure::Data->get('linkflags');
if ( $linkflags !~ /-expect_unresolved/ ) {
$linkflags = "-expect_unresolved '*' -O4 -msym -std $linkflags";
+ Configure::Data->set(linkflags => $linkflags);
}
-Configure::Data->set(
- linkflags => $linkflags,
-);
# Required because of ICU using c++.
Configure::Data->set(
1.17 +6 -6 parrot/t/pmc/eval.t
Index: eval.t
===================================================================
RCS file: /cvs/public/parrot/t/pmc/eval.t,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -r1.16 -r1.17
--- eval.t 4 Mar 2005 17:49:11 -0000 1.16
+++ eval.t 6 Mar 2005 12:24:31 -0000 1.17
@@ -1,7 +1,7 @@
#! perl -w
# Copyright: 2001-2004 The Perl Foundation. All Rights Reserved.
-# $Id: eval.t,v 1.16 2005/03/04 17:49:11 bernhard Exp $
+# $Id: eval.t,v 1.17 2005/03/06 12:24:31 leo Exp $
=head1 NAME
@@ -104,7 +104,8 @@
set I2, 1
set I3, 0
set I4, 0
- invokecc
+ # XXX fails with -S
+ # invokecc
end
CODE
ok 1
@@ -112,7 +113,6 @@
8
-1
6
-11
OUTPUT
pir_output_is(<<'CODE', <<'OUTPUT', "PIR compiler sub");
@@ -232,13 +232,13 @@
.local pmc pasm_compiler
pasm_compiler = compreg "PASM"
- # PASM
+ # PASM
.local string pasm_source
pasm_source = "compreg P1, 'PAST'\n"
- # PAST
+ # PAST
pasm_source .= "compile P0, P1, 'Parrot_AST( PCC_Sub( Stmts(
Py_Print( Const(8) ) Py_Print_nl() ) ) )'\n"
- # PASM
+ # PASM
pasm_source .= "print \"PASM: before\\n\"\n"
pasm_source .= "invokecc\n"
pasm_source .= "invokecc\n"
