adapt kick-in threshold

ben-schwen · ben-schwen · commit e5fd0f7c0d57 · 2025-12-07T22:35:20.000+01:00
diff --git a/src/chmatch.c b/src/chmatch.c
@@ -56,7 +56,7 @@ static SEXP chmatchMain(SEXP x, SEXP table, int nomatch, bool chin, bool chmatch
   }
   // else xlen>1; nprotect is const above since no more R allocations should occur after this point
   // When table >> x, hash x and scan table // ToDo tune the kick-in factor
-  if (!chmatchdup && tablelen > 4 * xlen) {
+  if (!chmatchdup && tablelen > 2 * xlen) {
     hashtab *marks = hash_create(xlen);
     int nuniq = 0;
     for (int i = 0; i < xlen; ++i) {

Original file line number	Diff line number	Diff line change
`@@ -56,7 +56,7 @@ static SEXP chmatchMain(SEXP x, SEXP table, int nomatch, bool chin, bool chmatch`
`56`	`56`	`}`
`57`	`57`	`// else xlen>1; nprotect is const above since no more R allocations should occur after this point`
`58`	`58`	`// When table >> x, hash x and scan table // ToDo tune the kick-in factor`
`59`		`- if (!chmatchdup && tablelen > 4 * xlen) {`
	`59`	`+ if (!chmatchdup && tablelen > 2 * xlen) {`
`60`	`60`	`hashtab *marks = hash_create(xlen);`
`61`	`61`	`int nuniq = 0;`
`62`	`62`	`for (int i = 0; i < xlen; ++i) {`