remove unused PL_no_mem symbol

mauke · Nov 27, 2023 · 43c30d0 · 43c30d0
1 parent 9522b18
commit 43c30d0
Show file tree

Hide file tree

Showing 3 changed files with 1 addition and 4 deletions.
diff --git a/globvar.sym b/globvar.sym
@@ -37,7 +37,6 @@ PL_no_dir_func
 PL_no_func
 PL_no_helem_sv
 PL_no_localize_ref
-PL_no_mem
 PL_no_modify
 PL_no_myglob
 PL_no_security

diff --git a/perl.h b/perl.h
@@ -5392,8 +5392,6 @@ EXTCONST char PL_no_helem_sv[]
   INIT("Modification of non-creatable hash value attempted, subscript \"%" SVf "\"");
 EXTCONST char PL_no_modify[]
   INIT("Modification of a read-only value attempted");
-EXTCONST char PL_no_mem[sizeof("Out of memory!\n")]
-  INIT("Out of memory!\n");
 EXTCONST char PL_no_security[]
   INIT("Insecure dependency in %s%s");
 EXTCONST char PL_no_sock_func[]

diff --git a/t/porting/libperl.t b/t/porting/libperl.t
@@ -336,7 +336,7 @@ unless (exists $symbols{text}) {
 ok($symbols{obj}{'util.o'}, "has object util.o");
 ok($symbols{text}{'Perl_croak'}{'util.o'}, "has text Perl_croak in util.o");
 ok(exists $symbols{data}{const}, "has data const symbols");
-ok($symbols{data}{const}{PL_no_mem}{'globals.o'}, "has PL_no_mem");
+ok($symbols{data}{const}{PL_no_modify}{'globals.o'}, "has PL_no_modify");
 
 my $nocommon = $Config{ccflags} =~ /-fno-common/ ? 1 : 0;