develooper Front page | perl.perl5.porters | Postings from March 2000

PATCH [5.6.0-RC1] Compile and run on LynxOS

From:
Ed Mooring
Date:
March 10, 2000 23:43
Subject:
PATCH [5.6.0-RC1] Compile and run on LynxOS
Message ID:
Pine.LYN.4.02.10003102337010.179-100000@bast.Lynx.COM
The following small patch gets 5.6.0-rc1 to compile and pass
all tests on LynxOS. The patch is only necessary because
(for hysterical raisins) LynxOS believes that 'buf' is
better spelled 'buff'.


*** hints/lynxos.sh.dist	Fri Mar  3 23:39:51 2000
--- hints/lynxos.sh	Fri Mar  3 23:44:56 2000
***************
*** 4,14 ****
--- 4,19 ----
  # These hints were submitted by:
  #   Greg Seibert
  #   seibert@Lynx.COM
+ # and
+ #   Ed Mooring
+ #   mooring@lynx.com
  #
  
  cc='gcc'
  so='none'
  usemymalloc='n'
+ d_union_semun='define'
+ ccflags="$ccflags -DEXTRA_F_IN_SEMUN_BUF -D__NO_INCLUDE_WARN__"
  
  # When LynxOS runs a script with "#!" it sets argv[0] to the script name
  toke_cflags='ccflags="$ccflags -DARG_ZERO_IS_SCRIPT"'
*** doio.c.dist	Thu Mar  9 09:40:39 2000
--- doio.c	Thu Mar  9 23:13:36 2000
***************
*** 1794,1801 ****
  	{
  	    struct semid_ds semds;
  	    union semun semun;
! 
              semun.buf = &semds;
  	    getinfo = (cmd == GETALL);
  	    if (Semctl(id, 0, IPC_STAT, semun) == -1)
  		return -1;
--- 1794,1804 ----
  	{
  	    struct semid_ds semds;
  	    union semun semun;
! #ifdef EXTRA_F_IN_SEMUN_BUF
!             semun.buff = &semds;
! #else
              semun.buf = &semds;
+ #endif
  	    getinfo = (cmd == GETALL);
  	    if (Semctl(id, 0, IPC_STAT, semun) == -1)
  		return -1;
***************
*** 1850,1856 ****
--- 1853,1863 ----
  #ifdef Semctl
              union semun unsemds;
  
+ #ifdef EXTRA_F_IN_SEMUN_BUF
+             unsemds.buff = (struct semid_ds *)a;
+ #else
              unsemds.buf = (struct semid_ds *)a;
+ #endif
  	    ret = Semctl(id, n, cmd, unsemds);
  #else
  	    Perl_croak(aTHX_ "%s not implemented", PL_op_desc[optype]);
*** perl.h.dist	Thu Mar  9 09:40:39 2000
--- perl.h	Thu Mar  9 23:13:37 2000
***************
*** 3204,3210 ****
  #       define Semctl(id, num, cmd, semun) semctl(id, num, cmd, semun)
  #   else
  #       ifdef USE_SEMCTL_SEMID_DS
! #           define Semctl(id, num, cmd, semun) semctl(id, num, cmd, semun.buf)
  #       endif
  #   endif
  #endif
--- 3204,3214 ----
  #       define Semctl(id, num, cmd, semun) semctl(id, num, cmd, semun)
  #   else
  #       ifdef USE_SEMCTL_SEMID_DS
! #           ifdef EXTRA_F_IN_SEMUN_BUF
! #               define Semctl(id, num, cmd, semun) semctl(id, num, cmd, semun.buff)
! #           else
! #               define Semctl(id, num, cmd, semun) semctl(id, num, cmd, semun.buf)
! #           endif
  #       endif
  #   endif
  #endif




nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About