paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-08 16:19:48 +01:00
Code Issues Packages Projects Releases Wiki Activity

* some DBX changes but it still does not work !

Browse Source
This commit is contained in:
pierre 2000-05-11 09:40:11 +00:00
parent 3697d3c985
commit 1bd418e467
3 changed files with 18 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/gdb.pas
View File

@ -163,11 +163,11 @@ N_BINCL to N_EINCL
do_count := false; do_count := false;
if assigned(dbx_counter) then if assigned(dbx_counter) then
begin begin
{$IfDef ExtDebug } {$IfDef ExtDebugDbx }
Comment(V_Info,'Counting '+st); Comment(V_Info,'Counting '+st);
Comment(V_Info,'count = '+tostr(dbx_counter^)); Comment(V_Info,'count = '+tostr(dbx_counter^));
Comment(V_Info,'addr = '+tostr(longint(dbx_counter))); Comment(V_Info,'addr = '+tostr(longint(dbx_counter)));
{$EndIf ExtDebug } {$EndIf ExtDebugDbx }
for i:=0 to strlen(st) do for i:=0 to strlen(st) do
begin begin
if st[i] = '"' then if st[i] = '"' then
@ -249,7 +249,10 @@ end.
{ {
$Log$ $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 * log truncated
Revision 1.14 2000/01/07 01:14:27 peter Revision 1.14 2000/01/07 01:14:27 peter

7
compiler/pmodules.pas
View File

@ -826,7 +826,7 @@ unit pmodules;
debuglist^.concat(new(pai_stabs,init(strpnew('"'+ debuglist^.concat(new(pai_stabs,init(strpnew('"'+
punitsymtable(current_module^.globalsymtable)^.name^+'",'+ punitsymtable(current_module^.globalsymtable)^.name^+'",'+
tostr(N_EINCL)+',0,0,0')))); 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; dbx_counter:=punitsymtable(current_module^.globalsymtable)^.prev_dbx_counter;
do_count_dbx:=false; do_count_dbx:=false;
end; end;
@ -1706,7 +1706,10 @@ unit pmodules;
end. end.
{ {
$Log$ $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 * fixed setting of output names with includefile
Revision 1.193 2000/05/04 20:43:33 peter Revision 1.193 2000/05/04 20:43:33 peter

9
compiler/symtable.pas
View File

@ -2299,7 +2299,7 @@ implementation
Message(unit_f_ppu_dbx_count_problem) Message(unit_f_ppu_dbx_count_problem)
else else
dbx_count := readlong; dbx_count := readlong;
dbx_count_ok := true; dbx_count_ok := {true}false;
end end
else else
begin begin
@ -2510,7 +2510,7 @@ implementation
asmlist^.concat(new(pai_stabs,init(strpnew('"'+name^+'",' asmlist^.concat(new(pai_stabs,init(strpnew('"'+name^+'",'
+tostr(N_EINCL)+',0,0,0')))); +tostr(N_EINCL)+',0,0,0'))));
do_count_dbx:=assigned(dbx_counter); do_count_dbx:=assigned(dbx_counter);
dbx_count_ok := true; dbx_count_ok := {true}false;
end; end;
end; end;
is_stab_written:=true; is_stab_written:=true;
@ -2900,7 +2900,10 @@ implementation
end. end.
{ {
$Log$ $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 * fix the unitsym chain
Revision 1.88 2000/04/27 11:35:04 pierre Revision 1.88 2000/04/27 11:35:04 pierre