diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2014-06-13 15:21:25 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2014-06-13 15:41:55 -0400 |
| commit | b5bbe64ad2ec51417ef02ac52304ed45fe37be3f (patch) | |
| tree | 71f1b45882f215a6d886d3bc08954c02a54e6af0 /perl.h | |
| parent | 7053d92917f7cb46452de86dc4c6d8644cae849c (diff) | |
| download | perl-b5bbe64ad2ec51417ef02ac52304ed45fe37be3f.tar.gz | |
Remove MAD.
MAD = Misc Attribute Decoration; unmaintained attempt at preserving
the Perl parse tree more faithfully so that automatic conversion to
Perl 6 would have been easier.
Diffstat (limited to 'perl.h')
| -rw-r--r-- | perl.h | 25 |
1 files changed, 0 insertions, 25 deletions
@@ -2256,11 +2256,6 @@ int isnan(double d); typedef MEM_SIZE STRLEN; -#ifdef PERL_MAD -typedef struct token TOKEN; -typedef struct madprop MADPROP; -typedef struct nexttoken NEXTTOKE; -#endif typedef struct op OP; typedef struct cop COP; typedef struct unop UNOP; @@ -3294,13 +3289,6 @@ typedef struct crypt_data { /* straight from /usr/include/crypt.h */ #endif #include "perly.h" -#ifdef PERL_MAD -struct nexttoken { - YYSTYPE next_val; /* value of next token, if any */ - I32 next_type; /* type of next token */ - MADPROP *next_mad; /* everything else about that token */ -}; -#endif /* macros to define bit-fields in structs. */ #ifndef PERL_BITFIELD8 @@ -4611,9 +4599,6 @@ EXTCONST char PL_bincompat_options[] = # ifdef PERL_IMPLICIT_SYS " PERL_IMPLICIT_SYS" # endif -# ifdef PERL_MAD - " PERL_MAD" -# endif # ifdef PERL_MICRO " PERL_MICRO" # endif @@ -5032,12 +5017,6 @@ struct tempsym; /* defined in pp_pack.c */ #if !defined(PERL_FOR_X2P) # include "embedvar.h" #endif -#ifndef PERL_MAD -# undef PL_madskills -# undef PL_xmlfp -# define PL_madskills 0 -# define PL_xmlfp 0 -#endif /* Now include all the 'global' variables * If we don't have threads or multiple interpreters @@ -5064,10 +5043,6 @@ END_EXTERN_C In particular, need the relevant *ish file included already, as it may define HAVE_INTERP_INTERN */ #include "embed.h" -#ifndef PERL_MAD -# undef op_getmad -# define op_getmad(arg,pegop,slot) NOOP -#endif #ifndef PERL_GLOBAL_STRUCT START_EXTERN_C |