From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 6 Oct 2000 11:45:15 +0000 (+0000)
Subject: The HINT_BYTE patch is apparently unnecessary, retracted.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=18e6b73a5fbc1457266f8212f295929b583e656d;p=p5sagit%2Fp5-mst-13.2.git

The HINT_BYTE patch is apparently unnecessary, retracted.

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

diff --git a/perl.c b/perl.c
index e5d263a..cb2cb14 100644
--- a/perl.c
+++ b/perl.c
@@ -723,11 +723,7 @@ perl_destruct(pTHXx)
     Safefree(PL_psig_ptr);
     Safefree(PL_psig_name);
     nuke_stacks();
-#ifdef EBCDIC
-    PL_hints = HINT_BYTE;	/* Reset hints. Should hints be per-interpreter ? */
-#else
     PL_hints = 0;		/* Reset hints. Should hints be per-interpreter ? */
-#endif
     
     DEBUG_P(debprofdump());
 #ifdef USE_THREADS
@@ -2510,20 +2506,12 @@ S_init_main_stash(pTHX)
     HvNAME(PL_defstash) = savepv("main");
     PL_incgv = gv_HVadd(gv_AVadd(gv_fetchpv("INC",TRUE, SVt_PVAV)));
     GvMULTI_on(PL_incgv);
-#ifdef EBCDIC
-    PL_hintgv = gv_fetchpv("\010",TRUE, SVt_PV); /* ^H */
-#else
     PL_hintgv = gv_fetchpv("\010",TRUE, SVt_PV); /* ^H */
-#endif
     GvMULTI_on(PL_hintgv);
     PL_defgv = gv_fetchpv("_",TRUE, SVt_PVAV);
     PL_errgv = gv_HVadd(gv_fetchpv("@", TRUE, SVt_PV));
     GvMULTI_on(PL_errgv);
-#ifdef EBCDIC
-    PL_replgv = gv_fetchpv("\022", TRUE, SVt_PV); /* ^R */
-#else
     PL_replgv = gv_fetchpv("\022", TRUE, SVt_PV); /* ^R */
-#endif
     GvMULTI_on(PL_replgv);
     (void)Perl_form(aTHX_ "%240s","");	/* Preallocate temp - for immediate signals. */
     sv_grow(ERRSV, 240);	/* Preallocate - for immediate signals. */
diff --git a/pp_ctl.c b/pp_ctl.c
index 9204879..c949e78 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2694,11 +2694,7 @@ Perl_sv_compile_2op(pTHX_ SV *sv, OP** startop, char *code, AV** avp)
 #else
     SAVEVPTR(PL_op);
 #endif
-#ifdef EBCDIC
-    PL_hints = HINT_BYTE;
-#else
     PL_hints = 0;
-#endif
 
     PL_op = &dummy;
     PL_op->op_type = OP_ENTEREVAL;
@@ -3244,11 +3240,7 @@ trylocal: {
 
     PL_rsfp = tryrsfp;
     SAVEHINTS();
-#ifdef EBCDIC
-    PL_hints = HINT_BYTE;
-#else
     PL_hints = 0;
-#endif
     SAVESPTR(PL_compiling.cop_warnings);
     if (PL_dowarn & G_WARN_ALL_ON)
         PL_compiling.cop_warnings = pWARN_ALL ;
diff --git a/sv.h b/sv.h
index d9522c4..fa73a86 100644
--- a/sv.h
+++ b/sv.h
@@ -202,11 +202,7 @@ perform the upgrade if necessary.  See C<svtype>.
 #define SVp_POK		0x04000000	/* has valid non-public pointer value */
 #define SVp_SCREAM	0x08000000	/* has been studied? */
 
-#ifdef EBCDIC
-#define SVf_UTF8        0x00000000      /* SvPVX is not UTF-8 encoded */
-#else
 #define SVf_UTF8        0x20000000      /* SvPVX is UTF-8 encoded */
-#endif
 
 #define SVf_THINKFIRST	(SVf_READONLY|SVf_ROK|SVf_FAKE|SVf_UTF8)
 
diff --git a/utf8.c b/utf8.c
index a12d8d4..3ab402c 100644
--- a/utf8.c
+++ b/utf8.c
@@ -910,11 +910,7 @@ Perl_swash_init(pTHX_ char* pkg, char* name, SV *listsv, I32 minbits, I32 none)
     PUTBACK;
     ENTER;
     SAVEI32(PL_hints);
-#ifdef EBCDIC
-    PL_hints = HINT_BYTE;
-#else
     PL_hints = 0;
-#endif
     save_re_context();
     if (PL_curcop == &PL_compiling)	/* XXX ought to be handled by lex_start */
 	strncpy(tmpbuf, PL_tokenbuf, sizeof tmpbuf);