Fixed lab 5

julia/dowhile.jl

@@ -2,14 +2,12 @@ macro doWhile(block, cond)
   println("__source__ ", __source__)
   println("cond ", cond)
   println("block ", block)
-  res = quote
-    while true
-      $(esc(block))
-      if $(esc(cond))
-        break
-      end
+  res = esc(quote
+    $block
+    while $cond
+      $block
     end
-  end
-  println(res) # Should not print any lines referencing dowhile.jl
+  end)
+  println(res.args) # Should not print any lines referencing dowhile.jl
   res
 end

julia/run.jl

@@ -41,6 +41,6 @@ function testDoWhile()
     @assert a < 18
     a += 1
     println(a)
-  end a==100
+  end a < 100
 end
 testDoWhile()

profiling/julia-1.0.4/share/julia/base/gcutils.jl.19966.cov

+        - # This file is a part of Julia. License is MIT: https://julialang.org/license
+        - 
+        - ==(w::WeakRef, v::WeakRef) = isequal(w.value, v.value)
+        - ==(w::WeakRef, v) = isequal(w.value, v)
+        - ==(w, v::WeakRef) = isequal(w, v.value)
+        - 
+        - """
+        -     finalizer(f, x)
+        - 
+        - Register a function `f(x)` to be called when there are no program-accessible references to
+        - `x`, and return `x`. The type of `x` must be a `mutable struct`, otherwise the behavior of
+        - this function is unpredictable.
+        - """
+        - function finalizer(@nospecialize(f), @nospecialize(o))
+        -     if isimmutable(o)
+        -         error("objects of type ", typeof(o), " cannot be finalized")
+        -     end
+        -     ccall(:jl_gc_add_finalizer_th, Cvoid, (Ptr{Cvoid}, Any, Any),
+        -           Core.getptls(), o, f)
+        -     return o
+        - end
+        - 
+        - function finalizer(f::Ptr{Cvoid}, o::T) where T
+        -     @_inline_meta
+        -     if isimmutable(T)
+        -         error("objects of type ", T, " cannot be finalized")
+        -     end
+        -     ccall(:jl_gc_add_ptr_finalizer, Cvoid, (Ptr{Cvoid}, Any, Ptr{Cvoid}),
+        -           Core.getptls(), o, f)
+        -     return o
+        - end
+        - 
+        - """
+        -     finalize(x)
+        - 
+        - Immediately run finalizers registered for object `x`.
+        - """
+        - finalize(@nospecialize(o)) = ccall(:jl_finalize_th, Cvoid, (Ptr{Cvoid}, Any,),
+        -                                    Core.getptls(), o)
+        - 
+        - """
+        -     Base.GC
+        - 
+        - Module with garbage collection utilities.
+        - """
+        - module GC
+        - 
+        - """
+        -     GC.gc()
+        - 
+        - Perform garbage collection.
+        - 
+        - !!! warning
+        -     Excessive use will likely lead to poor performance.
+        - """
+        - gc(full::Bool=true) = ccall(:jl_gc_collect, Cvoid, (Int32,), full)
+        - 
+        - """
+        -     GC.enable(on::Bool)
+        - 
+        - Control whether garbage collection is enabled using a boolean argument (`true` for enabled,
+        - `false` for disabled). Return previous GC state.
+        - 
+        - !!! warning
+        -     Disabling garbage collection should be used only with caution, as it can cause memory
+        -     use to grow without bound.
+        - """
+        - enable(on::Bool) = ccall(:jl_gc_enable, Int32, (Int32,), on) != 0
+        - 
+        - """
+        -     GC.@preserve x1 x2 ... xn expr
+        - 
+        - Temporarily protect the given objects from being garbage collected, even if they would
+        - otherwise be unreferenced.
+        - 
+        - The last argument is the expression during which the object(s) will be preserved.
+        - The previous arguments are the objects to preserve.
+        - """
+        - macro preserve(args...)
+        -     syms = args[1:end-1]
+        -     for x in syms
+        -         isa(x, Symbol) || error("Preserved variable must be a symbol")
+        -     end
+        -     s, r = gensym(), gensym()
+        -     esc(quote
+     2824         $s = $(Expr(:gc_preserve_begin, syms...))
+     2824         $r = $(args[end])
+     2824         $(Expr(:gc_preserve_end, s))
+        -         $r
+        -     end)
+        - end
+        - 
+        - end # module GC
+        - 

profiling/julia-1.0.4/share/julia/base/gcutils.jl.20032.cov

