diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-04-22 13:09:21 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-04-22 13:09:21 +0000 |
| commit | 6cfe8af5837ee4b149d08cdc2afce032abee3494 (patch) | |
| tree | 96c669c208f8fdc03db28a8f45d79db55056c299 | |
| parent | 11f62a1cbe1259089dfe510dfc5a027a0ad1cbac (diff) | |
| download | perl-6cfe8af5837ee4b149d08cdc2afce032abee3494.tar.gz | |
z/OS: changes for building threaded from "Brian De Pradine"
<PRADINE@uk.ibm.com>.
p4raw-id: //depot/perl@19306
| -rw-r--r-- | Makefile.SH | 5 | ||||
| -rw-r--r-- | hints/os390.sh | 3 | ||||
| -rw-r--r-- | thread.h | 6 | ||||
| -rw-r--r-- | util.c | 2 |
4 files changed, 14 insertions, 2 deletions
diff --git a/Makefile.SH b/Makefile.SH index 9b1b7f8f78..d9d60888f8 100644 --- a/Makefile.SH +++ b/Makefile.SH @@ -1223,6 +1223,11 @@ os390|posix-bc) -e 's/y\.tab/perly/g' perly.c >perly.tmp && mv perly.tmp perly.c xxx="$xxx perly.c" fi + case "$osname:$usethreads" in + os390:define) + sed -e 's@^extern int yychar, yyerrflag;@/* extern int yychar, yyerrflag; */@' perly.c > perly.tmp && mv perly.tmp perly.c + ;; + esac if cmp -s y.tab.h perly.h; then rm -f y.tab.h else diff --git a/hints/os390.sh b/hints/os390.sh index 02f75eae66..422600fe13 100644 --- a/hints/os390.sh +++ b/hints/os390.sh @@ -131,6 +131,9 @@ esac case "$i_systime" in '') i_systime='define' ;; esac +case "$d_pthread_atfork" in +'') d_pthread_atfork='undef' ;; +esac # (from aix.sh) # uname -m output is too specific and not appropriate here @@ -273,7 +273,11 @@ #ifdef HAS_PTHREAD_UNCHECKED_GETSPECIFIC_NP # define PTHREAD_GETSPECIFIC(key) pthread_unchecked_getspecific_np(key) #else -# define PTHREAD_GETSPECIFIC(key) pthread_getspecific(key) +# ifdef OEMVS +# define PTHREAD_GETSPECIFIC(key) pthread_getspecific_d8_np(key) +# else +# define PTHREAD_GETSPECIFIC(key) pthread_getspecific(key) +# endif #endif #ifndef PERL_GET_CONTEXT @@ -3683,7 +3683,7 @@ Perl_scan_vstring(pTHX_ char *s, SV *sv) } #ifdef EBCDIC if (rev > 0x7FFFFFFF) - Perl_croak(aTHX "In EBCDIC the v-string components cannot exceed 2147483647"); + Perl_croak(aTHX_ "In EBCDIC the v-string components cannot exceed 2147483647"); #endif /* Append native character for the rev point */ tmpend = uvchr_to_utf8(tmpbuf, rev); |