Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Remove binary compatibility scaffolding for the change to PL_bitcount.

  • Loading branch information...
commit efb0071775238a7ca34b142838911d57320e638c 1 parent efa50c5
Nicholas Clark authored
View
1  embed.pl
@@ -696,7 +696,6 @@ END
END
for $sym (sort keys %intrp) {
- next if $sym eq 'bitcount';
print $em multon($sym,'I','vTHX->');
}
View
1  embedvar.h
@@ -384,7 +384,6 @@
#define PL_Ibasetime PL_basetime
#define PL_Ibeginav PL_beginav
#define PL_Ibeginav_save PL_beginav_save
-#define PL_Ibitcount PL_bitcount
#define PL_Ibody_arenas PL_body_arenas
#define PL_Ibody_roots PL_body_roots
#define PL_Ibodytarget PL_bodytarget
View
10 intrpvar.h
@@ -533,16 +533,6 @@ PERLVARI(Iglob_index, int, 0)
PERLVAR(Iparser, yy_parser *) /* current parser state */
-#ifdef MULTIPLICITY
-/* For binary compatibility, keep the interpreter structure the same.
- However, we no longer use this entry. */
-PERLVAR(Ibitcount, char *)
-#else
-/* For binary compatibility, need to retain an extern char *PL_bitcount.
- So make it point to the compile time generated array. */
-PERLVARI(Ibitcount, char *, (char *)PL_bitcount_array)
-#endif
-
/* Array of signal handlers, indexed by signal number, through which the C
signal handler dispatches. */
PERLVAR(Ipsig_ptr, SV**)
View
4 perl.c
@@ -1232,10 +1232,6 @@ perl_destruct(pTHXx)
PL_psig_ptr = (SV**)NULL;
Safefree(PL_psig_name);
PL_psig_name = (SV**)NULL;
-#ifdef MULTIPLICITY
- Safefree(my_perl->Ibitcount);
- my_perl->Ibitcount = NULL;
-#endif
Safefree(PL_psig_pend);
PL_psig_pend = (int*)NULL;
PL_formfeed = NULL;
View
15 perl.h
@@ -4240,29 +4240,14 @@ EXTCONST char PL_uuemap[65]
EXTCONST char PL_uudmap[256] =
#include "uudmap.h"
;
-# ifdef MULTIPLICITY
-/* There's no binary compatibility issue with adding a new global PL_bitcount,
- because before this change, under MULTIPLICITY the pre-processor would have
- been replacing the token PL_bitcount with an expression to access the
- interpreter struct. */
EXTCONST char PL_bitcount[256] =
-# else
-/* For binary compatibility, we can't replace the existing pointer PL_bitcount
- with an array PL_bitcount. So keep the existing variable, but make it point
- to our compile-time generated array instead. */
-EXTCONST char PL_bitcount_array[256] =
-# endif
# include "bitcount.h"
;
EXTCONST char* const PL_sig_name[] = { SIG_NAME };
EXTCONST int PL_sig_num[] = { SIG_NUM };
#else
EXTCONST char PL_uudmap[256];
-# ifdef MULTIPLICITY
EXTCONST char PL_bitcount[256];
-# else
-EXTCONST char PL_bitcount_array[256];
-# endif
EXTCONST char* const PL_sig_name[];
EXTCONST int PL_sig_num[];
#endif
View
2  perlapi.h
@@ -178,8 +178,6 @@ END_EXTERN_C
#define PL_beginav (*Perl_Ibeginav_ptr(aTHX))
#undef PL_beginav_save
#define PL_beginav_save (*Perl_Ibeginav_save_ptr(aTHX))
-#undef PL_bitcount
-#define PL_bitcount (*Perl_Ibitcount_ptr(aTHX))
#undef PL_body_arenas
#define PL_body_arenas (*Perl_Ibody_arenas_ptr(aTHX))
#undef PL_body_roots
View
1  sv.c
@@ -12176,7 +12176,6 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
PL_glob_index = proto_perl->Iglob_index;
PL_srand_called = proto_perl->Isrand_called;
- my_perl->Ibitcount = NULL; /* no longer used */
if (proto_perl->Ipsig_pend) {
Newxz(PL_psig_pend, SIG_SIZE, int);
Please sign in to comment.
Something went wrong with that request. Please try again.