This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
pp_subst: reduce scope of 'd' variable
[perl5.git]
/
util.c
diff --git
a/util.c
b/util.c
index
ffd41b9
..
be75796
100644
(file)
--- a/
util.c
+++ b/
util.c
@@
-297,12
+297,12
@@
Perl_safesyscalloc(MEM_SIZE count, MEM_SIZE size)
#endif
}
else
#endif
}
else
-
Perl_
croak_memory_wrap();
+ croak_memory_wrap();
#ifdef PERL_TRACK_MEMPOOL
if (sTHX <= MEM_SIZE_MAX - (MEM_SIZE)total_size)
total_size += sTHX;
else
#ifdef PERL_TRACK_MEMPOOL
if (sTHX <= MEM_SIZE_MAX - (MEM_SIZE)total_size)
total_size += sTHX;
else
-
Perl_
croak_memory_wrap();
+ croak_memory_wrap();
#endif
#ifdef HAS_64K_LIMIT
if (total_size > 0xffff) {
#endif
#ifdef HAS_64K_LIMIT
if (total_size > 0xffff) {
@@
-1614,14
+1614,6
@@
Perl_croak_no_mem()
my_exit(1);
}
my_exit(1);
}
-/* saves machine code for a common noreturn idiom typically used in Newx*() */
-void
-Perl_croak_memory_wrap(void)
-{
- Perl_croak_nocontext("%s",PL_memory_wrap);
-}
-
-
/* does not return, used only in POPSTACK */
void
Perl_croak_popstack(void)
/* does not return, used only in POPSTACK */
void
Perl_croak_popstack(void)
@@
-2928,7
+2920,7
@@
Perl_repeatcpy(char *to, const char *from, I32 len, IV count)
assert(len >= 0);
if (count < 0)
assert(len >= 0);
if (count < 0)
-
Perl_
croak_memory_wrap();
+ croak_memory_wrap();
if (len == 1)
memset(to, *from, count);
if (len == 1)
memset(to, *from, count);
@@
-5456,6
+5448,10
@@
Perl_init_global_struct(pTHX)
# ifdef PERL_SET_VARS
PERL_SET_VARS(plvarsp);
# endif
# ifdef PERL_SET_VARS
PERL_SET_VARS(plvarsp);
# endif
+# ifdef PERL_GLOBAL_STRUCT_PRIVATE
+ plvarsp->Gsv_placeholder.sv_flags = 0;
+ memset(plvarsp->Ghash_seed, 0, sizeof(plvarsp->Ghash_seed));
+# endif
# undef PERL_GLOBAL_STRUCT_INIT
# endif
return plvarsp;
# undef PERL_GLOBAL_STRUCT_INIT
# endif
return plvarsp;