* more compilation fixes

git-svn-id: trunk@39350 -

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

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;
 

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));