1

我正在嵌入单声道并尝试使用单声道 API 从内部调用实例化泛型类。

我List从核心库中获取，然后List<string>通过调用创建Type.MakeGenericType。它似乎有效，但我在路上遇到了车祸。

我mono_coop_cond_broadcast Cannot transition thread ... from STATE_BLOCKING with DO_BLOCKING从里面得到mono_runtime_object_init。

主.cpp：

#include <mono/jit/jit.h>
#include <mono/metadata/assembly.h>

#include <assert.h>

#define ASSERT(cond, msg) assert(cond && msg)

MonoDomain* domain = nullptr;

MonoClass* createListClass(MonoClass* elemClass) {
  auto listCls = mono_class_from_name(mono_get_corlib(), "System.Collections.Generic", "List`1");
  ASSERT(listCls, "Unable to find list class");
  auto listObj = mono_type_get_object(domain, mono_class_get_type(listCls));

  auto listObjClass = mono_object_get_class((MonoObject*)listObj);
  auto makeGeneric = mono_class_get_method_from_name(listObjClass, "MakeGenericType", 1);
  ASSERT(makeGeneric, "Unable to find make generic method");

  auto metaClass = mono_class_from_name(mono_get_corlib(), "System", "Type");
  ASSERT(metaClass, "Unable to find type class");

  auto argArray = mono_array_new(domain, metaClass, 1);
  auto elemTypeObj = mono_type_get_object(domain, mono_class_get_type(elemClass));
  mono_array_set(argArray, MonoReflectionType*, 0, elemTypeObj);

  void* args[] = {argArray};
  auto retObj = mono_runtime_invoke(makeGeneric, listObj, args, nullptr);
  ASSERT(retObj, "Unable to instantiate generic type");

  auto retType = mono_reflection_type_get_type((MonoReflectionType*)retObj);
  ASSERT(retType, "Unable to get type from reflection type");

  auto retClass = mono_class_from_mono_type(retType);
  bool inited = mono_class_init(retClass);
  ASSERT(inited, "Unable to init class");

  return retClass;
}

extern "C" MonoObject* InternalCall() {
  auto stringList = createListClass(mono_get_string_class());

  auto inst = mono_object_new(domain, stringList);

  mono_runtime_object_init(inst); // <-- crash here

  return inst;
}

int main(int argc, char** argv) {
    ASSERT(argc > 1, "Requres at least one argument: assembly path");

    domain = mono_jit_init  ("intergen");
    ASSERT(domain, "Failed to init domain");

    mono_add_internal_call("Foo::Bar", (void*)InternalCall);

    auto assembly = mono_domain_assembly_open(domain, argv[1]);
    ASSERT(assembly, "Failed to open assembly");

    auto ret = mono_jit_exec(domain, assembly, argc - 1, argv + 1);

    mono_jit_cleanup(domain);

    return ret;
}

主文件：

using System;
using System.Collections.Generic;
using System.Runtime.InteropServices;
using System.Runtime.CompilerServices;

class Foo
{
    [MethodImplAttribute(MethodImplOptions.InternalCall)]
    public extern static List<string> Bar();

    static void Main()
    {
        Console.WriteLine(Bar());
    }
}

每当我尝试调用mono_object_to_string任何MonoReflectionType*实例时，也会发生同样的崩溃（即使我不确定这是否是有效的操作）。

我究竟做错了什么？我是否纠正了强制MonoReflectionType*转换MonoObject*为有效操作？

4

0 回答 0