From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 11 Mar 2000 00:45:46 +0000 (+0000)
Subject: Cpp out deadcode that IRIX compiler noticed.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=85ddcde952b37a5319c8d00206e6f646bfb1faca;p=p5sagit%2Fp5-mst-13.2.git

Cpp out deadcode that IRIX compiler noticed.

p4raw-id: //depot/cfgperl@5638
---

diff --git a/regcomp.c b/regcomp.c
index 9768d18..9fbb3df 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -1359,7 +1359,10 @@ Perl_pregcomp(pTHX_ char *exp, char *xend, PMOP *pm)
     PL_regsize = 0L;
     PL_regcode = &PL_regdummy;
     PL_reg_whilem_seen = 0;
+#if 0 /* REGC() is (currently) a NOP at the first pass.
+       * Clever compilers notice this and complain. --jhi */
     REGC((U8)REG_MAGIC, (char*)PL_regcode);
+#endif
     if (reg(0, &flags) == NULL) {
 	Safefree(PL_regprecomp);
 	PL_regprecomp = Nullch;