Commit | Line | Data |
---|---|---|
d86d1780 KW |
1 | /* perlstatic.h |
2 | * | |
3 | * 'I don't know half of you half as well as I should like; and I like less | |
4 | * than half of you half as well as you deserve.' | |
5 | * | |
6 | * Copyright (C) 2020 by Larry Wall and others | |
7 | * | |
8 | * You may distribute under the terms of either the GNU General Public | |
9 | * License or the Artistic License, as specified in the README file. | |
10 | * | |
11 | * This file is a home for static functions that we don't consider suitable for | |
12 | * inlining, but for which giving the compiler full knowledge of may be | |
13 | * advantageous. Functions that have potential tail call optimizations are a | |
14 | * likely component. | |
15 | ||
16 | */ | |
17 | ||
18 | /* saves machine code for a common noreturn idiom typically used in Newx*() */ | |
19 | GCC_DIAG_IGNORE_DECL(-Wunused-function); | |
20 | ||
21 | STATIC void | |
22 | Perl_croak_memory_wrap(void) | |
23 | { | |
24 | Perl_croak_nocontext("%s",PL_memory_wrap); | |
25 | } | |
26 | ||
27 | GCC_DIAG_RESTORE_DECL; | |
28 | ||
29 | ||
30 | /* | |
31 | * ex: set ts=8 sts=4 sw=4 et: | |
32 | */ | |
33 |