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 34