From 4cbe3a7d4e9196aab2ca064651827e69cfa50f74 Mon Sep 17 00:00:00 2001 From: Daniel Dragan Date: Mon, 12 Nov 2012 06:19:10 -0800 Subject: clean up the users of PL_no_mem This commit eliminates a couple strlen()s of a literal. "Out of memory!\n" and PL_no_mem did not string pool on Visual C, so PL_no_mem was given a length. This commit removes S_write_no_mem and replaces it with nonstatic. Perl_croak_no_mem was made nocontext to save instructions in it's callers. NORETURN_FUNCTION_END caused a syntax error on Visual C C++ mode and therefore was removed. --- proto.h | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'proto.h') diff --git a/proto.h b/proto.h index 83372f8a09..14d512b745 100644 --- a/proto.h +++ b/proto.h @@ -643,6 +643,9 @@ PERL_CALLCONV_NO_RET void Perl_croak(pTHX_ const char* pat, ...) PERL_STATIC_NO_RET void S_croak_memory_wrap(void) __attribute__noreturn__; +PERL_CALLCONV_NO_RET void Perl_croak_no_mem(void) + __attribute__noreturn__; + PERL_CALLCONV_NO_RET void Perl_croak_no_modify(void) __attribute__noreturn__; @@ -7300,9 +7303,6 @@ STATIC SV * S_with_queued_errors(pTHX_ SV *ex) #define PERL_ARGS_ASSERT_WITH_QUEUED_ERRORS \ assert(ex) -PERL_STATIC_NO_RET char * S_write_no_mem(pTHX) - __attribute__noreturn__; - # if defined(PERL_MEM_LOG) && !defined(PERL_MEM_LOG_NOIMPL) STATIC void S_mem_log_common(enum mem_log_type mlt, const UV n, const UV typesize, const char *type_name, const SV *sv, Malloc_t oldalloc, Malloc_t newalloc, const char *filename, const int linenumber, const char *funcname) __attribute__nonnull__(4) -- cgit v1.2.1