Changeset 7570 for lang/perl/Text-MeCab

Timestamp:

03/06/08 19:19:33 (5 years ago)

Author:

daisuke

Message:

use sv_setref_pv

Files:

• lang/perl/Text-MeCab/trunk/text-mecab.h (modified) (2 diffs)

lang/perl/Text-MeCab/trunk/text-mecab.h

@@ -12 +12 @@
 #define NEED_newRV_noinc
 #define NEED_sv_2pv_nolen
+#define NEED_sv_2pv_flags
 #include "ppport.h"
 #include <mecab.h>
@@ -23 +24 @@
 
 #define XS_STRUCT2OBJ(sv, class, obj) \
-    sv = newSViv(PTR2IV(obj));  \
-    sv = newRV_noinc(sv); \
-    sv_bless(sv, gv_stashpv(class, 1)); \
-    SvREADONLY_on(sv);
+        sv_setref_pv(sv, class, (void *) obj);
 
 typedef mecab_t      TextMeCab;