Experimental Physics and Industrial Control System
Hi Matt,
I suspect Gemini is the only site trying to use EPICS 3.14.x on MIPS --
we don't have any configuration files in the CVS repository for MIPS at
all. I don't think the solution to your problem is quite as simple as
adding a linker flag though, it needs a patch to the EPICS munch.pl script.
I think the attached patch file should do the trick, please try it and
let me know so I can commit the changes to CVS. Apply this by cd'ing to
your base/configure/tools directory and running
patch <munch.patch
After that you'll only have to rebuild your application (no need to
rebuild EPICS base) to see if the result works. You should also make
sure that this doesn't break your PowerPC and/or 68k builds though - it
shouldn't, but you should test them to make sure.
If this fixes the problem and you manage to get EPICS running properly
on the board, we'd be very interested in including a copy of your
configuration files in the official EPICS distribution.
- Andrew
--
There is no S in exprexxo.
Index: munch.pl
===================================================================
RCS file: /net/phoebus/epicsmgr/cvsroot/epics/base/configure/tools/munch.pl,v
retrieving revision 1.10
diff -u -b -r1.10 munch.pl
--- munch.pl 16 Dec 2002 20:25:53 -0000 1.10
+++ munch.pl 27 Apr 2006 21:27:10 -0000
@@ -18,17 +18,17 @@
while ($line = <STDIN>)
{
- chomp;
+ chomp $line;
next if ($line =~ /__?GLOBAL_.F.+/);
next if ($line =~ /__?GLOBAL_.I._GLOBAL_.D.+/);
if ($line =~ /__?GLOBAL_.D.+/) {
($adr,$type,$name) = split ' ',$line,3;
- $name =~ s/^__/_/;
+ $name =~ s/^__/_/ unless $name =~ m/\./;
@dtorlist = (@dtorlist,$name);
};
if ($line =~ /__?GLOBAL_.I.+/) {
($adr,$type,$name) = split ' ',$line,3;
- $name =~ s/^__/_/;
+ $name =~ s/^__/_/ unless $name =~ m/\./;
@ctorlist = (@ctorlist,$name);
};
}
@@ -36,7 +36,7 @@
foreach $ctor (@ctorlist)
{
if ( $ctor =~ /\./ ) {
- printf "void %s() __asm__ (\"_%s\");\n",convertName($ctor),$ctor;
+ printf "void %s() __asm__ (\"%s\");\n",convertName($ctor),$ctor;
} else {
printf "void %s();\n",$ctor;
}
@@ -58,7 +58,7 @@
foreach $dtor (@dtorlist)
{
if ( $dtor =~ /\./ ) {
- printf "void %s() __asm__ (\"_%s\");\n",convertName($dtor),$dtor;
+ printf "void %s() __asm__ (\"%s\");\n",convertName($dtor),$dtor;
} else {
printf "void %s();\n",$dtor;
}
@@ -78,6 +78,7 @@
sub convertName {
my ($name) = @_;
+ $name =~ s/^__/_/;
$name =~ s/\./\$/g;
return $name;
}
- Replies:
- Re: R3.14 support for MIPS (hkbaja47) Maren Purves
- Re: R3.14 support for MIPS (hkbaja47) Matt Rippa
- References:
- R3.14 support for MIPS (hkbaja47) Matt Rippa
- Navigate by Date:
- Prev:
RE: Sequencer intro needed ! Dalesio, Leo `Bob`
- Next:
Re: R3.14 support for MIPS (hkbaja47) Maren Purves
- Index:
1994
1995
1996
1997
1998
1999
2000
2001
2002
2003
2004
2005
<2006>
2007
2008
2009
2010
2011
2012
2013
2014
2015
2016
2017
2018
2019
2020
2021
2022
2023
2024
- Navigate by Thread:
- Prev:
R3.14 support for MIPS (hkbaja47) Matt Rippa
- Next:
Re: R3.14 support for MIPS (hkbaja47) Maren Purves
- Index:
1994
1995
1996
1997
1998
1999
2000
2001
2002
2003
2004
2005
<2006>
2007
2008
2009
2010
2011
2012
2013
2014
2015
2016
2017
2018
2019
2020
2021
2022
2023
2024