paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 12:50:31 +02: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

11
compiler/gdb.pas
View File

@ -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
}
}

7
compiler/pmodules.pas
View File

@ -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

9
compiler/symtable.pas
View File

@ -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