瀏覽代碼

dbgllvm: fix crash for files without procedures/functions

Jonas Maebe 3 年之前
父節點
當前提交
d1aaeff832
共有 1 個文件被更改,包括 1 次插入0 次删除
  1. 1 0
      compiler/llvm/dbgllvm.pas

+ 1 - 0
compiler/llvm/dbgllvm.pas

@@ -2120,6 +2120,7 @@ implementation
         lang: tdwarf_source_language;
         lang: tdwarf_source_language;
         objcruntimeversion: longint;
         objcruntimeversion: longint;
       begin
       begin
+        ensuremetainit;
         if (ds_dwarf_cpp in current_settings.debugswitches) then
         if (ds_dwarf_cpp in current_settings.debugswitches) then
           lang:=DW_LANG_C_plus_plus
           lang:=DW_LANG_C_plus_plus
         else
         else