|
52 | 52 | #ifdef __GNUC__ |
53 | 53 | # pragma GCC diagnostic push |
54 | 54 | # pragma GCC diagnostic ignored "-Wunused-variable" |
55 | | -# pragma GCC diagnostic ignored "-Wmaybe-uninitialized" |
56 | 55 | #endif |
57 | 56 |
|
58 | 57 | #include <EXTERN.h> |
@@ -307,16 +306,18 @@ static void (*perl_free)(PerlInterpreter*); |
307 | 306 | static int (*perl_run)(PerlInterpreter*); |
308 | 307 | static int (*perl_parse)(PerlInterpreter*, XSINIT_t, int, char**, char**); |
309 | 308 | static void* (*Perl_get_context)(void); |
310 | | -static void (*Perl_croak)(pTHX_ const char*, ...); |
| 309 | +static void (*Perl_croak)(pTHX_ const char*, ...) __attribute__noreturn__; |
311 | 310 | #ifdef PERL5101_OR_LATER |
312 | 311 | /* Perl-5.18 has a different Perl_croak_xs_usage signature. */ |
313 | 312 | # if (PERL_REVISION == 5) && (PERL_VERSION >= 18) |
314 | | -static void (*Perl_croak_xs_usage)(const CV *const, const char *const params); |
| 313 | +static void (*Perl_croak_xs_usage)(const CV *const, const char *const params) |
| 314 | + __attribute__noreturn__; |
315 | 315 | # else |
316 | | -static void (*Perl_croak_xs_usage)(pTHX_ const CV *const, const char *const params); |
| 316 | +static void (*Perl_croak_xs_usage)(pTHX_ const CV *const, const char *const params) |
| 317 | + __attribute__noreturn__; |
317 | 318 | # endif |
318 | 319 | #endif |
319 | | -static void (*Perl_croak_nocontext)(const char*, ...); |
| 320 | +static void (*Perl_croak_nocontext)(const char*, ...) __attribute__noreturn__; |
320 | 321 | static I32 (*Perl_dowantarray)(pTHX); |
321 | 322 | static void (*Perl_free_tmps)(pTHX); |
322 | 323 | static HV* (*Perl_gv_stashpv)(pTHX_ const char*, I32); |
@@ -591,7 +592,9 @@ static struct { |
591 | 592 | * "perl\lib\CORE\inline.h", after Perl_sv_free2 is defined. |
592 | 593 | * The linker won't complain about undefined __impl_Perl_sv_free2. */ |
593 | 594 | #if (PERL_REVISION == 5) && (PERL_VERSION >= 18) |
| 595 | +# define PL_memory_wrap "panic: memory wrap" /* Dummy */ |
594 | 596 | # include <inline.h> |
| 597 | +# undef PL_memory_wrap |
595 | 598 | #endif |
596 | 599 |
|
597 | 600 | /* |
@@ -1516,7 +1519,8 @@ SetHeight(win, height) |
1516 | 1519 | curwin = savewin; |
1517 | 1520 |
|
1518 | 1521 | void |
1519 | | -Cursor(VIWIN win, ...) |
| 1522 | +Cursor(win, ...) |
| 1523 | + VIWIN win |
1520 | 1524 |
|
1521 | 1525 | PPCODE: |
1522 | 1526 | if (items == 1) |
|
0 commit comments