Change 32679 by [EMAIL PROTECTED] on 2007/12/20 20:58:25
Correct the embed.fnc descriptions of newAV() and newHV() - they do not
return memory allocated à la malloc(), as it comes from an arena.
Affected files ...
... //depot/perl/embed.fnc#541 edit
... //depot/perl/proto.h#877 edit
Differences ...
==== //depot/perl/embed.fnc#541 (text) ====
Index: perl/embed.fnc
--- perl/embed.fnc#540~32676~ 2007-12-20 12:23:45.000000000 -0800
+++ perl/embed.fnc 2007-12-20 12:58:25.000000000 -0800
@@ -565,7 +565,7 @@
|NN const char *const filename \
|NULLOK const char *const proto|U32 flags
Apd |CV* |newXS |NULLOK const char* name|NN XSUBADDR_t f|NN
const char* filename
-Amdba |AV* |newAV
+AmdbR |AV* |newAV
Apa |OP* |newAVREF |NN OP* o
Apa |OP* |newBINOP |I32 type|I32 flags|NULLOK OP* first|NULLOK OP*
last
Apa |OP* |newCVREF |I32 flags|NULLOK OP* o
@@ -573,7 +573,7 @@
Apa |GV* |newGVgen |NN const char* pack
Apa |OP* |newGVREF |I32 type|NULLOK OP* o
ApaR |OP* |newHVREF |NN OP* o
-AmdbaR |HV* |newHV
+AmdbR |HV* |newHV
ApaR |HV* |newHVhv |NULLOK HV* hv
Apa |IO* |newIO
Apa |OP* |newLISTOP |I32 type|I32 flags|NULLOK OP* first|NULLOK OP*
last
==== //depot/perl/proto.h#877 (text+w) ====
Index: perl/proto.h
--- perl/proto.h#876~32676~ 2007-12-20 12:23:45.000000000 -0800
+++ perl/proto.h 2007-12-20 12:58:25.000000000 -0800
@@ -1509,7 +1509,6 @@
__attribute__nonnull__(pTHX_3);
/* PERL_CALLCONV AV* Perl_newAV(pTHX)
- __attribute__malloc__
__attribute__warn_unused_result__; */
PERL_CALLCONV OP* Perl_newAVREF(pTHX_ OP* o)
@@ -1545,7 +1544,6 @@
__attribute__nonnull__(pTHX_1);
/* PERL_CALLCONV HV* Perl_newHV(pTHX)
- __attribute__malloc__
__attribute__warn_unused_result__; */
PERL_CALLCONV HV* Perl_newHVhv(pTHX_ HV* hv)
End of Patch.
