* writesymbol for relocations in stabs

git-svn-id: trunk@1357 -

compiler/ogcoff.pas

@@ -682,6 +682,7 @@ const go32v2stub : array[0..2047] of byte=(
         StabsSec.write(stab,sizeof(stab));
         if assigned(ps) then
          begin
+           writesymbol(ps);
            { current address }
            curraddr:=StabsSec.mempos+StabsSec.datasize;
            if DLLSource and RelocSection then

compiler/ogelf.pas

@@ -443,7 +443,10 @@ implementation
         stab.nvalue:=offset;
         stabssec.write(stab,sizeof(stab));
         if assigned(ps) then
-          stabssec.addsymreloc(stabssec.datasize-4,ps,RELOC_ABSOLUTE);
+          begin
+            writesymbol(ps);
+            stabssec.addsymreloc(stabssec.datasize-4,ps,RELOC_ABSOLUTE);
+          end;
       end;