wip

juliac/exe_examples/broadcasting.jl

@@ -1,16 +1,16 @@
 #!/usr/bin/env -S julia --project=@scriptdir
 
 module Main2
-using LinearAlgebra
+#using LinearAlgebra
 
 Base.@ccallable function main()::Cint
-    println(Core.stdout, "Hello, world!")
-    A = rand(10, 10)
-    L = sin.(A)
+    #println(Core.stdout, "Hello, world!")
+    #A = rand(10, 10)
+    #L = sin.(A)
     B = rand(10)
     L2 = sin.(B)
-    ccall(:jl_, Cvoid, (Any,), L)
-    ccall(:jl_, Cvoid, (Any,), L2)
+    #ccall(:jl_, Cvoid, (Any,), L)
+    #ccall(:jl_, Cvoid, (Any,), L2)
     return 0
 end
 

juliac/exe_examples/simple_lu.jl

@@ -4,7 +4,7 @@ module Main2
 using LinearAlgebra
 
 Base.@ccallable function main()::Cint
-    println(Core.stdout, "Hello, world!")
+#    println(Core.stdout, "Hello, world!")
     A = rand(10, 10)
     L = lu(A)
     ccall(:jl_, Cvoid, (Any,), L)

juliac/exe_examples/simple_ode.jl

@@ -1,10 +1,14 @@
 #!/usr/bin/env -S julia --project=@scriptdir
 
 module Main2
-using OrdinaryDiffEq
 using OpenBLAS_jll
 using LinearAlgebra
-using PrecompileTools
+using OrdinaryDiffEq
+#using PrecompileTools
+
+#OpenBLAS_jll.__init__()
+#LinearAlgebra.libblastrampoline_jll.__init__()
+#LinearAlgebra.__init__()
 
 f(u,p,t) = 1.01*u
 const u0=1/2
@@ -16,10 +20,10 @@ Base.@ccallable function main() :: Cvoid
     for i in eachindex(sol)
         ccall(:printf, Int32, (Ptr{UInt8},Float64...), "value %lf \n", sol[i])
     end
-    take_heap_snapshot()
+#    take_heap_snapshot()
     return nothing
 end
-
+#=
 @setup_workload begin
     # Putting some things in `@setup_workload` instead of `@compile_workload` can reduce the size of the
     # precompile file and potentially make loading faster.
@@ -44,4 +48,5 @@ precompile(join , (Base.GenericIOBuffer{Memory{UInt8}}, Array{String, 1}, Char))
 precompile(Base.showerror_nostdio, (Core.MissingCodeError, String))
 precompile(Base.VersionNumber, (UInt32, UInt32, UInt32, Tuple{}, Tuple{}))
 precompile(! ,(Bool,))
-end
+=#
+end

stdlib/LinearAlgebra/src/lbt.jl

@@ -17,7 +17,7 @@ end
 macro get_warn(map, key)
     return quote
         if !haskey($(esc(map)), $(esc(key)))
-            @warn(string("[LBT] Unknown key into ", $(string(map)), ": ", $(esc(key)), ", defaulting to :unknown"))
+            #@warn(string("[LBT] Unknown key into ", $(string(map)), ": ", $(esc(key)), ", defaulting to :unknown"))
             # All the unknown values share a common value: `-1`
             $(esc(map))[$(esc(LBT_INTERFACE_UNKNOWN))]
         else
@@ -132,7 +132,7 @@ struct LBTConfig
             if str_ptr != C_NULL
                 push!(exported_symbols, unsafe_string(str_ptr))
             else
-                @error("NULL string in lbt_config.exported_symbols[$(sym_idx)]")
+                error("NULL string in lbt_config.exported_symbols[$(sym_idx)]")
             end
         end