joes 2004/07/13 09:30:00
Modified: glue/perl/xsbuilder apreq_xs_tables.h
Log:
Use the 5.8 calling convention for sv_magic so we're completely consistent
with the sv_magic (PERL_MAGIC_vstring) call in sv.c:sv_setsv_flags.
Revision Changes Path
1.17 +1 -2 httpd-apreq-2/glue/perl/xsbuilder/apreq_xs_tables.h
Index: apreq_xs_tables.h
===================================================================
RCS file: /home/cvs/httpd-apreq-2/glue/perl/xsbuilder/apreq_xs_tables.h,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -r1.16 -r1.17
--- apreq_xs_tables.h 13 Jul 2004 15:59:35 -0000 1.16
+++ apreq_xs_tables.h 13 Jul 2004 16:30:00 -0000 1.17
@@ -186,8 +186,7 @@
struct apreq_xs_table_key_magic *info = apr_palloc(p,sizeof *info); \
info->obj = o; \
info->val = v; \
- sv_magic(sv, Nullsv, PERL_MAGIC_vstring, Nullch, -1); \
- SvMAGIC(sv)->mg_ptr = (char *)info; \
+ sv_magic(sv, Nullsv, PERL_MAGIC_vstring, (char *)info, -1); \
SvRMAGICAL_on(sv); \
} while (0)
