diff options
| author | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2005-01-10 19:25:27 +0000 |
|---|---|---|
| committer | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2005-01-10 19:25:27 +0000 |
| commit | 766f891612bf493b0430beb068ead367d70cdef6 (patch) | |
| tree | 51378b3e215f1cbbe4f9bebe4d1c8e6cb493bb9e /proto.h | |
| parent | e3a4ba2609bab5af03e410e3d8a38f237348f922 (diff) | |
| download | perl-766f891612bf493b0430beb068ead367d70cdef6.tar.gz | |
Remove PERL_FLEXIBLE_EXCEPTIONS code.
p4raw-id: //depot/perl@23780
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 13 |
1 files changed, 0 insertions, 13 deletions
@@ -863,10 +863,6 @@ PERL_CALLCONV void Perl_do_op_dump(pTHX_ I32 level, PerlIO *file, OP *o); PERL_CALLCONV void Perl_do_pmop_dump(pTHX_ I32 level, PerlIO *file, PMOP *pm); PERL_CALLCONV void Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim); PERL_CALLCONV void Perl_magic_dump(pTHX_ MAGIC *mg); -#if defined(PERL_FLEXIBLE_EXCEPTIONS) -PERL_CALLCONV void* Perl_default_protect(pTHX_ volatile JMPENV *je, int *excpt, protect_body_t body, ...); -PERL_CALLCONV void* Perl_vdefault_protect(pTHX_ volatile JMPENV *je, int *excpt, protect_body_t body, va_list *args); -#endif PERL_CALLCONV void Perl_reginitcolors(pTHX); PERL_CALLCONV char* Perl_sv_2pv_nolen(pTHX_ SV* sv); PERL_CALLCONV char* Perl_sv_2pvutf8_nolen(pTHX_ SV* sv); @@ -1011,12 +1007,6 @@ STATIC void* S_parse_body(pTHX_ char **env, XSINIT_t xsinit); STATIC void* S_run_body(pTHX_ I32 oldscope); STATIC void S_call_body(pTHX_ OP *myop, int is_eval); STATIC void* S_call_list_body(pTHX_ CV *cv); -#if defined(PERL_FLEXIBLE_EXCEPTIONS) -STATIC void* S_vparse_body(pTHX_ va_list args); -STATIC void* S_vrun_body(pTHX_ va_list args); -STATIC void* S_vcall_body(pTHX_ va_list args); -STATIC void* S_vcall_list_body(pTHX_ va_list args); -#endif #endif #if defined(PERL_IN_PP_C) || defined(PERL_DECL_PROT) @@ -1039,9 +1029,6 @@ STATIC int S_div128(pTHX_ SV *pnum, bool *done); #if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT) STATIC OP* S_docatch(pTHX_ OP *o); STATIC void* S_docatch_body(pTHX); -#if defined(PERL_FLEXIBLE_EXCEPTIONS) -STATIC void* S_vdocatch_body(pTHX_ va_list args); -#endif STATIC OP* S_dofindlabel(pTHX_ OP *o, char *label, OP **opstack, OP **oplimit); STATIC OP* S_doparseform(pTHX_ SV *sv); STATIC bool S_num_overflow(NV value, I32 fldsize, I32 frcsize); |