Experimental Physics and
| |||||||||||||||||
|
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; }
| ||||||||||||||||
ANJ, 02 Sep 2010 |
·
Home
·
News
·
About
·
Base
·
Modules
·
Extensions
·
Distributions
·
Download
·
· Search · EPICS V4 · IRMIS · Talk · Bugs · Documents · Links · Licensing · |