* some DBX changes but it still does not work !

compiler/gdb.pas

@@ -163,11 +163,11 @@ N_BINCL to N_EINCL
      do_count := false;
      if assigned(dbx_counter) then
        begin
-{$IfDef ExtDebug }
+{$IfDef ExtDebugDbx }
         Comment(V_Info,'Counting '+st);
         Comment(V_Info,'count =  '+tostr(dbx_counter^));
         Comment(V_Info,'addr = '+tostr(longint(dbx_counter)));
-{$EndIf ExtDebug }
+{$EndIf ExtDebugDbx }
           for i:=0 to strlen(st) do
             begin
                if st[i] = '"' then
@@ -249,7 +249,10 @@ end.
 
 {
   $Log$
-  Revision 1.15  2000-02-09 13:22:52  peter
+  Revision 1.16  2000-05-11 09:40:11  pierre
+    * some DBX changes but it still does not work !
+
+  Revision 1.15  2000/02/09 13:22:52  peter
     * log truncated
 
   Revision 1.14  2000/01/07 01:14:27  peter
@@ -261,4 +264,4 @@ end.
   Revision 1.12  1999/08/04 00:23:01  florian
     * renamed i386asm and i386base to cpuasm and cpubase
 
-}
+}

compiler/pmodules.pas

@@ -826,7 +826,7 @@ unit pmodules;
              debuglist^.concat(new(pai_stabs,init(strpnew('"'+
                punitsymtable(current_module^.globalsymtable)^.name^+'",'+
                tostr(N_EINCL)+',0,0,0'))));
-             punitsymtable(current_module^.globalsymtable)^.dbx_count_ok:=true;
+             punitsymtable(current_module^.globalsymtable)^.dbx_count_ok:={true}false;
              dbx_counter:=punitsymtable(current_module^.globalsymtable)^.prev_dbx_counter;
              do_count_dbx:=false;
            end;
@@ -1706,7 +1706,10 @@ unit pmodules;
 end.
 {
   $Log$
-  Revision 1.194  2000-05-08 13:18:09  peter
+  Revision 1.195  2000-05-11 09:40:11  pierre
+    * some DBX changes but it still does not work !
+
+  Revision 1.194  2000/05/08 13:18:09  peter
     * fixed setting of output names with includefile
 
   Revision 1.193  2000/05/04 20:43:33  peter

compiler/symtable.pas

@@ -2299,7 +2299,7 @@ implementation
                Message(unit_f_ppu_dbx_count_problem)
               else
                dbx_count := readlong;
-              dbx_count_ok := true;
+              dbx_count_ok := {true}false;
            end
          else
            begin
@@ -2510,7 +2510,7 @@ implementation
                     asmlist^.concat(new(pai_stabs,init(strpnew('"'+name^+'",'
                       +tostr(N_EINCL)+',0,0,0'))));
                     do_count_dbx:=assigned(dbx_counter);
-                    dbx_count_ok := true;
+                    dbx_count_ok := {true}false;
                   end;
              end;
            is_stab_written:=true;
@@ -2900,7 +2900,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.89  2000-05-03 14:34:05  pierre
+  Revision 1.90  2000-05-11 09:40:12  pierre
+    * some DBX changes but it still does not work !
+
+  Revision 1.89  2000/05/03 14:34:05  pierre
    * fix the unitsym chain
 
   Revision 1.88  2000/04/27 11:35:04  pierre