+        - # This file is a part of Julia. License is MIT: https://julialang.org/license
+        - 
+        - ==(w::WeakRef, v::WeakRef) = isequal(w.value, v.value)
+        - ==(w::WeakRef, v) = isequal(w.value, v)
+        - ==(w, v::WeakRef) = isequal(w, v.value)
+        - 
+        - """
+        -     finalizer(f, x)
+        - 
+        - Register a function `f(x)` to be called when there are no program-accessible references to
+        - `x`, and return `x`. The type of `x` must be a `mutable struct`, otherwise the behavior of
+        - this function is unpredictable.
+        - """
+        - function finalizer(@nospecialize(f), @nospecialize(o))
+        -     if isimmutable(o)
+        -         error("objects of type ", typeof(o), " cannot be finalized")
+        -     end
+        -     ccall(:jl_gc_add_finalizer_th, Cvoid, (Ptr{Cvoid}, Any, Any),
+        -           Core.getptls(), o, f)
+        -     return o
+        - end
+        - 
+        - function finalizer(f::Ptr{Cvoid}, o::T) where T
+        -     @_inline_meta
+        -     if isimmutable(T)
+        -         error("objects of type ", T, " cannot be finalized")
+        -     end
+        -     ccall(:jl_gc_add_ptr_finalizer, Cvoid, (Ptr{Cvoid}, Any, Ptr{Cvoid}),
+        -           Core.getptls(), o, f)
+        -     return o
+        - end
+        - 
+        - """
+        -     finalize(x)
+        - 
+        - Immediately run finalizers registered for object `x`.
+        - """
+        - finalize(@nospecialize(o)) = ccall(:jl_finalize_th, Cvoid, (Ptr{Cvoid}, Any,),
+        -                                    Core.getptls(), o)
+        - 
+        - """
+        -     Base.GC
+        - 
+        - Module with garbage collection utilities.
+        - """
+        - module GC
+        - 
+        - """
+        -     GC.gc()
+        - 
+        - Perform garbage collection.
+        - 
+        - !!! warning
+        -     Excessive use will likely lead to poor performance.
+        - """
+        - gc(full::Bool=true) = ccall(:jl_gc_collect, Cvoid, (Int32,), full)
+        - 
+        - """
+        -     GC.enable(on::Bool)
+        - 
+        - Control whether garbage collection is enabled using a boolean argument (`true` for enabled,
+        - `false` for disabled). Return previous GC state.
+        - 
+        - !!! warning
+        -     Disabling garbage collection should be used only with caution, as it can cause memory
+        -     use to grow without bound.
+        - """
+        - enable(on::Bool) = ccall(:jl_gc_enable, Int32, (Int32,), on) != 0
+        - 
+        - """
+        -     GC.@preserve x1 x2 ... xn expr
+        - 
+        - Temporarily protect the given objects from being garbage collected, even if they would
+        - otherwise be unreferenced.
+        - 
+        - The last argument is the expression during which the object(s) will be preserved.
+        - The previous arguments are the objects to preserve.
+        - """
+        - macro preserve(args...)
+        -     syms = args[1:end-1]
+        -     for x in syms
+        -         isa(x, Symbol) || error("Preserved variable must be a symbol")
+        -     end
+        -     s, r = gensym(), gensym()
+        -     esc(quote
+        2         $s = $(Expr(:gc_preserve_begin, syms...))
+        2         $r = $(args[end])
+        2         $(Expr(:gc_preserve_end, s))
+        -         $r
+        -     end)
+        - end
+        - 
+        - end # module GC
+        - 

profiling/test.jl

@@ -15,18 +15,17 @@ end
 
 f()
 
-
-@time f()
-@profile f()
-@allocated f()
-x = @benchmark f()
+#@time f()
+#@profile f()
+#@allocated f()
+#x = @benchmark f()
 println()
-println(x)
-Profile.print();
+#println(x)
+#Profile.print();
 
 
 
-#./julia-1.0.4/bin/julia --track-allocation=user
+#./julia-1.0.4/bin/julia --track-allocation=user --code-coverage=user
 #include("test.jl")
 #ctrl d
 #emacs test.jl.mem

profiling/test.jl.19966.cov

+        - using BenchmarkTools
+        - using Random
+        - using Profile
+        - 
+        - 
+        - function f()
+     2818   lst = rand(50000)
+     2818   for i in lst
+140900000     if i > 0.99
+        -       s = "List entry $(i)\r" # The \r makes it so the terminal isn't filled
+142307721       print(s)
+        -     end
+        -   end
+        - end
+        - 
+        - f()
+        - 
+        - @time f()
+        - @profile f()
+        - @allocated f()
+        - x = @benchmark f()
+        - println()
+        - println(x)
+        - Profile.print();
+        - 
+        - 
+        - 
+        - #./julia-1.0.4/bin/julia --track-allocation=user --code-coverage=user
+        - #include("test.jl")
+        - #ctrl d
+        - #emacs test.jl.mem
+        - 

profiling/test.jl.20032.cov

+        - using BenchmarkTools
+        - using Random
+        - using Profile
+        - 
+        - 
+        - function f()
+        1   lst = rand(50000)
+        1   for i in lst
+    50000     if i > 0.99
+        -       s = "List entry $(i)\r" # The \r makes it so the terminal isn't filled
+    50486       print(s)
+        -     end
+        -   end
+        - end
+        - 
+        - f()
+        - 
+        - #@time f()
+        - #@profile f()
+        - #@allocated f()
+        - #x = @benchmark f()
+        - println()
+        - #println(x)
+        - #Profile.print();
+        - 
+        - 
+        - 
+        - #./julia-1.0.4/bin/julia --track-allocation=user --code-coverage=user
+        - #include("test.jl")
+        - #ctrl d
+        - #emacs test.jl.mem
+        -