[cig-commits] r14406 - in short/3D/PyLith/branches/pylith-swig: . libsrc/utils

[brad at geodynamics.org]

Author: brad
Date: 2009-03-20 13:26:01 -0700 (Fri, 20 Mar 2009)
New Revision: 14406

Modified:
   short/3D/PyLith/branches/pylith-swig/configure.ac
   short/3D/PyLith/branches/pylith-swig/libsrc/utils/petscerror.h
Log:
Added funtion name to PETSc error message.

Modified: short/3D/PyLith/branches/pylith-swig/configure.ac
===================================================================
--- short/3D/PyLith/branches/pylith-swig/configure.ac	2009-03-20 18:44:01 UTC (rev 14405)
+++ short/3D/PyLith/branches/pylith-swig/configure.ac	2009-03-20 20:26:01 UTC (rev 14406)
@@ -202,6 +202,9 @@
   fi
 fi
 
+# Check whether compiler sets variable with function names.
+CIT_FUNCTIONSTRING
+
 # ENDIANNESS
 AC_C_BIGENDIAN
 

Modified: short/3D/PyLith/branches/pylith-swig/libsrc/utils/petscerror.h
===================================================================
--- short/3D/PyLith/branches/pylith-swig/libsrc/utils/petscerror.h	2009-03-20 18:44:01 UTC (rev 14405)
+++ short/3D/PyLith/branches/pylith-swig/libsrc/utils/petscerror.h	2009-03-20 20:26:01 UTC (rev 14406)
@@ -19,6 +19,13 @@
 #if !defined(pylith_utils_petscerror_h)
 #define pylith_utils_petscerror_h
 
+#undef __FUNCT__
+#if defined(__FUNCTION_NAME__)
+#define __FUNCT__ __FUNCTION_NAME__
+#else
+#define __FUNCT__ "<unknown>"
+#endif
+
 #define CHECK_PETSC_ERROR(err) \
   if (err) { \
     PetscError(__LINE__, __FUNCT__, __FILE__, __SDIR__, err, 0, " "); \