Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

IBMQJulia's test suite raises internal error #47687

Closed
aviatesk opened this issue Nov 24, 2022 · 3 comments
Closed

IBMQJulia's test suite raises internal error #47687

aviatesk opened this issue Nov 24, 2022 · 3 comments
Labels
compiler:optimizer Optimization passes (mostly in base/compiler/ssair/)

Comments

@aviatesk
Copy link
Sponsor Member

Internal error: encountered unexpected error in runtime:
AssertionError(msg="argextype only works on argument-position values")

It looks like the package generates code containing nested :call expression via Cassette.jl:

julia> src
27 1 ─       MbedTLS.seed!::Core.Const(MbedTLS.seed!)                                                                                                       │╻ seed!(::MbedTLS.CtrDrbg, ::MbedTLS.Entropy, ::Vector{UInt8})
   │   %2  = Core.getfield(_3, 2)::MbedTLS.CtrDrbg                                                                                                          ││
   │   %3  = Core.getfield(_3, 3)::MbedTLS.Entropy                                                                                                          ││
   │   %4  = Core.getfield(_3, 4)::Vector{UInt8}                                                                                                            ││
   │         nothing::Any                                                                                                                                   ││
   │         Cassette.overdub(_2, Base.setproperty!, %2, :entropy, %3)::MbedTLS.Entropy                                                                     ││
   │         nothing::Any                                                                                                                                   ││
28 │         Cassette.prehook(_2, MbedTLS.cglobal, Core.tuple(:mbedtls_entropy_func, MbedTLS.libmbedcrypto))::Any                                           │ 
   │   %9  = Cassette.overdub(_2, MbedTLS.cglobal, Core.tuple(:mbedtls_entropy_func, MbedTLS.libmbedcrypto))::Any                                           │ 
   │         Cassette.posthook(_2, %9, MbedTLS.cglobal, Core.tuple(:mbedtls_entropy_func, MbedTLS.libmbedcrypto))::Any                                      │ 
