remove unused settruelength

ben-schwen · ben-schwen · commit 05068791c5f0 · 2024-12-05T23:56:28.000+01:00
diff --git a/src/assign.c b/src/assign.c
@@ -320,12 +320,6 @@ SEXP truelength(SEXP x) {
   return ScalarInteger(isNull(x) ? 0 : TRUELENGTH(x));
 }
 
-SEXP settruelength(SEXP x, SEXP n) {
-  // currently just for first/last and dogroups.c; see comments at the end of last.R
-  SET_TRUELENGTH(x, INTEGER(n)[0]);
-  return R_NilValue;
-}
-
 SEXP selfrefokwrapper(SEXP x, SEXP verbose) {
   return ScalarInteger(_selfrefok(x,FALSE,LOGICAL(verbose)[0]));
 }
diff --git a/src/data.table.h b/src/data.table.h
@@ -291,7 +291,6 @@ SEXP setdt_nrows(SEXP);
 SEXP alloccolwrapper(SEXP, SEXP, SEXP);
 SEXP selfrefokwrapper(SEXP, SEXP);
 SEXP truelength(SEXP);
-SEXP settruelength(SEXP, SEXP);
 SEXP setcharvec(SEXP, SEXP, SEXP);
 SEXP chmatch_R(SEXP, SEXP, SEXP);
 SEXP chmatchdup_R(SEXP, SEXP, SEXP);
diff --git a/src/init.c b/src/init.c
@@ -62,7 +62,6 @@ R_CallMethodDef callMethods[] = {
 {"Calloccolwrapper", (DL_FUNC) &alloccolwrapper, -1},
 {"Cselfrefokwrapper", (DL_FUNC) &selfrefokwrapper, -1},
 {"Ctruelength", (DL_FUNC) &truelength, -1},
-{"Csettruelength", (DL_FUNC) &settruelength, -1},
 {"Csetcharvec", (DL_FUNC) &setcharvec, -1},
 {"Csetcolorder", (DL_FUNC) &setcolorder, -1},
 {"Cchmatch", (DL_FUNC) &chmatch_R, -1},

Original file line number	Diff line number	Diff line change
`@@ -320,12 +320,6 @@ SEXP truelength(SEXP x) {`
`320`	`320`	`return ScalarInteger(isNull(x) ? 0 : TRUELENGTH(x));`
`321`	`321`	`}`
`322`	`322`
`323`		`-SEXP settruelength(SEXP x, SEXP n) {`
`324`		`- // currently just for first/last and dogroups.c; see comments at the end of last.R`
`325`		`- SET_TRUELENGTH(x, INTEGER(n)[0]);`
`326`		`- return R_NilValue;`
`327`		`-}`
`328`		`-`
`329`	`323`	`SEXP selfrefokwrapper(SEXP x, SEXP verbose) {`
`330`	`324`	`return ScalarInteger(_selfrefok(x,FALSE,LOGICAL(verbose)[0]));`
`331`	`325`	`}`