Test hex('x...').

[perl5.git] / intrpvar.h

diff --git a/intrpvar.h b/intrpvar.h
index 5cff858..65ab5c6 100644 (file)
--- a/intrpvar.h
+++ b/intrpvar.h
@@ -26,7 +26,7 @@ PERLVAR(Iwarnhook,    SV *)
 PERLVAR(Iparsehook,    SV *)
 PERLVAR(Icddir,                char *)         /* switches */
 PERLVAR(Iminus_c,      bool)
-PERLVAR(Ipatchlevel[10],char)
+PERLVARA(Ipatchlevel,10,char)
 PERLVAR(Ilocalpatches, char **)
 PERLVARI(Isplitstr,    char *, " ")
 PERLVAR(Ipreprocess,   bool)
@@ -226,9 +226,9 @@ PERLVAR(Ihe_root,   HE *)           /* free he list--shared by interpreters */
 PERLVAR(Inice_chunk,   char *)         /* a nice chunk of memory to reuse */
 PERLVAR(Inice_chunk_size,      U32)    /* how nice the chunk of memory is */
 
-PERLVARI(Irunops,      runops_proc_t,  FUNC_NAME_TO_PTR(RUNOPS_DEFAULT))
+PERLVARI(Irunops,      runops_proc_t,  MEMBER_TO_FPTR(RUNOPS_DEFAULT))
 
-PERLVAR(Itokenbuf[256],        char)
+PERLVARA(Itokenbuf,256,        char)
 
 PERLVAR(Isv_undef,     SV)
 PERLVAR(Isv_no,                SV)
@@ -257,8 +257,8 @@ PERLVAR(Ilex_brackstack,char *)             /* what kind of brackets to pop */
 PERLVAR(Ilex_casestack,        char *)         /* what kind of case mods in effect */
 
 /* What we know when we're in LEX_KNOWNEXT state. */
-PERLVAR(Inextval[5],   YYSTYPE)        /* value of next token, if any */
-PERLVAR(Inexttype[5],  I32)            /* type of next token */
+PERLVARA(Inextval,5,   YYSTYPE)        /* value of next token, if any */
+PERLVARA(Inexttype,5,  I32)            /* type of next token */
 PERLVAR(Inexttoke,     I32)
 
 PERLVAR(Ilinestr,      SV *)
@@ -322,19 +322,25 @@ PERLVAR(Inumeric_radix,           char)
 
 /* utf8 character classes */
 PERLVAR(Iutf8_alnum,   SV *)
+PERLVAR(Iutf8_alnumc,  SV *)
+PERLVAR(Iutf8_ascii,   SV *)
 PERLVAR(Iutf8_alpha,   SV *)
 PERLVAR(Iutf8_space,   SV *)
+PERLVAR(Iutf8_cntrl,   SV *)
+PERLVAR(Iutf8_graph,   SV *)
 PERLVAR(Iutf8_digit,   SV *)
 PERLVAR(Iutf8_upper,   SV *)
 PERLVAR(Iutf8_lower,   SV *)
 PERLVAR(Iutf8_print,   SV *)
+PERLVAR(Iutf8_punct,   SV *)
+PERLVAR(Iutf8_xdigit,  SV *)
 PERLVAR(Iutf8_mark,    SV *)
 PERLVAR(Iutf8_toupper, SV *)
 PERLVAR(Iutf8_totitle, SV *)
 PERLVAR(Iutf8_tolower, SV *)
 PERLVAR(Ilast_swash_hv,        HV *)
 PERLVAR(Ilast_swash_klen,      U32)
-PERLVAR(Ilast_swash_key[10],   U8)
+PERLVARA(Ilast_swash_key,10,   U8)
 PERLVAR(Ilast_swash_tmps,      U8 *)
 PERLVAR(Ilast_swash_slen,      STRLEN)
 
@@ -350,7 +356,7 @@ PERLVAR(Iglob_index,        int)
 PERLVAR(Iefloatbuf,    char*)
 PERLVAR(Iefloatsize,   STRLEN)
 PERLVAR(Isrand_called, bool)
-PERLVAR(Iuudmap[256],  char)
+PERLVARA(Iuudmap,256,  char)
 PERLVAR(Ibitcount,     char *)
 PERLVAR(Ifilter_debug, int)
 
@@ -376,12 +382,12 @@ PERLVAR(Icred_mutex,      perl_mutex)     /* altered credentials in effect */
 
 #endif /* USE_THREADS */
 
-#ifdef PERL_OBJECT
-PERLVARI(piMem,                IPerlMem*,  NULL)
-PERLVARI(piENV,                IPerlEnv*,  NULL)
-PERLVARI(piStdIO,      IPerlStdIO*, NULL)
-PERLVARI(piLIO,                IPerlLIO*,  NULL)
-PERLVARI(piDir,                IPerlDir*,  NULL)
-PERLVARI(piSock,       IPerlSock*, NULL)
-PERLVARI(piProc,       IPerlProc*, NULL)
+#if defined(PERL_IMPLICIT_SYS)
+PERLVARI(IMem,         struct IPerlMem*,  NULL)
+PERLVARI(IEnv,         struct IPerlEnv*,  NULL)
+PERLVARI(IStdIO,       struct IPerlStdIO*, NULL)
+PERLVARI(ILIO,         struct IPerlLIO*,  NULL)
+PERLVARI(IDir,         struct IPerlDir*,  NULL)
+PERLVARI(ISock,                struct IPerlSock*, NULL)
+PERLVARI(IProc,                struct IPerlProc*, NULL)
 #endif