PERLVAR(Istrtab_mutex, perl_mutex) /* Mutex for string table access */
#endif /* USE_THREADS */
-PERLVAR(Iuid, int) /* current real user id */
-PERLVAR(Ieuid, int) /* current effective user id */
-PERLVAR(Igid, int) /* current real group id */
-PERLVAR(Iegid, int) /* current effective group id */
+PERLVAR(Iuid, Uid_t) /* current real user id */
+PERLVAR(Ieuid, Uid_t) /* current effective user id */
+PERLVAR(Igid, Gid_t) /* current real group id */
+PERLVAR(Iegid, Gid_t) /* current effective group id */
PERLVAR(Inomemok, bool) /* let malloc context handle nomem */
PERLVAR(Ian, U32) /* malloc sequence number */
PERLVAR(Icop_seqmax, U32) /* statement sequence number */
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))
PERLVARA(Itokenbuf,256, char)
PERLVAR(Iyylval, YYSTYPE)
PERLVAR(Iglob_index, int)
-PERLVAR(Iefloatbuf, char*)
-PERLVAR(Iefloatsize, STRLEN)
PERLVAR(Isrand_called, bool)
PERLVARA(Iuudmap,256, char)
PERLVAR(Ibitcount, char *)
#endif /* USE_THREADS */
-#ifdef PERL_OBJECT
-PERLVARI(IMem, IPerlMem*, NULL)
-PERLVARI(IEnv, IPerlEnv*, NULL)
-PERLVARI(IStdIO, IPerlStdIO*, NULL)
-PERLVARI(ILIO, IPerlLIO*, NULL)
-PERLVARI(IDir, IPerlDir*, NULL)
-PERLVARI(ISock, IPerlSock*, NULL)
-PERLVARI(IProc, 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