Make PL_hints an alias for PL_compiling.cop_hints

PL_hints stores the hints at compile time that get copied into the
cop_hints field of each COP (in newSTATEOP).

Since perl-5.8.0-8053-gd5ec298, COPs have stored all the hints.

Before that, COPs used to store only some of the hints.  The hints
were copied here and there into PL_compiling, a static COP-shaped buf-
fer used during compilation, so that things like constant folding
would see the correct hints.  a0ed51b3 back in 1998 did that.

Now that COPs can store all the hints, we can just use
PL_compiling.cop_hints to avoid having to copy them from PL_hints from
time to time.

This simplifies the code and avoids creating bugs like those that
a547fd219 and 1c75beb82 fixed.

1 files changed, 0 insertions, 1 deletions

diff --git a/mg.c b/mg.c
index b4c06923ee..0ce58ab5d2 100644
--- a/mg.c
+++ b/mg.c
@@ -2590,7 +2590,6 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg)
 	break;
     case '\010':	/* ^H */
 	PL_hints = SvIV(sv);
-	CopHINTS_set(&PL_compiling, PL_hints);
 	break;
     case '\011':	/* ^I */ /* NOT \t in EBCDIC */
 	Safefree(PL_inplace);