diff options
author | Bram Moolenaar <Bram@vim.org> | 2016-04-02 14:18:01 +0200 |
---|---|---|
committer | Bram Moolenaar <Bram@vim.org> | 2016-04-02 14:18:01 +0200 |
commit | 864733ad92e30cd603314604af73f25106db4c90 (patch) | |
tree | cf37199b1a2db9f7269c9e0b9d106b1680df435e /src/if_perl.xs | |
parent | 9bd547aca41799605c3a3f83444f6725c2d6eda9 (diff) | |
download | vim-git-864733ad92e30cd603314604af73f25106db4c90.tar.gz |
patch 7.4.1693v7.4.1693
Problem: Building the Perl interface gives compiler warnings.
Solution: Remove a pragma. Add noreturn attributes. (Damien)
Diffstat (limited to 'src/if_perl.xs')
-rw-r--r-- | src/if_perl.xs | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/src/if_perl.xs b/src/if_perl.xs index 9ca52917f..4fbc13e3a 100644 --- a/src/if_perl.xs +++ b/src/if_perl.xs @@ -52,7 +52,6 @@ #ifdef __GNUC__ # pragma GCC diagnostic push # pragma GCC diagnostic ignored "-Wunused-variable" -# pragma GCC diagnostic ignored "-Wmaybe-uninitialized" #endif #include <EXTERN.h> @@ -307,16 +306,18 @@ static void (*perl_free)(PerlInterpreter*); static int (*perl_run)(PerlInterpreter*); static int (*perl_parse)(PerlInterpreter*, XSINIT_t, int, char**, char**); static void* (*Perl_get_context)(void); -static void (*Perl_croak)(pTHX_ const char*, ...); +static void (*Perl_croak)(pTHX_ const char*, ...) __attribute__noreturn__; #ifdef PERL5101_OR_LATER /* Perl-5.18 has a different Perl_croak_xs_usage signature. */ # if (PERL_REVISION == 5) && (PERL_VERSION >= 18) -static void (*Perl_croak_xs_usage)(const CV *const, const char *const params); +static void (*Perl_croak_xs_usage)(const CV *const, const char *const params) + __attribute__noreturn__; # else -static void (*Perl_croak_xs_usage)(pTHX_ const CV *const, const char *const params); +static void (*Perl_croak_xs_usage)(pTHX_ const CV *const, const char *const params) + __attribute__noreturn__; # endif #endif -static void (*Perl_croak_nocontext)(const char*, ...); +static void (*Perl_croak_nocontext)(const char*, ...) __attribute__noreturn__; static I32 (*Perl_dowantarray)(pTHX); static void (*Perl_free_tmps)(pTHX); static HV* (*Perl_gv_stashpv)(pTHX_ const char*, I32); @@ -591,7 +592,9 @@ static struct { * "perl\lib\CORE\inline.h", after Perl_sv_free2 is defined. * The linker won't complain about undefined __impl_Perl_sv_free2. */ #if (PERL_REVISION == 5) && (PERL_VERSION >= 18) +# define PL_memory_wrap "panic: memory wrap" /* Dummy */ # include <inline.h> +# undef PL_memory_wrap #endif /* @@ -1516,7 +1519,8 @@ SetHeight(win, height) curwin = savewin; void -Cursor(VIWIN win, ...) +Cursor(win, ...) + VIWIN win PPCODE: if (items == 1) |