From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 13 Jun 2005 08:25:53 +0000 (+0000)
Subject: We no longer need PL_shared_hek_table
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a227dc4778e24da2c5bc2ffad02a89310996ff78;p=p5sagit%2Fp5-mst-13.2.git

We no longer need PL_shared_hek_table

p4raw-id: //depot/perl@24816
---

diff --git a/embedvar.h b/embedvar.h
index ea68e16..d0c3a46 100644
--- a/embedvar.h
+++ b/embedvar.h
@@ -377,7 +377,6 @@
 #define PL_savebegin		(vTHX->Isavebegin)
 #define PL_sawampersand		(vTHX->Isawampersand)
 #define PL_sh_path_compat	(vTHX->Ish_path_compat)
-#define PL_shared_hek_table	(vTHX->Ishared_hek_table)
 #define PL_sharehook		(vTHX->Isharehook)
 #define PL_sig_pending		(vTHX->Isig_pending)
 #define PL_sighandlerp		(vTHX->Isighandlerp)
@@ -682,7 +681,6 @@
 #define PL_Isavebegin		PL_savebegin
 #define PL_Isawampersand	PL_sawampersand
 #define PL_Ish_path_compat	PL_sh_path_compat
-#define PL_Ishared_hek_table	PL_shared_hek_table
 #define PL_Isharehook		PL_sharehook
 #define PL_Isig_pending		PL_sig_pending
 #define PL_Isighandlerp		PL_sighandlerp
diff --git a/ext/threads/threads.xs b/ext/threads/threads.xs
index f6b57d6..03cb590 100755
--- a/ext/threads/threads.xs
+++ b/ext/threads/threads.xs
@@ -615,7 +615,6 @@ Perl_ithread_join(pTHX_ SV *obj)
 	  clone_params.stashes = newAV();
 	  clone_params.flags |= CLONEf_JOIN_IN;
 	  PL_ptr_table = ptr_table_new();
-	  PL_shared_hek_table = ptr_table_new();
 	  current_thread = Perl_ithread_get(aTHX);
 	  Perl_ithread_set(aTHX_ thread);
 	  /* ensure 'meaningful' addresses retain their meaning */
@@ -647,8 +646,6 @@ Perl_ithread_join(pTHX_ SV *obj)
 	  SvREFCNT_inc(retparam);
 	  ptr_table_free(PL_ptr_table);
 	  PL_ptr_table = NULL;
-	  ptr_table_free(PL_shared_hek_table);
-	  PL_shared_hek_table = NULL;
 
 	}
 	/* We are finished with it */
diff --git a/intrpvar.h b/intrpvar.h
index 85a8a21..342d391 100644
--- a/intrpvar.h
+++ b/intrpvar.h
@@ -425,7 +425,6 @@ PERLVAR(IProc,		struct IPerlProc*)
 
 #if defined(USE_ITHREADS)
 PERLVAR(Iptr_table,	PTR_TBL_t*)
-PERLVAR(Ishared_hek_table, PTR_TBL_t*)
 #endif
 PERLVARI(Ibeginav_save, AV*, Nullav)	/* save BEGIN{}s when compiling */
 
diff --git a/perl.c b/perl.c
index c209b4b..0992786 100644
--- a/perl.c
+++ b/perl.c
@@ -834,8 +834,6 @@ perl_destruct(pTHXx)
     /* free the pointer tables used for cloning */
     ptr_table_free(PL_ptr_table);
     PL_ptr_table = (PTR_TBL_t*)NULL;
-    ptr_table_free(PL_shared_hek_table);
-    PL_shared_hek_table = (PTR_TBL_t*)NULL;
 #endif
 
     /* free special SVs */
diff --git a/perlapi.h b/perlapi.h
index 73621c8..e6fe38f 100644
--- a/perlapi.h
+++ b/perlapi.h
@@ -550,8 +550,6 @@ END_EXTERN_C
 #define PL_sawampersand		(*Perl_Isawampersand_ptr(aTHX))
 #undef  PL_sh_path_compat
 #define PL_sh_path_compat	(*Perl_Ish_path_compat_ptr(aTHX))
-#undef  PL_shared_hek_table
-#define PL_shared_hek_table	(*Perl_Ishared_hek_table_ptr(aTHX))
 #undef  PL_sharehook
 #define PL_sharehook		(*Perl_Isharehook_ptr(aTHX))
 #undef  PL_sig_pending
diff --git a/sv.c b/sv.c
index 9f2049e..d101c1d 100644
--- a/sv.c
+++ b/sv.c
@@ -11776,8 +11776,6 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
 
     /* create SV map for pointer relocation */
     PL_ptr_table = ptr_table_new();
-    /* and one for finding shared hash keys quickly */
-    PL_shared_hek_table = ptr_table_new();
 
     /* initialize these special pointers as early as possible */
     SvANY(&PL_sv_undef)		= NULL;
@@ -12407,8 +12405,6 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
     if (!(flags & CLONEf_KEEP_PTR_TABLE)) {
         ptr_table_free(PL_ptr_table);
         PL_ptr_table = NULL;
-        ptr_table_free(PL_shared_hek_table);
-        PL_shared_hek_table = NULL;
     }
 
     /* Call the ->CLONE method, if it exists, for each of the stashes