@@ -54,13 +54,13 @@ function set_aux_root(n :: Int, x :: String)
5454    return  ccall (:set_aux_root , Nothing, (UInt, String), n, x)
5555end 
5656
57- function  internal_obj_scan (p ::  Any )
58-     if  ccall (:internal_obj_scan , Cint, (Any,), p) ==  0 
59-         global  internal_obj_scan_failures +=  1 
60-     end 
61- end 
57+ #   function internal_obj_scan(p :: Any)
58+ #       if ccall(:internal_obj_scan, Cint, (Any,), p) == 0
59+ #           global internal_obj_scan_failures += 1
60+ #       end
61+ #   end
6262
63- global  internal_obj_scan_failures =  0 
63+ #   global internal_obj_scan_failures = 0
6464
6565for  i in  0 : 1000 
6666    set_aux_root (i, string (i))
@@ -70,12 +70,12 @@ function test()
7070    local  stack =  make ()
7171    for  i in  1 : 100000 
7272        push (stack, string (i, base= 2 ))
73-         internal_obj_scan (top (stack))
73+         #   internal_obj_scan(top(stack))
7474    end 
7575    for  i in  1 : 1000 
7676        local  stack2 =  make ()
77-         internal_obj_scan (stack2)
78-         internal_obj_scan (blob (stack2))
77+         #   internal_obj_scan(stack2)
78+         #   internal_obj_scan(blob(stack2))
7979        while  ! empty (stack)
8080            push (stack2, pop (stack))
8181        end 
9898print (gc_counter_full (), "  full collections.\n " 
9999print (gc_counter_inc (), "  partial collections.\n " 
100100print (num_obj_sweeps (), "  object sweeps.\n " 
101- print (internal_obj_scan_failures, "  internal object scan failures.\n " 
101+ #   print(internal_obj_scan_failures, " internal object scan failures.\n")
102102print (corrupted_roots, "  corrupted auxiliary roots.\n " 
0 commit comments