The R Project SVN R

Rev

Rev 86224 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 86224 Rev 86233
Line 54... Line 54...
54 
oldjit <- enableJIT(0)
 54 
oldjit <- enableJIT(0)
55 
 
 55 
 
56 
l <- function() 1
 56 
l <- function() 1
57 
body(l) <- code
 57 
body(l) <- code
58 
 
 58 
 
59 
if (FALSE) ## disable temporarily
 - 
 
60 
for(jit in 0:2) {
 59 
for(jit in 0:2) {
61 
    enableJIT(jit)
 60 
    enableJIT(jit)
62 
    for (opt in 0:3) {
 61 
    for (opt in 0:3) {
63 
        if (opt >=2 || jit <=2) {
 62 
        if (opt >=2 || jit <=2) {
64 
            setCompilerOptions(optimize=opt)
 63 
            setCompilerOptions(optimize=opt)