* merged pierres fixes

compiler/og386cff.pas

@@ -620,12 +620,13 @@ implementation
            if (s<>sec_none) then
             inc(offset,sects[s]^.mempos);
          end;
-        fillchar(stab,sizeof(coffstab),0);
         if assigned(p) and (p[0]<>#0) then
          begin
            stab.strpos:=sects[sec_stabstr]^.len;
            sects[sec_stabstr]^.write(p^,strlen(p)+1);
-         end;
+         end
+        else
+         stab.strpos:=0;
         stab.ntype:=nidx;
         stab.ndesc:=line;
         stab.nother:=nother;
@@ -672,12 +673,13 @@ implementation
            if (s<>sec_none) then
             inc(offset,sects[s]^.mempos);
          end;
-        fillchar(stab,sizeof(coffstab),0);
         if assigned(p) and (p[0]<>#0) then
          begin
            stab.strpos:=sects[sec_stabstr]^.len;
            sects[sec_stabstr]^.write(p^,strlen(p)+1);
-         end;
+         end
+        else
+         stab.strpos:=0;
         stab.ntype:=nidx;
         stab.ndesc:=line;
         stab.nother:=nother;
@@ -1040,7 +1042,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.7  2000-09-24 15:06:19  peter
+  Revision 1.8  2000-10-21 14:36:26  peter
+    * merged pierres fixes
+
+  Revision 1.7  2000/09/24 15:06:19  peter
     * use defines.inc
 
   Revision 1.6  2000/09/19 23:09:07  pierre
@@ -1060,4 +1065,4 @@ end.
   Revision 1.2  2000/07/13 11:32:43  michael
   + removed logs
 
-}
+}

compiler/pmodules.pas

@@ -141,6 +141,7 @@ implementation
         if assigned(debuglist) then
           begin
             debuglist^.insert(new(pai_symbol,initname('gcc2_compiled',0)));
+            debuglist^.insert(new(pai_symbol,initname('fpc_compiled',0)));
             fixseg(debuglist,sec_code);
           end;
 {$endif GDB}
@@ -1705,7 +1706,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.15  2000-10-15 09:08:58  peter
+  Revision 1.16  2000-10-21 14:36:26  peter
+    * merged pierres fixes
+
+  Revision 1.15  2000/10/15 09:08:58  peter
     * use System for the systemunit instead of target dependent
 
   Revision 1.14  2000/10/15 07:47:51  peter