File Coverage: /home/con/perl5/perlbrew/perls/perl-5.42.2/lib/5.42.2/x86_64-linux/CORE/perlstatic.h

# File Coverage

File: | /home/con/perl5/perlbrew/perls/perl-5.42.2/lib/5.42.2/x86_64-linux/CORE/perlstatic.h
Coverage: | 0.0%

line | stmt | bran | cond | sub | time | 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 |