29 │         Cassette.prehook(_2, Core.apply_type, MbedTLS.Ptr, MbedTLS.Cvoid)::Any                                                                         │╻ macro expansion
   │   %12 = Cassette.overdub(_2, Core.apply_type, MbedTLS.Ptr, MbedTLS.Cvoid)::Core.Const(Ptr{Nothing})                                                    ││
   │         Cassette.posthook(_2, %12, Core.apply_type, MbedTLS.Ptr, MbedTLS.Cvoid)::Any                                                                   ││
   │         Cassette.prehook(_2, Base.getproperty, %2, :data)::Any                                                                                         ││
   │   %15 = Cassette.overdub(_2, Base.getproperty, %2, :data)::Ptr{Nothing}                                                                                ││
   │         Cassette.posthook(_2, %15, Base.getproperty, %2, :data)::Any                                                                                   ││
   │         Cassette.prehook(_2, Base.cconvert, %12, %15)::Any                                                                                             ││
   │   %18 = Cassette.overdub(_2, Base.cconvert, %12, %15)::Ptr{Nothing}                                                                                    ││
   │         Cassette.posthook(_2, %18, Base.cconvert, %12, %15)::Any                                                                                       ││
   │         Cassette.prehook(_2, Core.apply_type, MbedTLS.Ptr, MbedTLS.Cvoid)::Any                                                                         ││
   │   %21 = Cassette.overdub(_2, Core.apply_type, MbedTLS.Ptr, MbedTLS.Cvoid)::Core.Const(Ptr{Nothing})                                                    ││
   │         Cassette.posthook(_2, %21, Core.apply_type, MbedTLS.Ptr, MbedTLS.Cvoid)::Any                                                                   ││
   │         Cassette.prehook(_2, Base.cconvert, %21, %9)::Any                                                                                              ││
   │   %24 = Cassette.overdub(_2, Base.cconvert, %21, %9)::Any                                                                                              ││
   │         Cassette.posthook(_2, %24, Base.cconvert, %21, %9)::Any                                                                                        ││
   │         Cassette.prehook(_2, Core.apply_type, MbedTLS.Ptr, MbedTLS.Cvoid)::Any                                                                         ││
   │   %27 = Cassette.overdub(_2, Core.apply_type, MbedTLS.Ptr, MbedTLS.Cvoid)::Core.Const(Ptr{Nothing})                                                    ││
   │         Cassette.posthook(_2, %27, Core.apply_type, MbedTLS.Ptr, MbedTLS.Cvoid)::Any                                                                   ││
   │         Cassette.prehook(_2, Base.getproperty, %3, :data)::Any                                                                                         ││
   │   %30 = Cassette.overdub(_2, Base.getproperty, %3, :data)::Ptr{Nothing}                                                                                ││
   │         Cassette.posthook(_2, %30, Base.getproperty, %3, :data)::Any                                                                                   ││
   │         Cassette.prehook(_2, Base.cconvert, %27, %30)::Any                                                                                             ││
   │   %33 = Cassette.overdub(_2, Base.cconvert, %27, %30)::Ptr{Nothing}                                                                                    ││
   │         Cassette.posthook(_2, %33, Base.cconvert, %27, %30)::Any                                                                                       ││
   │         Cassette.prehook(_2, Core.apply_type, MbedTLS.Ptr, MbedTLS.Cvoid)::Any                                                                         ││
   │   %36 = Cassette.overdub(_2, Core.apply_type, MbedTLS.Ptr, MbedTLS.Cvoid)::Core.Const(Ptr{Nothing})                                                    ││
   │         Cassette.posthook(_2, %36, Core.apply_type, MbedTLS.Ptr, MbedTLS.Cvoid)::Any                                                                   ││
   │         Cassette.prehook(_2, Base.cconvert, %36, %4)::Any                                                                                              ││
   │   %39 = Cassette.overdub(_2, Base.cconvert, %36, %4)::Vector{UInt8}                                                                                    ││
   │         Cassette.posthook(_2, %39, Base.cconvert, %36, %4)::Any                                                                                        ││
   │   %41 = MbedTLS.Csize_t::Core.Const(UInt64)                                                                                                            ││
   │         Cassette.prehook(_2, MbedTLS.sizeof, %4)::Any                                                                                                  ││
   │   %43 = Cassette.overdub(_2, MbedTLS.sizeof, %4)::Int64                                                                                                ││
   │         Cassette.posthook(_2, %43, MbedTLS.sizeof, %4)::Any                                                                                            ││
   │         Cassette.prehook(_2, Base.cconvert, %41, %43)::Any                                                                                             ││
   │   %46 = Cassette.overdub(_2, Base.cconvert, %41, %43)::UInt64                                                                                          ││
   │         Cassette.posthook(_2, %46, Base.cconvert, %41, %43)::Any                                                                                       ││
   │         Cassette.prehook(_2, Core.apply_type, MbedTLS.Ptr, MbedTLS.Cvoid)::Any                                                                         ││
   │   %49 = Cassette.overdub(_2, Core.apply_type, MbedTLS.Ptr, MbedTLS.Cvoid)::Core.Const(Ptr{Nothing})                                                    ││
   │         Cassette.posthook(_2, %49, Core.apply_type, MbedTLS.Ptr, MbedTLS.Cvoid)::Any                                                                   ││
   │         Cassette.prehook(_2, Base.unsafe_convert, %49, %18)::Any                                                                                       ││
   │   %52 = Cassette.overdub(_2, Base.unsafe_convert, %49, %18)::Ptr{Nothing}                                                                              ││
   │         Cassette.posthook(_2, %52, Base.unsafe_convert, %49, %18)::Any                                                                                 ││
   │         Cassette.prehook(_2, Core.apply_type, MbedTLS.Ptr, MbedTLS.Cvoid)::Any                                                                         ││
   │   %55 = Cassette.overdub(_2, Core.apply_type, MbedTLS.Ptr, MbedTLS.Cvoid)::Core.Const(Ptr{Nothing})                                                    ││
   │         Cassette.posthook(_2, %55, Core.apply_type, MbedTLS.Ptr, MbedTLS.Cvoid)::Any                                                                   ││
   │         Cassette.prehook(_2, Base.unsafe_convert, %55, %24)::Any                                                                                       ││
   │   %58 = Cassette.overdub(_2, Base.unsafe_convert, %55, %24)::Any                                                                                       ││
   │         Cassette.posthook(_2, %58, Base.unsafe_convert, %55, %24)::Any                                                                                 ││
   │         Cassette.prehook(_2, Core.apply_type, MbedTLS.Ptr, MbedTLS.Cvoid)::Any                                                                         ││
   │   %61 = Cassette.overdub(_2, Core.apply_type, MbedTLS.Ptr, MbedTLS.Cvoid)::Core.Const(Ptr{Nothing})                                                    ││
   │         Cassette.posthook(_2, %61, Core.apply_type, MbedTLS.Ptr, MbedTLS.Cvoid)::Any                                                                   ││
   │         Cassette.prehook(_2, Base.unsafe_convert, %61, %33)::Any                                                                                       ││
   │   %64 = Cassette.overdub(_2, Base.unsafe_convert, %61, %33)::Ptr{Nothing}                                                                              ││
   │         Cassette.posthook(_2, %64, Base.unsafe_convert, %61, %33)::Any                                                                                 ││
   │         Cassette.prehook(_2, Core.apply_type, MbedTLS.Ptr, MbedTLS.Cvoid)::Any                                                                         ││
   │   %67 = Cassette.overdub(_2, Core.apply_type, MbedTLS.Ptr, MbedTLS.Cvoid)::Core.Const(Ptr{Nothing})                                                    ││
   │         Cassette.posthook(_2, %67, Core.apply_type, MbedTLS.Ptr, MbedTLS.Cvoid)::Any                                                                   ││
   │         Cassette.prehook(_2, Base.unsafe_convert, %67, %39)::Any                                                                                       ││
   │   %70 = Cassette.overdub(_2, Base.unsafe_convert, %67, %39)::Ptr{Nothing}                                                                              ││
   │         Cassette.posthook(_2, %70, Base.unsafe_convert, %67, %39)::Any                                                                                 ││
   │         Cassette.prehook(_2, Base.unsafe_convert, MbedTLS.Csize_t, %46)::Any                                                                           ││
   │   %73 = Cassette.overdub(_2, Base.unsafe_convert, MbedTLS.Csize_t, %46)::UInt64                                                                        ││
   │         Cassette.posthook(_2, %73, Base.unsafe_convert, MbedTLS.Csize_t, %46)::Any                                                                     ││
   │   %75 = $(Expr(:foreigncall, :(Core.tuple(:mbedtls_ctr_drbg_seed, MbedTLS.libmbedcrypto)), Int32, svec(Ptr{Nothing}, Ptr{Nothing}, Ptr{Nothing}, Ptr{Nothing}, UInt64), 0, :(:ccall), :(%52), :(%58), :(%64), :(%70), :(%73), :(%46), :(%39), :(%33), :(%24), :(%18)))::Int32
   │         Cassette.prehook(_2, MbedTLS.:(==), %75, 0)::Any                                                                                               ││
   │   %77 = Cassette.overdub(_2, MbedTLS.:(==), %75, 0)::Bool                                                                                              ││
   │         Cassette.posthook(_2, %77, MbedTLS.:(==), %75, 0)::Any                                                                                         ││
   └──       goto #4 if not %77                                                                                                                             ││
   2 ─       nothing::Nothing                                                                                                                               │ 
