Skip to content

Commit

Permalink
Adapt malloc.c to croak/warn now being defined under multiplicity
Browse files Browse the repository at this point in the history
This was broken by 13e5ba4
  • Loading branch information
Leont committed Oct 6, 2023
1 parent ef0ce4e commit 8e3a36a
Showing 1 changed file with 1 addition and 5 deletions.
6 changes: 1 addition & 5 deletions malloc.c
Original file line number Diff line number Diff line change
Expand Up @@ -239,13 +239,9 @@
#define PERL_IN_MALLOC_C
#include "perl.h"
#if defined(MULTIPLICITY)
# define croak Perl_croak_nocontext
# define croak2 Perl_croak_nocontext
# define warn Perl_warn_nocontext
# define warn2 Perl_warn_nocontext
#else
# define croak2 croak
# define warn2 warn
#endif
#ifdef USE_ITHREADS
# define PERL_MAYBE_ALIVE PL_thr_key
Expand Down Expand Up @@ -1708,7 +1704,7 @@ morecore(int bucket)
#endif
if (bucket == sizeof(MEM_SIZE)*8*BUCKETS_PER_POW2) {
MALLOC_UNLOCK;
croak("%s", "Out of memory during ridiculously large request");
croak2("%s", "Out of memory during ridiculously large request");
}
if (bucket > max_bucket)
max_bucket = bucket;
Expand Down

0 comments on commit 8e3a36a

Please sign in to comment.