stas 2003/03/21 19:19:11
Modified: xs/APR/Util APR__Util.h
xs/maps apr_functions.map
xs/tables/current/Apache FunctionTable.pm
xs/tables/current/ModPerl FunctionTable.pm
. Changes
Log:
drop the glue code for apr_generate_random_bytes, since it's not
available on all platforms. (only if APR_HAS_RANDOM is defined)
Revision Changes Path
1.3 +0 -17 modperl-2.0/xs/APR/Util/APR__Util.h
Index: APR__Util.h
===================================================================
RCS file: /home/cvs/modperl-2.0/xs/APR/Util/APR__Util.h,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- APR__Util.h 24 May 2002 17:47:28 -0000 1.2
+++ APR__Util.h 22 Mar 2003 03:19:10 -0000 1.3
@@ -13,14 +13,6 @@
mpxs_sv_cur_set(sv, strlen(ptr)); /*XXX*/
}
-static MP_INLINE void mpxs_apr_generate_random_bytes(pTHX_ SV *sv, SV *arg)
-{
- int len = (int)SvIV(arg);
- mpxs_sv_grow(sv, len);
- (void)apr_generate_random_bytes(SvPVX(sv), len);
- mpxs_sv_cur_set(sv, len);
-}
-
static XS(MPXS_apr_strerror)
{
dXSARGS;
@@ -28,13 +20,4 @@
mpxs_usage_items_1("status_code");
mpxs_set_targ(mpxs_apr_strerror, ST(0));
-}
-
-static XS(MPXS_apr_generate_random_bytes)
-{
- dXSARGS;
-
- mpxs_usage_items_1("length");
-
- mpxs_set_targ(mpxs_apr_generate_random_bytes, ST(0));
}
1.48 +2 -1 modperl-2.0/xs/maps/apr_functions.map
Index: apr_functions.map
===================================================================
RCS file: /home/cvs/modperl-2.0/xs/maps/apr_functions.map,v
retrieving revision 1.47
retrieving revision 1.48
diff -u -r1.47 -r1.48
--- apr_functions.map 1 Jan 2003 23:22:19 -0000 1.47
+++ apr_functions.map 22 Mar 2003 03:19:10 -0000 1.48
@@ -450,7 +450,8 @@
-apr_snprintf
-apr_vformatter
-apr_vsnprintf
- apr_generate_random_bytes | MPXS_ | length
+# only available if APR_HAS_RANDOM
+-apr_generate_random_bytes
apr_strerror | MPXS_ | statcode
!MODULE=APR::General
1.41 +0 -14 modperl-2.0/xs/tables/current/Apache/FunctionTable.pm
Index: FunctionTable.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/xs/tables/current/Apache/FunctionTable.pm,v
retrieving revision 1.40
retrieving revision 1.41
diff -u -r1.40 -r1.41
--- FunctionTable.pm 28 Aug 2002 03:16:30 -0000 1.40
+++ FunctionTable.pm 22 Mar 2003 03:19:11 -0000 1.41
@@ -8258,20 +8258,6 @@
},
{
'return_type' => 'apr_status_t',
- 'name' => 'apr_generate_random_bytes',
- 'args' => [
- {
- 'type' => 'unsigned char *',
- 'name' => 'buf'
- },
- {
- 'type' => 'int',
- 'name' => 'length'
- }
- ]
- },
- {
- 'return_type' => 'apr_status_t',
'name' => 'apr_get_groupid',
'args' => [
{
1.109 +0 -22 modperl-2.0/xs/tables/current/ModPerl/FunctionTable.pm
Index: FunctionTable.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/xs/tables/current/ModPerl/FunctionTable.pm,v
retrieving revision 1.108
retrieving revision 1.109
diff -u -r1.108 -r1.109
--- FunctionTable.pm 4 Mar 2003 09:42:42 -0000 1.108
+++ FunctionTable.pm 22 Mar 2003 03:19:11 -0000 1.109
@@ -6157,28 +6157,6 @@
]
},
{
- 'return_type' => 'void',
- 'name' => 'mpxs_apr_generate_random_bytes',
- 'attr' => [
- 'static',
- '__inline__'
- ],
- 'args' => [
- {
- 'type' => 'PerlInterpreter *',
- 'name' => 'my_perl'
- },
- {
- 'type' => 'SV *',
- 'name' => 'sv'
- },
- {
- 'type' => 'SV *',
- 'name' => 'arg'
- }
- ]
- },
- {
'return_type' => 'apr_ipsubnet_t *',
'name' => 'mpxs_apr_ipsubnet_create',
'args' => [
1.153 +4 -1 modperl-2.0/Changes
Index: Changes
===================================================================
RCS file: /home/cvs/modperl-2.0/Changes,v
retrieving revision 1.152
retrieving revision 1.153
diff -u -r1.152 -r1.153
--- Changes 20 Mar 2003 00:04:54 -0000 1.152
+++ Changes 22 Mar 2003 03:19:11 -0000 1.153
@@ -1,4 +1,4 @@
-=head1 NAME
+cvs=head1 NAME
Changes - Apache mod_perl change logfile
@@ -9,6 +9,9 @@
=over 3
=item 1.99_09-dev
+
+drop the glue code for apr_generate_random_bytes, since it's not
+available on all platforms. [Stas]
Since non-threaded mpms don't use tipools in mips, don't create and
destroy them. [Stas]