32 3 ─       return %2                                                                                                                                      │ 
29 4 ─       Cassette.prehook(_2, MbedTLS.mbed_err, %75)::Any                                                                                               │╻ macro expansion
   │         Cassette.overdub(_2, MbedTLS.mbed_err, %75)::Union{}                                                                                           ││
   └──       unreachable                                                                                                                                    ││

How do we want to support this case? Abstract interpretation doesn't error on it (it just infers such nested :call to be Any) but optimization does (because of argextype's assumption).

@aviatesk aviatesk added the compiler:optimizer Optimization passes (mostly in base/compiler/ssair/) label Nov 24, 2022
@Keno
Copy link
Member

Keno commented Nov 26, 2022

This is invalid IR

@vtjnash
Copy link
Sponsor Member

vtjnash commented Nov 29, 2022

@KristofferC this is the PkgEval failure reason, if you want to track it

@maleadt
Copy link
Member

maleadt commented Jan 30, 2023

Even though this is invalid IR, we may want to consider dealing with this differently, or fixing Cassette as (1) Traceur also runs into this, (2) it used to work fine on 1.8, and (3) it makes the PkgEval reports look bad.

A MWE that used to work on 1.8 (reduction in progress, so messy code):

using Core: SlotNumber
struct Context{N, M}
    name::N
    metadata::M
end
function Context(name; metadata)
    Context(name, metadata)
end
macro context(_Ctx)
    CtxName = Symbol()
    Ctx = esc(_Ctx)
    quote
        struct $CtxName end
        $Ctx{M} = Context{$CtxName}
        $Ctx(; kwargs...) = Context($CtxName(); kwargs...)
    end
