perlstatic.h

   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