object.size <- function(x) .Internal(object.size(x))