Line data    Source code

       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            0 : Perl_croak_memory_wrap(void)
      23              : {
      24            0 :     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              :