This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
intrpvar.h - move size declaration to a define
authorYves Orton <demerphq@gmail.com>
Thu, 1 Sep 2022 11:39:56 +0000 (13:39 +0200)
committerYves Orton <demerphq@gmail.com>
Wed, 7 Sep 2022 07:02:11 +0000 (09:02 +0200)
so it can be reused and so the PERLVAR() lines up better.

intrpvar.h

index 85fa739..d5018e2 100644 (file)
@@ -1067,7 +1067,8 @@ PERLVAR(I, wcrtomb_ps, mbstate_t)
 /* Enough space for the reserved byte, 1 for a potential leading 0, then enough
  * for the longest representable integer plus an extra, the 3 flag characters,
  * and NUL */
-PERLVARA(I, mem_log, 1 + 1 + TYPE_DIGITS(UV) + 1 + 3 + 1, char)
+#define PERL_MEM_LOG_ARYLEN (1 + 1 + TYPE_DIGITS(UV) + 1 + 3 + 1)
+PERLVARA(I, mem_log, PERL_MEM_LOG_ARYLEN,  char)
 #endif
 
 /* The most recently seen `use VERSION` declaration, encoded in a single