diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-11 09:45:10 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-11 09:45:10 +0000 |
| commit | e6f0bdd6fa05a6e9d3d4ecdbe97bd8dd3feaa022 (patch) | |
| tree | f7bb6b8ad7b19139cfd447f586d90cbca7e438c0 | |
| parent | 2ae617dd55ff4831f54fe6e69b42bd51fb33548e (diff) | |
| download | perl-e6f0bdd6fa05a6e9d3d4ecdbe97bd8dd3feaa022.tar.gz | |
tweaks for lynxos build (from Ed Mooring <mooring@lynx.com>)
p4raw-id: //depot/perl@5642
| -rw-r--r-- | doio.c | 9 | ||||
| -rw-r--r-- | hints/lynxos.sh | 5 | ||||
| -rw-r--r-- | perl.h | 6 |
3 files changed, 18 insertions, 2 deletions
@@ -1794,8 +1794,11 @@ Perl_do_ipcctl(pTHX_ I32 optype, SV **mark, SV **sp) { 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,7 +1853,11 @@ Perl_do_ipcctl(pTHX_ I32 optype, SV **mark, SV **sp) #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]); diff --git a/hints/lynxos.sh b/hints/lynxos.sh index bde461f27b..0023e831b0 100644 --- a/hints/lynxos.sh +++ b/hints/lynxos.sh @@ -4,11 +4,16 @@ # 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"' @@ -3204,7 +3204,11 @@ typedef struct am_table_short AMTS; # 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) +# 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 |