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 f1fa5ba..1e3f9a2 100644 (file)
@@ -42,6 +42,7 @@
 
 #define PL_AboveLatin1         (vTHX->IAboveLatin1)
 #define PL_Argv                        (vTHX->IArgv)
+#define PL_Assigned_invlist    (vTHX->IAssigned_invlist)
 #define PL_Cmd                 (vTHX->ICmd)
 #define PL_DBcontrol           (vTHX->IDBcontrol)
 #define PL_DBcv                        (vTHX->IDBcv)
 #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)