*** tcl7.6/unix/tclMtherr.c.orig	Wed Aug 21 13:34:52 1996
--- tcl7.6/unix/tclMtherr.c	Wed May 20 13:39:27 1998
***************
*** 43,48 ****
--- 43,49 ----
   * but it will never be executed on these systems anyway.
   */
  
+ #ifndef PPC
  #ifndef NEED_MATHERR
  struct exception {
      int type;
***************
*** 50,55 ****
--- 51,57 ----
  #define DOMAIN 0
  #define SING 0
  #endif
+ #endif
  
  /*
   *----------------------------------------------------------------------
***************
*** 72,78 ****
--- 74,84 ----
  
  int
  matherr(xPtr)
+ #ifdef PPC
+     struct __exception *xPtr;	/* Describes error that occurred. */
+ #else
      struct exception *xPtr;	/* Describes error that occurred. */
+ #endif
  {
      if (!tcl_MathInProgress) {
  	return 0;