This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
do not overallocate in zaphod32_hash
[perl5.git] / embedvar.h
index a33f213..1e3f9a2 100644 (file)
 #define PL_stashpad            (vTHX->Istashpad)
 #define PL_stashpadix          (vTHX->Istashpadix)
 #define PL_stashpadmax         (vTHX->Istashpadmax)
-#define PL_statbuf             (vTHX->Istatbuf)
 #define PL_statcache           (vTHX->Istatcache)
 #define PL_statgv              (vTHX->Istatgv)
 #define PL_statname            (vTHX->Istatname)
 #define PL_Gdollarzero_mutex   (my_vars->Gdollarzero_mutex)
 #define PL_fold_locale         (my_vars->Gfold_locale)
 #define PL_Gfold_locale                (my_vars->Gfold_locale)
+#define PL_hash_chars          (my_vars->Ghash_chars)
+#define PL_Ghash_chars         (my_vars->Ghash_chars)
 #define PL_hash_seed           (my_vars->Ghash_seed)
 #define PL_Ghash_seed          (my_vars->Ghash_seed)
 #define PL_hash_seed_set       (my_vars->Ghash_seed_set)
 #define PL_Ghash_seed_set      (my_vars->Ghash_seed_set)
+#define PL_hash_state          (my_vars->Ghash_state)
+#define PL_Ghash_state         (my_vars->Ghash_state)
 #define PL_hints_mutex         (my_vars->Ghints_mutex)
 #define PL_Ghints_mutex                (my_vars->Ghints_mutex)
 #define PL_keyword_plugin      (my_vars->Gkeyword_plugin)