Louis . Granboulan on Sun, 30 Nov 1997 18:10:31 +0100


[Date Prev] [Date Next] [Thread Prev] [Thread Next] [Date Index] [Thread Index]

To make it run under HP-UX and other bugs


The patches of "configure/look" and "src/modules/galois.c" are mandatory
for "/bin/cc" under HP-UX A.09
The patches of "src/basemath/gen3.c" and "src/basemath/polarit2.c"
addresses some bugs.
-- Louis Granboulan

*** configure/look.orig Thu Sep 25 03:24:46 1997
--- configure/look      Sun Nov 30 16:39:11 1997
***************
*** 1,5 ****
  for fun in $list; do
!   if ($CC has_$fun.c -o a.out $extra_flags > /dev/null 2>&1); then
      eval "has_$fun=yes"; echo ..."Found $fun."
      break
    else
--- 1,5 ----
  for fun in $list; do
!   if ($CC $CFLAGS has_$fun.c -o a.out $extra_flags > /dev/null 2>&1); then
      eval "has_$fun=yes"; echo ..."Found $fun."
      break
    else
*** src/modules/galois.c.orig   Fri Nov 14 04:54:01 1997
--- src/modules/galois.c        Sun Nov 30 17:24:08 1997
***************
*** 11,12 ****
--- 11,15 ----
  #include <unistd.h>
+ #ifndef O_RDONLY
+ #  define O_RDONLY     0000000    /* cc -Aa  with HP-UX */
+ #endif
  
***************
*** 1866,1868 ****
  
! PERM
  data9(long n1, long n2, GROUP *t)
--- 1869,1871 ----
  
! static PERM
  data9(long n1, long n2, GROUP *t)
***************
*** 2300,2302 ****
  
! PERM
  data10(long n1,long n2,GROUP *t)
--- 2303,2305 ----
  
! static PERM
  data10(long n1,long n2,GROUP *t)
***************
*** 2461,2463 ****
  
! PERM
  data11(long n1, GROUP *t)
--- 2464,2466 ----
  
! static PERM
  data11(long n1, GROUP *t)
*** src/gp/gp.c.orig    Wed Nov 26 10:12:05 1997
--- src/gp/gp.c Sun Nov 30 16:46:31 1997
***************
*** 1250,1254 ****
   * status = 2: don't print a message (from gprc)
   */
! void
  setdefault(char *s,char *v, int status)
  {
--- 1250,1254 ----
   * status = 2: don't print a message (from gprc)
   */
! static void
  setdefault(char *s,char *v, int status)
  {
*** src/basemath/polarit2.c.orig        Wed Nov 26 10:11:58 1997
--- src/basemath/polarit2.c     Sun Nov 30 17:36:18 1997
***************
*** 930,936 ****
  
            case t_FRACN:
              p1=gred(y); tetpil=avma;
!             return gerepile(l,tetpil,ggcd(p1,z));
  
            case t_PADIC:
              return gpuigs((GEN)y[2],min(valp(y),ggval(x,(GEN)y[2])));
--- 930,936 ----
  
            case t_FRACN:
              p1=gred(y); tetpil=avma;
!             return gerepile(l,tetpil,ggcd(p1,x));
  
            case t_PADIC:
              return gpuigs((GEN)y[2],min(valp(y),ggval(x,(GEN)y[2])));
***************
*** 1027,1033 ****
          p1=gdiv(y,x);
          if (typ(p1[2])==t_INT && typ(p1[3])==t_INT)
          { 
!           tetpil=avma; z=gerepile(l,tetpil,gcopy(x));
          }
          p1=scalcontent(y); tetpil=avma;
          return gerepile(l,tetpil,ggcd(p1,x));
--- 1027,1033 ----
          p1=gdiv(y,x);
          if (typ(p1[2])==t_INT && typ(p1[3])==t_INT)
          { 
!           tetpil=avma; return gerepile(l,tetpil,gcopy(x));
          }
          p1=scalcontent(y); tetpil=avma;
          return gerepile(l,tetpil,ggcd(p1,x));
***************
*** 1081,1087 ****
  
        case t_RFRACN:
          p1=gred_rfrac(y); tetpil=avma;
!         return gerepile(l,tetpil,ggcd(p1,z));
        }
        break;
        
--- 1081,1087 ----
  
        case t_RFRACN:
          p1=gred_rfrac(y); tetpil=avma;
!         return gerepile(l,tetpil,ggcd(p1,x));
        }
        break;
        
---------------------