瀏覽代碼

Fix error about unset result in TDebugInfoLLVM.getabstractprocdeftypes method

Pierre Muller 2 天之前
父節點
當前提交
0f337a9a2c
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      compiler/llvm/dbgllvm.pas

+ 1 - 1
compiler/llvm/dbgllvm.pas

@@ -386,6 +386,7 @@ implementation
       begin
         types:=tai_llvmunnamedmetadatanode.create;
         list.concat(types);
+        result:=types;
         { we still need a DISubProgramType in this case, but not the list of types }
         if not(cs_debuginfo in current_settings.moduleswitches) then
           exit;
@@ -397,7 +398,6 @@ implementation
           begin
             types.addvalue(def_meta_ref(tparavarsym(def.paras[i]).vardef));
           end;
-        result:=types;
       end;
 
     function TDebugInfoLLVM.def_meta_impl(def: tdef): tai_llvmspecialisedmetadatanode;