| 1 |
Change 33287 by nicholas@nicholas-pecuchet on 2008/02/12 11:52:30
|
| 2 |
|
| 3 |
In Perl_load_module_nocontext(), ver can actually be NULL.
|
| 4 |
In Perl_hv_copy_hints_hv(), ohv can actually be NULL.
|
| 5 |
In Perl_sortsv(), Perl_sortsv_flags() and S_qsortsvu(), array can be
|
| 6 |
NULL (if the number of elements to sort is <= 1).
|
| 7 |
In Perl_save_nogv(), gv can not be NULL.
|
| 8 |
In Perl_sv_cmp() and Perl_sv_cmp_locale(), both SVs can be NULL.
|
| 9 |
In Perl_ptr_table_fetch(), the sv can be NULL.
|
| 10 |
In PerlIO_set_ptrcnt(), ptr can be NULL.
|
| 11 |
|
| 12 |
diff -Naur --exclude=debian perl-5.10.0.orig/embed.fnc perl-5.10.0/embed.fnc
|
| 13 |
--- perl-5.10.0.orig/embed.fnc 2007-12-18 21:47:07.000000000 +1100
|
| 14 |
+++ perl-5.10.0/embed.fnc 2008-03-09 19:38:30.000000000 +1100
|
| 15 |
@@ -140,7 +140,7 @@
|
| 16 |
Afnp |OP* |die_nocontext |NN const char* pat|...
|
| 17 |
Afnp |void |deb_nocontext |NN const char* pat|...
|
| 18 |
Afnp |char* |form_nocontext |NN const char* pat|...
|
| 19 |
-Anp |void |load_module_nocontext|U32 flags|NN SV* name|NN SV* ver|...
|
| 20 |
+Anp |void |load_module_nocontext|U32 flags|NN SV* name|NULLOK SV* ver|...
|
| 21 |
Afnp |SV* |mess_nocontext |NN const char* pat|...
|
| 22 |
Afnp |void |warn_nocontext |NN const char* pat|...
|
| 23 |
Afnp |void |warner_nocontext|U32 err|NN const char* pat|...
|
| 24 |
@@ -296,7 +296,7 @@
|
| 25 |
Apd |HV* |gv_stashpvn |NN const char* name|U32 namelen|I32 flags
|
| 26 |
Apd |HV* |gv_stashsv |NULLOK SV* sv|I32 flags
|
| 27 |
Apd |void |hv_clear |NULLOK HV* tb
|
| 28 |
-poM |HV * |hv_copy_hints_hv|NN HV *const ohv
|
| 29 |
+poM |HV * |hv_copy_hints_hv|NULLOK HV *const ohv
|
| 30 |
Ap |void |hv_delayfree_ent|NN HV* hv|NULLOK HE* entry
|
| 31 |
Abmd |SV* |hv_delete |NULLOK HV* tb|NN const char* key|I32 klen \
|
| 32 |
|I32 flags
|
| 33 |
@@ -486,8 +486,8 @@
|
| 34 |
Afp |SV* |mess |NN const char* pat|...
|
| 35 |
Ap |SV* |vmess |NN const char* pat|NULLOK va_list* args
|
| 36 |
EXp |void |qerror |NN SV* err
|
| 37 |
-Apd |void |sortsv |NN SV** array|size_t num_elts|NN SVCOMPARE_t cmp
|
| 38 |
-Apd |void |sortsv_flags |NN SV** array|size_t num_elts|NN SVCOMPARE_t cmp|U32 flags
|
| 39 |
+Apd |void |sortsv |NULLOK SV** array|size_t num_elts|NN SVCOMPARE_t cmp
|
| 40 |
+Apd |void |sortsv_flags |NULLOK SV** array|size_t num_elts|NN SVCOMPARE_t cmp|U32 flags
|
| 41 |
Apd |int |mg_clear |NN SV* sv
|
| 42 |
Apd |int |mg_copy |NN SV* sv|NN SV* nsv|NULLOK const char* key|I32 klen
|
| 43 |
pd |void |mg_localize |NN SV* sv|NN SV* nsv
|
| 44 |
@@ -768,7 +768,7 @@
|
| 45 |
Ap |void |save_list |NN SV** sarg|I32 maxsarg
|
| 46 |
Ap |void |save_long |NN long* longp
|
| 47 |
Ap |void |save_mortalizesv|NN SV* sv
|
| 48 |
-Ap |void |save_nogv |NULLOK GV* gv
|
| 49 |
+Ap |void |save_nogv |NN GV* gv
|
| 50 |
p |void |save_op
|
| 51 |
Ap |SV* |save_scalar |NN GV* gv
|
| 52 |
Ap |void |save_pptr |NN char** pptr
|
| 53 |
@@ -842,8 +842,8 @@
|
| 54 |
pd |I32 |sv_clean_all
|
| 55 |
pd |void |sv_clean_objs
|
| 56 |
Apd |void |sv_clear |NN SV* sv
|
| 57 |
-Apd |I32 |sv_cmp |NN SV* sv1|NN SV* sv2
|
| 58 |
-Apd |I32 |sv_cmp_locale |NN SV* sv1|NN SV* sv2
|
| 59 |
+Apd |I32 |sv_cmp |NULLOK SV* sv1|NULLOK SV* sv2
|
| 60 |
+Apd |I32 |sv_cmp_locale |NULLOK SV* sv1|NULLOK SV* sv2
|
| 61 |
#if defined(USE_LOCALE_COLLATE)
|
| 62 |
Apd |char* |sv_collxfrm |NN SV* sv|NN STRLEN* nxp
|
| 63 |
#endif
|
| 64 |
@@ -1094,7 +1094,7 @@
|
| 65 |
Ap |yy_parser*|parser_dup |NN const yy_parser *proto|NN CLONE_PARAMS* param
|
| 66 |
#endif
|
| 67 |
Apa |PTR_TBL_t*|ptr_table_new
|
| 68 |
-ApR |void* |ptr_table_fetch|NN PTR_TBL_t *tbl|NN const void *sv
|
| 69 |
+ApR |void* |ptr_table_fetch|NN PTR_TBL_t *tbl|NULLOK const void *sv
|
| 70 |
Ap |void |ptr_table_store|NN PTR_TBL_t *tbl|NULLOK const void *oldsv|NN void *newsv
|
| 71 |
Ap |void |ptr_table_split|NN PTR_TBL_t *tbl
|
| 72 |
Ap |void |ptr_table_clear|NULLOK PTR_TBL_t *tbl
|
| 73 |
@@ -1352,7 +1352,7 @@
|
| 74 |
s |I32 |sortcv |NN SV *a|NN SV *b
|
| 75 |
s |I32 |sortcv_xsub |NN SV *a|NN SV *b
|
| 76 |
s |I32 |sortcv_stacked |NN SV *a|NN SV *b
|
| 77 |
-s |void |qsortsvu |NN SV** array|size_t num_elts|NN SVCOMPARE_t compare
|
| 78 |
+s |void |qsortsvu |NULLOK SV** array|size_t num_elts|NN SVCOMPARE_t compare
|
| 79 |
#endif
|
| 80 |
|
| 81 |
#if defined(PERL_IN_PP_SYS_C) || defined(PERL_DECL_PROT)
|
| 82 |
@@ -1623,7 +1623,8 @@
|
| 83 |
Ap |int |PerlIO_flush |NULLOK PerlIO *f
|
| 84 |
Ap |void |PerlIO_clearerr |NULLOK PerlIO *f
|
| 85 |
Ap |void |PerlIO_set_cnt |NULLOK PerlIO *f|int cnt
|
| 86 |
-Ap |void |PerlIO_set_ptrcnt |NULLOK PerlIO *f|NN STDCHAR *ptr|int cnt
|
| 87 |
+Ap |void |PerlIO_set_ptrcnt |NULLOK PerlIO *f|NULLOK STDCHAR *ptr \
|
| 88 |
+ |int cnt
|
| 89 |
Ap |void |PerlIO_setlinebuf |NULLOK PerlIO *f
|
| 90 |
Ap |SSize_t|PerlIO_read |NULLOK PerlIO *f|NN void *buf|Size_t count
|
| 91 |
Ap |SSize_t|PerlIO_write |NULLOK PerlIO *f|NN const void *buf|Size_t count
|
| 92 |
diff -Naur --exclude=debian perl-5.10.0.orig/proto.h perl-5.10.0/proto.h
|
| 93 |
--- perl-5.10.0.orig/proto.h 2007-12-18 21:47:08.000000000 +1100
|
| 94 |
+++ perl-5.10.0/proto.h 2008-03-09 19:49:22.000000000 +1100
|
| 95 |
@@ -260,8 +260,7 @@
|
| 96 |
__attribute__nonnull__(1);
|
| 97 |
|
| 98 |
PERL_CALLCONV void Perl_load_module_nocontext(U32 flags, SV* name, SV* ver, ...)
|
| 99 |
- __attribute__nonnull__(2)
|
| 100 |
- __attribute__nonnull__(3);
|
| 101 |
+ __attribute__nonnull__(2);
|
| 102 |
|
| 103 |
PERL_CALLCONV SV* Perl_mess_nocontext(const char* pat, ...)
|
| 104 |
__attribute__format__(__printf__,1,2)
|
| 105 |
@@ -678,9 +677,7 @@
|
| 106 |
|
| 107 |
PERL_CALLCONV HV* Perl_gv_stashsv(pTHX_ SV* sv, I32 flags);
|
| 108 |
PERL_CALLCONV void Perl_hv_clear(pTHX_ HV* tb);
|
| 109 |
-PERL_CALLCONV HV * Perl_hv_copy_hints_hv(pTHX_ HV *const ohv)
|
| 110 |
- __attribute__nonnull__(pTHX_1);
|
| 111 |
-
|
| 112 |
+PERL_CALLCONV HV * Perl_hv_copy_hints_hv(pTHX_ HV *const ohv);
|
| 113 |
PERL_CALLCONV void Perl_hv_delayfree_ent(pTHX_ HV* hv, HE* entry)
|
| 114 |
__attribute__nonnull__(pTHX_1);
|
| 115 |
|
| 116 |
@@ -1303,11 +1300,9 @@
|
| 117 |
__attribute__nonnull__(pTHX_1);
|
| 118 |
|
| 119 |
PERL_CALLCONV void Perl_sortsv(pTHX_ SV** array, size_t num_elts, SVCOMPARE_t cmp)
|
| 120 |
- __attribute__nonnull__(pTHX_1)
|
| 121 |
__attribute__nonnull__(pTHX_3);
|
| 122 |
|
| 123 |
PERL_CALLCONV void Perl_sortsv_flags(pTHX_ SV** array, size_t num_elts, SVCOMPARE_t cmp, U32 flags)
|
| 124 |
- __attribute__nonnull__(pTHX_1)
|
| 125 |
__attribute__nonnull__(pTHX_3);
|
| 126 |
|
| 127 |
PERL_CALLCONV int Perl_mg_clear(pTHX_ SV* sv)
|
| 128 |
@@ -2079,7 +2074,9 @@
|
| 129 |
PERL_CALLCONV void Perl_save_mortalizesv(pTHX_ SV* sv)
|
| 130 |
__attribute__nonnull__(pTHX_1);
|
| 131 |
|
| 132 |
-PERL_CALLCONV void Perl_save_nogv(pTHX_ GV* gv);
|
| 133 |
+PERL_CALLCONV void Perl_save_nogv(pTHX_ GV* gv)
|
| 134 |
+ __attribute__nonnull__(pTHX_1);
|
| 135 |
+
|
| 136 |
PERL_CALLCONV void Perl_save_op(pTHX);
|
| 137 |
PERL_CALLCONV SV* Perl_save_scalar(pTHX_ GV* gv)
|
| 138 |
__attribute__nonnull__(pTHX_1);
|
| 139 |
@@ -2263,14 +2260,8 @@
|
| 140 |
PERL_CALLCONV void Perl_sv_clear(pTHX_ SV* sv)
|
| 141 |
__attribute__nonnull__(pTHX_1);
|
| 142 |
|
| 143 |
-PERL_CALLCONV I32 Perl_sv_cmp(pTHX_ SV* sv1, SV* sv2)
|
| 144 |
- __attribute__nonnull__(pTHX_1)
|
| 145 |
- __attribute__nonnull__(pTHX_2);
|
| 146 |
-
|
| 147 |
-PERL_CALLCONV I32 Perl_sv_cmp_locale(pTHX_ SV* sv1, SV* sv2)
|
| 148 |
- __attribute__nonnull__(pTHX_1)
|
| 149 |
- __attribute__nonnull__(pTHX_2);
|
| 150 |
-
|
| 151 |
+PERL_CALLCONV I32 Perl_sv_cmp(pTHX_ SV* sv1, SV* sv2);
|
| 152 |
+PERL_CALLCONV I32 Perl_sv_cmp_locale(pTHX_ SV* sv1, SV* sv2);
|
| 153 |
#if defined(USE_LOCALE_COLLATE)
|
| 154 |
PERL_CALLCONV char* Perl_sv_collxfrm(pTHX_ SV* sv, STRLEN* nxp)
|
| 155 |
__attribute__nonnull__(pTHX_1)
|
| 156 |
@@ -2936,8 +2927,7 @@
|
| 157 |
|
| 158 |
PERL_CALLCONV void* Perl_ptr_table_fetch(pTHX_ PTR_TBL_t *tbl, const void *sv)
|
| 159 |
__attribute__warn_unused_result__
|
| 160 |
- __attribute__nonnull__(pTHX_1)
|
| 161 |
- __attribute__nonnull__(pTHX_2);
|
| 162 |
+ __attribute__nonnull__(pTHX_1);
|
| 163 |
|
| 164 |
PERL_CALLCONV void Perl_ptr_table_store(pTHX_ PTR_TBL_t *tbl, const void *oldsv, void *newsv)
|
| 165 |
__attribute__nonnull__(pTHX_1)
|
| 166 |
@@ -3625,7 +3615,6 @@
|
| 167 |
__attribute__nonnull__(pTHX_2);
|
| 168 |
|
| 169 |
STATIC void S_qsortsvu(pTHX_ SV** array, size_t num_elts, SVCOMPARE_t compare)
|
| 170 |
- __attribute__nonnull__(pTHX_1)
|
| 171 |
__attribute__nonnull__(pTHX_3);
|
| 172 |
|
| 173 |
#endif
|
| 174 |
@@ -4245,9 +4234,7 @@
|
| 175 |
PERL_CALLCONV int Perl_PerlIO_flush(pTHX_ PerlIO *f);
|
| 176 |
PERL_CALLCONV void Perl_PerlIO_clearerr(pTHX_ PerlIO *f);
|
| 177 |
PERL_CALLCONV void Perl_PerlIO_set_cnt(pTHX_ PerlIO *f, int cnt);
|
| 178 |
-PERL_CALLCONV void Perl_PerlIO_set_ptrcnt(pTHX_ PerlIO *f, STDCHAR *ptr, int cnt)
|
| 179 |
- __attribute__nonnull__(pTHX_2);
|
| 180 |
-
|
| 181 |
+PERL_CALLCONV void Perl_PerlIO_set_ptrcnt(pTHX_ PerlIO *f, STDCHAR *ptr, int cnt);
|
| 182 |
PERL_CALLCONV void Perl_PerlIO_setlinebuf(pTHX_ PerlIO *f);
|
| 183 |
PERL_CALLCONV SSize_t Perl_PerlIO_read(pTHX_ PerlIO *f, void *buf, Size_t count)
|
| 184 |
__attribute__nonnull__(pTHX_2);
|
Parent Directory
| 
Revision Log