OSDN Git Service

Change default compile option to -g -O2.
[nkf/nkf.git] / NKF.mod / NKF.xs
index 626b634..5b1c9c7 100644 (file)
@@ -95,7 +95,10 @@ nkf_putchar_grow(unsigned int c)
 
 #define PERL_XS 1
 #include "../utf8tbl.c"
+#undef SP
 #include "../nkf.c"
+#undef SP
+#define SP sp /* perl's CORE/pp.h */
 
 /* package defenition  */
 
@@ -134,9 +137,6 @@ nkf(...)
     data = SvPV(ST(argc),i_len);
     input_ctr = 0;
 
-    if(x0201_f == WISH_TRUE)
-         x0201_f = ((!iso2022jp_f)? TRUE : NO_X0201);
-
     /* allocate the result buffer */
 
     /* During conversion, stirngs length may grow. This is the unit */
@@ -178,9 +178,6 @@ nkf_continue(...)
     data = SvPV(ST(0),i_len);
     input_ctr = 0;
 
-    if(x0201_f == WISH_TRUE)
-         x0201_f = ((!iso2022jp_f)? TRUE : NO_X0201);
-
     /* allocate the result buffer */
 
     /* During conversion, stirngs length may grow. This is the unit */