函数代码中的R字节码引用

Question

在检查函数的R代码时，它会列出一个字节码(例如，对于glm)：。我到处寻找关于"0x7f8f3c954540“到底是什么的简单解释。我知道字节码是什么，但我假设"0x7f8f3c954540“实际上不是glm函数的整个代码的高度压缩的机器可处理版本。它是CRC、指向它在内存中的位置的链接，还是前几位？

Answer 1

如果您查看R源代码中print.c中的代码，您可以看到这一行打印为

Rprintf("<bytecode: %p>\n", BODY(s));

这意味着它将把指针地址打印到函数体的编译版本。

因此，相同的函数体代码可能指向两个不同的地址。观察

f1<-function(a) {
    sum(runif(a) * 1/(1:a))
}
f2 <- f1
f1 <- compiler:::cmpfun(f1)
f2 <- compiler:::cmpfun(f2)
f3 <- f2

f1
# function(a) {
#       sum(runif(a) * 1/(1:a))
#    }
#<bytecode: 0x111cbb358>

f2
# function(a) {
#       sum(runif(a) * 1/(1:a))
#     }
# <bytecode: 0x111bd7800>

f3
#  function(a) {
#       sum(runif(a) * 1/(1:a))
#    }
#<bytecode: 0x111bd7800>

您可以看到，尽管f1和f2具有相同的主体代码，但它们具有不同的字节码值。如果您想查看这两个函数是否相同，可以使用

identical(f1,f2)
# [1] TRUE
identical(f2,f3)
# [1] TRUE

但请注意，默认情况下会忽略函数的编译部分。如果您想查看它们是否也指向相同的字节代码

identical(f1,f2, ignore.bytecode=FALSE)
# [1] FALSE
identical(f2,f3, ignore.bytecode=FALSE)
# [1] TRUE

因此字节码的值不一定会告诉你任何关于代码本身的信息。