From 6a2cb0bbbdd17e86a38b937d1fb26d15314f1390 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sat, 30 Jun 2018 12:48:54 +0000
Subject: [PATCH] * more compilation fixes

git-svn-id: trunk@39350 -
---
 compiler/dbgstabs.pas | 1 +
 compiler/ogomf.pas    | 5 +++++
 compiler/owomflib.pas | 3 +++
 3 files changed, 9 insertions(+)

diff --git a/compiler/dbgstabs.pas b/compiler/dbgstabs.pas
index fef9e0b228..cc96264c26 100644
--- a/compiler/dbgstabs.pas
+++ b/compiler/dbgstabs.pas
@@ -250,6 +250,7 @@ implementation
       varcounter:=0;
       varptr:=@varvaluedata[0];
       varvalues[0]:=nil;
+      result:='';
       while i<=length(s) do
         begin
           if (s[i]='$') and (i<length(s)) then
diff --git a/compiler/ogomf.pas b/compiler/ogomf.pas
index bf92cbcd52..a74b9c9450 100644
--- a/compiler/ogomf.pas
+++ b/compiler/ogomf.pas
@@ -774,6 +774,7 @@ implementation
         seglist: TSegmentList;
         I: Integer;
       begin
+        seglist:=nil;
         g:=TOmfRecord_GRPDEF.Create;
         Groups.Add(group.Name,g);
         g.GroupNameIndex:=LNames.Add(group.Name);
@@ -937,6 +938,7 @@ implementation
         RawRecord: TOmfRawRecord;
         PubDefRec: TOmfRecord_PUBDEF;
       begin
+        PubNamesForSection:=nil;
         RawRecord:=TOmfRawRecord.Create;
         SetLength(PubNamesForSection,Data.ObjSectionList.Count);
         for i:=0 to Data.ObjSectionList.Count-1 do
@@ -2718,6 +2720,9 @@ implementation
         ObjSec: TOmfObjSection;
         tis_trailer: TTISTrailer;
       begin
+        debugsections:=nil;
+        elfsechdrs:=nil;
+        
         { mark the offset of the start of the ELF image }
         elf_start_pos:=Writer.Size;
 
diff --git a/compiler/owomflib.pas b/compiler/owomflib.pas
index aafea97567..8e8338ebf8 100644
--- a/compiler/owomflib.pas
+++ b/compiler/owomflib.pas
@@ -399,6 +399,7 @@ implementation
         store_at: Integer;
         PageNum: Word;
       begin
+        blocks:=nil;
         SetLength(blocks,nblocks);
         for i:=0 to nblocks-1 do
           begin
@@ -500,6 +501,8 @@ implementation
       name: string;
       PageNum: Integer;
     begin
+      blocks:=nil;
+      name:='';
       seek(DictionaryOffset);
       SetLength(blocks,DictionarySizeInBlocks);
       read(blocks[0],DictionarySizeInBlocks*SizeOf(TBlock));