From 554b3ecafd2a8f619792c82298bc621b9e48a923 Mon Sep 17 00:00:00 2001 From: Malcolm Beattie Date: Wed, 5 Nov 1997 17:18:18 +0000 Subject: Per-thread magicals mostly working (and localisable). Now getting intermittent occasional "Use of uninitialized value" warnings which may be due to some op flag black magic I've broken. p4raw-id: //depot/perl@204 --- embed.h | 10 +--------- 1 file changed, 1 insertion(+), 9 deletions(-) (limited to 'embed.h') diff --git a/embed.h b/embed.h index ee5feeae81..1c1e15cc8e 100644 --- a/embed.h +++ b/embed.h @@ -822,6 +822,7 @@ #define pp_socket Perl_pp_socket #define pp_sockpair Perl_pp_sockpair #define pp_sort Perl_pp_sort +#define pp_specific Perl_pp_specific #define pp_splice Perl_pp_splice #define pp_split Perl_pp_split #define pp_sprintf Perl_pp_sprintf @@ -1280,8 +1281,6 @@ #define incgv (curinterp->Iincgv) #define initav (curinterp->Iinitav) #define inplace (curinterp->Iinplace) -#define keys (curinterp->Ikeys) -#define keys_mutex (curinterp->Ikeys_mutex) #define last_in_gv (curinterp->Ilast_in_gv) #define lastfd (curinterp->Ilastfd) #define lastretstr (curinterp->Ilastretstr) @@ -1294,7 +1293,6 @@ #define lineary (curinterp->Ilineary) #define localizing (curinterp->Ilocalizing) #define localpatches (curinterp->Ilocalpatches) -#define magical_keys (curinterp->Imagical_keys) #define main_cv (curinterp->Imain_cv) #define main_root (curinterp->Imain_root) #define main_start (curinterp->Imain_start) @@ -1436,8 +1434,6 @@ #define Iincgv incgv #define Iinitav initav #define Iinplace inplace -#define Ikeys keys -#define Ikeys_mutex keys_mutex #define Ilast_in_gv last_in_gv #define Ilastfd lastfd #define Ilastretstr lastretstr @@ -1450,7 +1446,6 @@ #define Ilineary lineary #define Ilocalizing localizing #define Ilocalpatches localpatches -#define Imagical_keys magical_keys #define Imain_cv main_cv #define Imain_root main_root #define Imain_start main_start @@ -1601,8 +1596,6 @@ #define incgv Perl_incgv #define initav Perl_initav #define inplace Perl_inplace -#define keys Perl_keys -#define keys_mutex Perl_keys_mutex #define last_in_gv Perl_last_in_gv #define lastfd Perl_lastfd #define lastretstr Perl_lastretstr @@ -1615,7 +1608,6 @@ #define lineary Perl_lineary #define localizing Perl_localizing #define localpatches Perl_localpatches -#define magical_keys Perl_magical_keys #define main_cv Perl_main_cv #define main_root Perl_main_root #define main_start Perl_main_start -- cgit v1.2.1 From 199100c871a030cc44240072644abe9aab66bc02 Mon Sep 17 00:00:00 2001 From: Malcolm Beattie Date: Thu, 6 Nov 1997 14:31:38 +0000 Subject: Per-thread magicals now stored in their own thr->magicals and keyed more directly. cvcache and oursv become ordinary struct thread fields instead of #defined thr->Tfoo ones. SvREFCNT_inc now checks for 0 again. Main thread initialisation done by new function init_main_thread instead of (now fixed) new_struct_thread. p4raw-id: //depot/perl@205 --- embed.h | 2 -- 1 file changed, 2 deletions(-) (limited to 'embed.h') diff --git a/embed.h b/embed.h index 1c1e15cc8e..762ce18fab 100644 --- a/embed.h +++ b/embed.h @@ -289,8 +289,6 @@ #define invert Perl_invert #define io_close Perl_io_close #define jmaybe Perl_jmaybe -#define key_create Perl_key_create -#define key_destroy Perl_key_destroy #define keyword Perl_keyword #define know_next Perl_know_next #define last_lop Perl_last_lop -- cgit v1.2.1