From 85ddcde952b37a5319c8d00206e6f646bfb1faca Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 11 Mar 2000 00:45:46 +0000
Subject: Cpp out deadcode that IRIX compiler noticed.

p4raw-id: //depot/cfgperl@5638
---
 regcomp.c | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'regcomp.c')

diff --git a/regcomp.c b/regcomp.c
index 9768d18c93..9fbb3df20e 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;
-- 
cgit v1.2.1