From d1aaeff832bd6b0ef20f1f38c156622b0939ac7e Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sat, 30 Apr 2022 14:52:19 +0200
Subject: [PATCH] dbgllvm: fix crash for files without procedures/functions

---
 compiler/llvm/dbgllvm.pas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/compiler/llvm/dbgllvm.pas b/compiler/llvm/dbgllvm.pas
index a74d507016..40c37e34ec 100644
--- a/compiler/llvm/dbgllvm.pas
+++ b/compiler/llvm/dbgllvm.pas
@@ -2120,6 +2120,7 @@ implementation
         lang: tdwarf_source_language;
         objcruntimeversion: longint;
       begin
+        ensuremetainit;
         if (ds_dwarf_cpp in current_settings.debugswitches) then
           lang:=DW_LANG_C_plus_plus
         else