end
function insert_statements!(code, codelocs, stmtcount, newstmts)
    ssachangemap = labelchangemap = fill(0, length(code))
    worklist = []
    for i in 1:length(code)
        stmt = code[i]
        nstmts = stmtcount(stmt, i)
        if nstmts != nothing
            addedstmts = nstmts - 1
            push!(worklist, (i, addedstmts))
            ssachangemap[i] = if i < length(code)
                addedstmts
            end
        end
    end
    Core.Compiler.renumber_ir_elements!(code, labelchangemap)
    for (i, addedstmts) in worklist
        i += ssachangemap[i] - addedstmts
        stmts = newstmts(code[i], i)
        code[i] = stmts
        for j in 1:length(stmts) - 1
            insert!(code, i, stmts[j])
            insert!(codelocs, i, codelocs[i])
        end
    end
end
specialize_method(method, metharg, methsp, world, preexisting) = Core.Compiler.specialize_method(method, metharg, methsp)
function reflect(sigtypes, world=typemax(UInt64))
    S = Tuple{map(s -> s, sigtypes)...}
    _methods = Base._methods_by_ftype(S, 1, world)
    type_signature, raw_static_params, method = _methods[]
    method_instance = specialize_method(method, type_signature, raw_static_params, world, false)
    code_info = Core.Compiler.retrieve_code_info(method_instance)
    (; method, code_info)
end
function generator(self, context_type, args)
    reflection = reflect(args)
    method = reflection.method
    code_info = reflection.code_info
    code_info.slotnames = [:overdub, gensym(), gensym(), code_info.slotnames...]
    code_info.slotflags = [0, 0, 0, code_info.slotflags...]
    n_prepended_slots = 3
    overdub_ctx_slot = SlotNumber(2)
    overdub_args_slot = SlotNumber(3)
    overdubbed_code = []
    overdubbed_codelocs = []
    n_method_args = method.nargs
    offset = 1
    for i in 1:n_method_args
        slot = i + n_prepended_slots
        actual_argument = Expr(:call,  getfield, overdub_args_slot, offset)
        push!(overdubbed_code, :($(SlotNumber(slot)) = $actual_argument))
        push!(overdubbed_codelocs, code_info.codelocs[1])
    end
    Meta.partially_inline!(code_info.code, [], method, [],
                           n_prepended_slots, length(overdubbed_code), :propagate)
    original_code_start_index = length(overdubbed_code) + 1
    append!(overdubbed_code, code_info.code)
    append!(overdubbed_codelocs, code_info.codelocs)
    stmtcount = (x, i) -> begin
        i >= original_code_start_index || return
        isassign = Meta.isexpr(x, :(=))
        stmt = isassign ? x.args[2] : x
        if Meta.isexpr(stmt, :call)
            4
        end
    end
    newstmts = (x, i) -> begin
        callstmt = Meta.isexpr(x, :(=)) ? x.args[2] : x
                Expr,
                Expr(:call,  overdub, overdub_ctx_slot, callstmt.args...),
                Expr,
                    0
    end
    insert_statements!(overdubbed_code, overdubbed_codelocs, stmtcount, newstmts)
    code_info.code = overdubbed_code
    code_info.codelocs = overdubbed_codelocs
    code_info.ssavaluetypes = length(overdubbed_code)
    code_info.ssaflags = [0 for _ in overdubbed_code]
    code_info
end
@eval begin
    function overdub(Context, args...)
        $(Expr(:meta,
                :generated,
                Expr(:new,
                    Core.GeneratedFunctionStub,
                    :generator,
                    [],
                    [],
                    0,
                    QuoteNode(Symbol()),
                    true)))
    end
    function recurse(Context, args...)
        $(Expr(:meta,
                :generated,
                Expr(:new,
                    Core.GeneratedFunctionStub,
                    :generator,
                    [],
                    [],
                    0,
                    QuoteNode(Symbol()),
                    true)))
    end
end
@context TraceurCtx
function overdub(ctx::TraceurCtx, f, args...)
  tra = ctx.metadata
  if tra > typemax(Int)
    invoke(overdub, Tuple{Context, typeof(f), typeof.(args)...}, ctx, f, args...)
  end
end
recurse(TraceurCtx(metadata=0), BigInt)

I'll blacklist IBMQJulia and Traceur for now, but that's not ideal of course.

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Labels
compiler:optimizer Optimization passes (mostly in base/compiler/ssair/)
Projects
None yet
Development

No branches or pull requests

4 participants