reverted SEXP stuff

microsoft · Mar 24, 2020 · 527f755 · 527f755
1 parent 836943d
commit 527f755
Show file tree

Hide file tree

Showing 3 changed files with 418 additions and 418 deletions.
diff --git a/include/LightGBM/R_object_helper.h b/include/LightGBM/R_object_helper.h
@@ -151,15 +151,15 @@ typedef union { VECTOR_SER s; double align; } SEXPREC_ALIGN;
 
   #define R_ADDR(x)  (reinterpret_cast<int64_t*> DATAPTR(x))
 
-  inline void R_SET_PTR(SEXP x, void* ptr) {
+  inline void R_SET_PTR(LGBM_SE x, void* ptr) {
     if (ptr == nullptr) {
       R_ADDR(x)[0] = (int64_t)(NULL);
     } else {
       R_ADDR(x)[0] = (int64_t)(ptr);
     }
   }
 
-  inline void* R_GET_PTR(SEXP x) {
+  inline void* R_GET_PTR(LGBM_SE x) {
     if (R_IS_NULL(x)) {
       return nullptr;
     } else {
@@ -175,15 +175,15 @@ typedef union { VECTOR_SER s; double align; } SEXPREC_ALIGN;
 
   #define R_ADDR(x) (reinterpret_cast<int32_t*> DATAPTR(x))
 
-  inline void R_SET_PTR(SEXP x, void* ptr) {
+  inline void R_SET_PTR(LGBM_SE x, void* ptr) {
     if (ptr == nullptr) {
       R_ADDR(x)[0] = (int32_t)(NULL);
     } else {
       R_ADDR(x)[0] = (int32_t)(ptr);
     }
   }
 
-  inline void* R_GET_PTR(SEXP x) {
+  inline void* R_GET_PTR(LGBM_SE x) {
     if (R_IS_NULL(x)) {
       return nullptr;
     } else {