Browse Source

dbgllvm: handle empty spFlags

Jonas Maebe 3 years ago
parent
commit
a75adf542d
1 changed files with 4 additions and 1 deletions
  1. 4 1
      compiler/llvm/dbgllvm.pas

+ 4 - 1
compiler/llvm/dbgllvm.pas

@@ -1216,6 +1216,7 @@ implementation
         st             : tsymtable;
         prologfileinfo : pfileposinfo;
         vmtoffset      : pint;
+        dispflags      : TSymStr;
         in_currentunit : boolean;
 
       begin
@@ -1273,7 +1274,9 @@ implementation
         try_add_file_metaref(dinode,def.fileinfo,true);
         if assigned(prologfileinfo) then
           dinode.addint64('scopeLine',prologfileinfo^.line);
-        dinode.addenum('spFlags',getdispflags(in_currentunit));
+        dispflags:=getdispflags(in_currentunit);
+        if dispflags<>'' then
+          dinode.addenum('spFlags',dispflags);
         dinode.addmetadatarefto('unit',fcunode);
         ditypenode:=tai_llvmspecialisedmetadatanode.create(tspecialisedmetadatanodekind.DISubroutineType);
         ditypenode.addmetadatarefto('types',getabstractprocdeftypes(list,def));