RC13; set integers faster

Author: shikokuchuo

src/aio.c

@@ -137,15 +137,15 @@ static void haio_finalizer(SEXP xptr) {
 
 static SEXP mk_error_saio(const int xc, SEXP env) {
 
-  SET_INTEGER_ELT(nano_error, 0, xc);
+  INTEGER(nano_error)[0] = xc;
   Rf_defineVar(nano_ResultSymbol, nano_error, ENCLOS(env));
   return nano_error;
 
 }
 
 static SEXP mk_error_raio(const int xc, SEXP env) {
 
-  SET_INTEGER_ELT(nano_error, 0, xc);
+  INTEGER(nano_error)[0] = xc;
   Rf_defineVar(nano_RawSymbol, nano_error, ENCLOS(env));
   Rf_defineVar(nano_DataSymbol, nano_error, ENCLOS(env));
   return nano_error;
@@ -154,7 +154,7 @@ static SEXP mk_error_raio(const int xc, SEXP env) {
 
 static SEXP mk_error_haio(const int xc, SEXP env) {
 
-  SET_INTEGER_ELT(nano_error, 0, xc);
+  INTEGER(nano_error)[0] = xc;
   Rf_defineVar(nano_StatusSymbol, nano_error, ENCLOS(env));
   Rf_defineVar(nano_IdSymbol, nano_error, ENCLOS(env));
   Rf_defineVar(nano_RawSymbol, nano_error, ENCLOS(env));
@@ -166,7 +166,7 @@ static SEXP mk_error_haio(const int xc, SEXP env) {
 static SEXP mk_error_data(const int xc) {
 
   const char *names[] = {"data", ""};
-  SET_INTEGER_ELT(nano_error, 0, xc);
+  INTEGER(nano_error)[0] = xc;
   SEXP out = Rf_mkNamed(VECSXP, names);
   SET_VECTOR_ELT(out, 0, nano_error);
   return out;
@@ -176,7 +176,7 @@ static SEXP mk_error_data(const int xc) {
 static SEXP mk_error_result(const int xc) {
 
   const char *names[] = {"result", ""};
-  SET_INTEGER_ELT(nano_error, 0, xc);
+  INTEGER(nano_error)[0] = xc;
   SEXP out = Rf_mkNamed(VECSXP, names);
   SET_VECTOR_ELT(out, 0, nano_error);
   return out;

src/core.c

@@ -23,15 +23,15 @@
 
 SEXP mk_error(const int xc) {
 
-  SET_INTEGER_ELT(nano_error, 0, xc);
+  INTEGER(nano_error)[0] = xc;
   return nano_error;
 
 }
 
 SEXP mk_error_recv(const int xc) {
 
   const char *names[] = {"raw", "data", ""};
-  SET_INTEGER_ELT(nano_error, 0, xc);
+  INTEGER(nano_error)[0] = xc;
   SEXP out = Rf_mkNamed(VECSXP, names);
   SET_VECTOR_ELT(out, 0, nano_error);
   SET_VECTOR_ELT(out, 1, nano_error);
@@ -42,7 +42,7 @@ SEXP mk_error_recv(const int xc) {
 SEXP mk_error_ncurl(const int xc) {
 
   const char *names[] = {"status", "headers", "raw", "data", ""};
-  SET_INTEGER_ELT(nano_error, 0, xc);
+  INTEGER(nano_error)[0] = xc;
   SEXP out = Rf_mkNamed(VECSXP, names);
   SET_VECTOR_ELT(out, 0, nano_error);
   SET_VECTOR_ELT(out, 1, nano_error);