remove cc_runtime.h from core
authorDavid Mitchell <davem@iabyn.com>
Wed, 5 Jan 2011 11:56:15 +0000 (11:56 +0000)
committerDavid Mitchell <davem@iabyn.com>
Wed, 5 Jan 2011 11:56:15 +0000 (11:56 +0000)
It was only needed for B::CC, which was removed from core
in 5.10.0

MANIFEST
cc_runtime.h [deleted file]
cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm
cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_VMS.pm

index 72063e1..76801ae 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -6,7 +6,6 @@ av.h                    Array value header
 beos/beos.c            BeOS port
 beos/beosish.h         BeOS port
 beos/nm.c              BeOS port
-cc_runtime.h           Macros need by runtime of compiler-generated code
 cflags.SH              A script that emits C compilation flags per file
 Changes                        Describe how to peruse changes between releases
 config_h.SH            Produces config.h
diff --git a/cc_runtime.h b/cc_runtime.h
deleted file mode 100644 (file)
index 90826df..0000000
+++ /dev/null
@@ -1,85 +0,0 @@
-/*    cc_runtime.h
- *
- *    Copyright (C) 1999, 2000, 2001, 2004, 2006, 2008 by Larry Wall and others
- *
- *    You may distribute under the terms of either the GNU General Public
- *    License or the Artistic License, as specified in the README file.
- *
- */
-
-#define DOOP(ppname) PUTBACK; PL_op = ppname(aTHX); SPAGAIN
-#define CCPP(s)   OP * s(pTHX)
-
-#define PP_LIST(g) do {                        \
-       dMARK;                          \
-       if (g != G_ARRAY) {             \
-           if (++MARK <= SP)           \
-               *MARK = *SP;            \
-           else                        \
-               *MARK = &PL_sv_undef;   \
-           SP = MARK;                  \
-       }                               \
-   } while (0)
-
-#define MAYBE_TAINT_SASSIGN_SRC(sv) \
-    if (PL_tainting && PL_tainted && (!SvGMAGICAL(left) || !SvSMAGICAL(left) || \
-        !((mg=mg_find(left, PERL_MAGIC_taint)) && mg->mg_len & 1)))\
-        TAINT_NOT
-
-#define PP_PREINC(sv) do {     \
-       if (SvIOK(sv)) {        \
-            ++SvIVX(sv);       \
-           SvFLAGS(sv) &= ~(SVf_NOK|SVf_POK|SVp_NOK|SVp_POK); \
-       }                       \
-       else                    \
-           sv_inc(sv);         \
-       SvSETMAGIC(sv);         \
-    } while (0)
-
-#define PP_UNSTACK do {                \
-       TAINT_NOT;              \
-       PL_stack_sp = PL_stack_base + cxstack[cxstack_ix].blk_oldsp;    \
-       FREETMPS;               \
-       oldsave = PL_scopestack[PL_scopestack_ix - 1]; \
-       LEAVE_SCOPE(oldsave);   \
-       SPAGAIN;                \
-    } while(0)
-
-/* Anyone using eval "" deserves this mess */
-#define PP_EVAL(ppaddr, nxt) do {              \
-       dJMPENV;                                \
-       int ret;                                \
-       PUTBACK;                                \
-       JMPENV_PUSH(ret);                       \
-       switch (ret) {                          \
-       case 0:                                 \
-           PL_op = ppaddr(aTHX);               \
-            cxstack[cxstack_ix].blk_eval.retop = Nullop; \
-           if (PL_op != nxt) CALLRUNOPS(aTHX); \
-           JMPENV_POP;                         \
-           break;                              \
-       case 1: JMPENV_POP; JMPENV_JUMP(1);     \
-       case 2: JMPENV_POP; JMPENV_JUMP(2);     \
-       case 3:                                 \
-           JMPENV_POP;                         \
-           if (PL_restartop && PL_restartop != nxt)            \
-               JMPENV_JUMP(3);                 \
-       }                                       \
-       PL_op = nxt;                            \
-       SPAGAIN;                                \
-    } while (0)
-
-#define PP_ENTERTRY(label)             \
-       STMT_START {                    \
-           dJMPENV;                    \
-           int ret;                    \
-           JMPENV_PUSH(ret);           \
-           switch (ret) {              \
-               case 1: JMPENV_POP; JMPENV_JUMP(1);\
-               case 2: JMPENV_POP; JMPENV_JUMP(2);\
-               case 3: JMPENV_POP; SPAGAIN; goto label;\
-           }                                      \
-       } STMT_END
-
-#define PP_LEAVETRY \
-       STMT_START{ PL_top_env=PL_top_env->je_prev; }STMT_END
index ea2668a..0310fd7 100644 (file)
@@ -2754,7 +2754,6 @@ PERL_HDRS = \
        $(PERL_INC)/INTERN.h            \
        $(PERL_INC)/XSUB.h              \
        $(PERL_INC)/av.h                \
-       $(PERL_INC)/cc_runtime.h        \
        $(PERL_INC)/config.h            \
        $(PERL_INC)/cop.h               \
        $(PERL_INC)/cv.h                \
index 5be6cf9..642f2ba 100644 (file)
@@ -1265,7 +1265,7 @@ sub perldepend {
 
     push @m, '
 $(OBJECT) : $(PERL_INC)EXTERN.h, $(PERL_INC)INTERN.h, $(PERL_INC)XSUB.h
-$(OBJECT) : $(PERL_INC)av.h, $(PERL_INC)cc_runtime.h, $(PERL_INC)config.h
+$(OBJECT) : $(PERL_INC)av.h, $(PERL_INC)config.h
 $(OBJECT) : $(PERL_INC)cop.h, $(PERL_INC)cv.h, $(PERL_INC)embed.h
 $(OBJECT) : $(PERL_INC)embedvar.h, $(PERL_INC)form.h
 $(OBJECT) : $(PERL_INC)gv.h, $(PERL_INC)handy.h, $(PERL_INC)hv.h