diff options
| author | Nicholas Clark <nick@ccl4.org> | 2011-05-01 22:12:15 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2011-06-12 16:15:22 +0200 |
| commit | 724cf8d623675450a9b7be794b6b3917972e83f8 (patch) | |
| tree | 11ea73b19174ec36c2b07b09d87cc4de49b2cea0 /perlvars.h | |
| parent | 9e08d3a49aaebdf17eb8671b022395f689827205 (diff) | |
| download | perl-724cf8d623675450a9b7be794b6b3917972e83f8.tar.gz | |
Move PL_global_struct_size, PL_interp_size{,_5_16_0} to perl.h
Make them const U16 - they should have been const from the start.
Diffstat (limited to 'perlvars.h')
| -rw-r--r-- | perlvars.h | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/perlvars.h b/perlvars.h index bad7a16d8b..bf298c08b0 100644 --- a/perlvars.h +++ b/perlvars.h @@ -145,24 +145,6 @@ PERLVARI(Gveto_cleanup, int, FALSE) /* exit without cleanup */ PERLVARI(Grunops_std, runops_proc_t, Perl_runops_standard) PERLVARI(Grunops_dbg, runops_proc_t, Perl_runops_debug) -#if defined(MULTIPLICITY) -# define PERL_INTERPRETER_SIZE_UPTO_MEMBER(member) \ - STRUCT_OFFSET(struct interpreter, member) + \ - sizeof(((struct interpreter*)0)->member) - -/* These might be useful. */ -PERLVARI(Ginterp_size, U16, sizeof(struct interpreter)) -#if defined(PERL_GLOBAL_STRUCT) -PERLVARI(Gglobal_struct_size, U16, sizeof(struct perl_vars)) -#endif - -/* This will be useful for subsequent releases, because this has to be the - same in your libperl as in main(), else you have a mismatch and must abort. -*/ -PERLVARI(Ginterp_size_5_16_0, U16, - PERL_INTERPRETER_SIZE_UPTO_MEMBER(PERL_LAST_5_16_0_INTERP_MEMBER)) -#endif - /* =for apidoc AmUx|Perl_keyword_plugin_t|PL_keyword_plugin |