diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-11-27 12:50:08 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-11-27 12:50:08 +0000 |
| commit | 9a4da9311d34e77ffdec7b888a8a3f66535ff14e (patch) | |
| tree | 306e54b76281cdc1bb0f902098124fd1a52c95ed /perl.h | |
| parent | 901b18f1f40355e1c6bf8f01f58203410eb7eabb (diff) | |
| parent | 80d06f2dff03a52147744439d4888c6bef091986 (diff) | |
| download | perl-9a4da9311d34e77ffdec7b888a8a3f66535ff14e.tar.gz | |
integrate cfgperl changes into mainline
p4raw-id: //depot/perl@2318
Diffstat (limited to 'perl.h')
| -rw-r--r-- | perl.h | 47 |
1 files changed, 44 insertions, 3 deletions
@@ -855,6 +855,7 @@ Free_t Perl_free _((Malloc_t where)); #ifndef Quad_t # if LONGSIZE == 8 # define Quad_t long +# define Uquad_t unsigned long # define PERL_QUAD_IS_LONG # endif #endif @@ -862,6 +863,7 @@ Free_t Perl_free _((Malloc_t where)); #ifndef Quad_t # if INTSIZE == 8 # define Quad_t int +# define Uquad_t unsigned int # define PERL_QUAD_IS_INT # endif #endif @@ -870,6 +872,7 @@ Free_t Perl_free _((Malloc_t where)); # ifdef USE_LONG_LONG /* See above note about LP32. --jhi */ # if defined(HAS_LONG_LONG) && LONGLONGSIZE == 8 # define Quad_t long long +# define Uquad_t unsigned long long # define PERL_QUAD_IS_LONG_LONG # endif # endif @@ -886,8 +889,9 @@ Free_t Perl_free _((Malloc_t where)); #ifdef Quad_t # define HAS_QUAD # ifndef Uquad_t - /* Note that if your Quad_t is a typedef you *must* have defined - * also Uquad_t yourself because 'unsigned type' is illegal. */ + /* Note that if your Quad_t is a typedef (not a #define) you *MUST* + * have defined by now Uquad_t yourself because 'unsigned type' + * is illegal. */ # define Uquad_t unsigned Quad_t # endif #endif @@ -1372,6 +1376,9 @@ typedef I32 (*filter_t) _((int, SV *, int)); # else # ifdef I_MACH_CTHREADS # include <mach/cthreads.h> +# ifdef NeXT +# define MUTEX_INIT_CALLS_MALLOC +# endif typedef cthread_t perl_os_thread; typedef mutex_t perl_mutex; typedef condition_t perl_cond; @@ -1816,7 +1823,7 @@ typedef Sighandler_t Sigsave_t; #endif #ifdef MYMALLOC -# ifdef I_MACH_CTHREADS +# ifdef MUTEX_INIT_CALLS_MALLOC # define MALLOC_INIT \ STMT_START { \ PL_malloc_mutex = NULL; \ @@ -2178,6 +2185,40 @@ enum { /* pass one of these to get_vtbl */ want_vtbl_regdatum }; +enum { /* pass one of these to get_vtbl */ + want_vtbl_sv, + want_vtbl_env, + want_vtbl_envelem, + want_vtbl_sig, + want_vtbl_sigelem, + want_vtbl_pack, + want_vtbl_packelem, + want_vtbl_dbline, + want_vtbl_isa, + want_vtbl_isaelem, + want_vtbl_arylen, + want_vtbl_glob, + want_vtbl_mglob, + want_vtbl_nkeys, + want_vtbl_taint, + want_vtbl_substr, + want_vtbl_vec, + want_vtbl_pos, + want_vtbl_bm, + want_vtbl_fm, + want_vtbl_uvar, + want_vtbl_defelem, + want_vtbl_regexp, + want_vtbl_collxfrm, + want_vtbl_amagic, + want_vtbl_amagicelem, +#ifdef USE_THREADS + want_vtbl_mutex, +#endif + want_vtbl_regdata, + want_vtbl_regdatum +}; + /* Note: the lowest 8 bits are reserved for stuffing into op->op_private */ |