Argonne National Laboratory

Experimental Physics and
Industrial Control System

1994  1995  1996  1997  1998  1999  2000  2001  2002  2003  2004  2005  <20062007  2008  2009  2010  2011  2012  2013  2014  2015  2016  2017  Index 1994  1995  1996  1997  1998  1999  2000  2001  2002  2003  2004  2005  <20062007  2008  2009  2010  2011  2012  2013  2014  2015  2016  2017 
<== Date ==> <== Thread ==>

Subject: Re: R3.14 support for MIPS (hkbaja47)
From: Andrew Johnson <anj@aps.anl.gov>
To: Matt Rippa <mrippa@gemini.edu>
Cc: EPICS-tech-talk <tech-talk@aps.anl.gov>
Date: Thu, 27 Apr 2006 16:45:50 -0500
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  <20062007  2008  2009  2010  2011  2012  2013  2014  2015  2016  2017 
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  <20062007  2008  2009  2010  2011  2012  2013  2014  2015  2016  2017 
ANJ, 02 Sep 2010 Valid HTML 4.01! · Home · News · About · Base · Modules · Extensions · Distributions · Download ·
· EPICS V4 · IRMIS · Talk · Bugs · Documents · Links · Licensing ·