Skip to content

Commit

Permalink
.dev-only: datatable to data_table in cc.R follow up to #4442
Browse files Browse the repository at this point in the history
  • Loading branch information
mattdowle committed Aug 5, 2021
1 parent 2bbd07d commit 0820aab
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions .dev/cc.R
Original file line number Diff line number Diff line change
Expand Up @@ -41,7 +41,7 @@ cc = function(test=FALSE, clean=FALSE, debug=FALSE, omp=!debug, cc_dir, path=Sys
stopifnot(is.character(CC), length(CC)==1L, !is.na(CC), nzchar(CC))
gc()

xx = try(getDLLRegisteredRoutines("datatable",TRUE), silent=TRUE)
xx = try(getDLLRegisteredRoutines("data_table",TRUE), silent=TRUE)
if (!inherits(xx, "try-error")) {
remove(list=sapply(xx$.Call,'[[',"name"), pos=.GlobalEnv)
remove(list=sapply(xx$.External,'[[',"name"), pos=.GlobalEnv)
Expand Down Expand Up @@ -74,7 +74,7 @@ cc = function(test=FALSE, clean=FALSE, debug=FALSE, omp=!debug, cc_dir, path=Sys
}
dyn.load("data_table.so")
setwd(old)
xx = getDLLRegisteredRoutines("datatable",TRUE)
xx = getDLLRegisteredRoutines("data_table",TRUE)
for (i in seq_along(xx$.Call))
assign(xx$.Call[[i]]$name, xx$.Call[[i]]$address, envir=.GlobalEnv)
for (i in seq_along(xx$.External))
Expand Down

0 comments on commit 0820aab

Please sign in to comment.