2

我正在玩CLR 的非托管 Profiling 接口。

当使用 netcoreapp3.1 或 net5.0 控制台应用程序运行时，在 inICorProfilerCallback::JITCompilationStarted或 in 中，对在控制台应用程序模块中存储字符串文字并返回令牌的ICorProfilerCallback::ModuleLoadFinished任何调用都会返回 -2147024882 (0x8007000E E_OUTOFMEMORY) 的 HRESULT。无论传递什么值，调用都会返回相同的 HRESULT 。IMetaDataEmit::DefineUserStringmdStringIMetaDataEmit::DefineUserString

.NET 应用程序非常简单

using System;

namespace dotnetapp
{
    class Program
    {
        static void Main(string[] args)
        {
            WriteEnvironmentVariable("CORECLR_ENABLE_PROFILING");
            WriteEnvironmentVariable("CORECLR_PROFILER");
            WriteEnvironmentVariable("CORECLR_PROFILER_PATH");
            Console.WriteLine("Hello World!");
        }

        static void WriteEnvironmentVariable(string name)
        {
            var value = Environment.GetEnvironmentVariable(name);
            Console.WriteLine($"{name} = {value}");
        }
    }
}

并且是构建和运行的

dotnet build -c Debug dotnetapp.csproj
dotnet bin/Debug/net5.0/dotnetapp.dll

在运行应用程序时设置相关的 Core CLR 分析环境变量

CORECLR_ENABLE_PROFILING=1
CORECLR_PROFILER={PROFILER CLSID}
CORECLR_PROFILER_PATH=clr_profiler.dll

分析器是使用com-rs用 Rust 编写的，调用IMetaDataEmit::DefineUserString定义为

impl IMetaDataEmit {
    pub fn define_user_string(&self, str: &str) -> Result<mdString, HRESULT> {
        let mut md_string = mdStringNil;
        let mut wide_string = U16CString::from_str(str).unwrap();
        let len = wide_string.len() as ULONG;
        let ptr = wide_string.as_ptr();
        let hr = unsafe { self.DefineUserString(ptr, len, &mut md_string) };
        if FAILED(hr) {
            log::error!("define user string '{}' failed. HRESULT: {} {:X}", str, hr, hr);
            return Err(hr);
        }
        log::trace!("md_string token {}", md_string);
        Ok(md_string)
    }
}

不安全的调用是对 comr-rs 生成的函数

com::interfaces! {
    #[uuid("BA3FEE4C-ECB9-4E41-83B7-183FA41CD859")]
    pub unsafe interface IMetaDataEmit: IUnknown {
        // functions ordered by IMetaDataEmit layout
        fn DefineUserString(&self,
            szString: LPCWSTR,
            cchString: ULONG,
            pstk: *mut mdString,
        ) -> HRESULT;
    }
}

我正在使用在分析器的其他位置U16CString创建一个*const u16指针以传递LPCWSTR给接口函数，例如IMetaDataImport::EnumMethodsWithName，所以我不认为这是一个问题，但我想我会提到它。

失败调用的日志是

TRACE [imetadata_emit] wide_string UCString { inner: [71, 111, 111, 100, 98, 121, 101, 32, 87, 111, 114, 108, 100, 33, 0] }, len 14
ERROR [imetadata_emit] define user string 'Goodbye World!' failed. HRESULT: -2147024882 8007000E

将指针传递给的UCString.inner是。Vec<u16>IMetaDataEmit::DefineUserString

IMetaDataEmitICorProfilerInfo在初始化使用时从传递给探查器的存储中检索ICorProfilerInfo::GetModuleMetaData，使用CorOpenFlags ofRead和ofWrite

impl ICorProfilerInfo {
    pub fn get_module_metadata<I: Interface>(
        &self,
        module_id: ModuleID,
        open_flags: CorOpenFlags,
    ) -> Result<I, HRESULT> {
        let mut unknown = None;
        let hr = unsafe {
            self.GetModuleMetaData(module_id, open_flags.bits(), &I::IID as REFIID, &mut unknown as *mut _ as *mut *mut IUnknown)
        };

        if FAILED(hr) {
            log::error!("error fetching metadata for module_id {}, HRESULT: {:X}", module_id, hr);
            return Err(hr);
        }
        Ok(unknown.unwrap())
    }
}

whereGetModuleMetaData是在ICorProfilerInfo生成的 withcom::interfaces!宏上定义的

com::interfaces! {
    #[uuid("28B5557D-3F3F-48b4-90B2-5F9EEA2F6C48")]
    pub unsafe interface ICorProfilerInfo: IUnknown {
        // functions ordered by ICorProfilerInfo layout
        fn GetModuleMetaData(&self,
            moduleId: ModuleID,
            dwOpenFlags: DWORD,
            riid: REFIID,
            ppOut: *mut *mut IUnknown,
        ) -> HRESULT;
    }
}

好像我在 Rust 的某个地方遗漏了一些东西。ICorProfilerInfo从, IMetaDataImport,中检索数据与IMetaDataImport2获取和修改 IL 函数体（更改现有指令）一样有效。我的一个想法是是否IMetaDataEmit可能需要可变，但我认为不必如此，因为元数据的更改发生在 FFI 边界的 C++ 运行时侧。

编辑

我组装了一个简单的 C++ 分析器，它调用并IMetaDataEmit::DefineUserString在ICorProfilerCallback::ModuleLoadFinished示例 .NET 应用程序上按预期工作，因此这表明问题出在某个地方的 Rust 代码中。

浏览运行时代码，我认为RegMeta::DefineUserString是代码路径的实现DefineUserString和跟踪，我认为E_OUTOFMEMORY是来自StgBlobPool::AddBlob.

4

1 回答 1

1

问题（显然）是由于IMetaDataEmit接口定义不正确。

无论目标语言是什么，COM 接口定义必须与原始二进制布局完全匹配：所有方法的顺序相同（不要相信 MSDN 对此的视觉顺序），从派生接口方法（IUnknown 等）开始，以及精确的二进制- 每种方法的兼容签名。

于 2021-04-13T12:14:59.227 回答