paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 00:09:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* some DBX work, still does not work

Browse Source
This commit is contained in:
pierre 1999-11-09 23:48:47 +00:00
parent f88f9f5763
commit 71f8768399
1 changed files with 17 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/parser.pas
View File

@ -67,6 +67,9 @@ unit parser;
{ cgbase must be after hcodegen to use the correct procinfo !!! } { cgbase must be after hcodegen to use the correct procinfo !!! }
cgbase, cgbase,
{$endif newcg} {$endif newcg}
{$ifdef GDB}
gdb,
{$endif GDB}
comphook,tree,scanner,pbase,ptype,psystem,pmodules,cresstr; comphook,tree,scanner,pbase,ptype,psystem,pmodules,cresstr;
@ -197,6 +200,9 @@ unit parser;
{$ifdef newcg} {$ifdef newcg}
oldcg : pcg; oldcg : pcg;
{$endif newcg} {$endif newcg}
{$ifdef GDB}
store_dbx : plongint;
{$endif GDB}
begin begin
inc(compile_level); inc(compile_level);
@ -246,6 +252,10 @@ unit parser;
{$ifdef newcg} {$ifdef newcg}
oldcg:=cg; oldcg:=cg;
{$endif newcg} {$endif newcg}
{$ifdef GDB}
store_dbx:=dbx_counter;
dbx_counter:=nil;
{$endif GDB}
{ show info } { show info }
Message1(parser_i_compiling,filename); Message1(parser_i_compiling,filename);
@ -376,6 +386,9 @@ unit parser;
{$ifdef newcg} {$ifdef newcg}
cg:=oldcg; cg:=oldcg;
{$endif newcg} {$endif newcg}
{$ifdef GDB}
dbx_counter:=store_dbx;
{$endif GDB}
{ restore scanner } { restore scanner }
c:=oldc; c:=oldc;
pattern:=oldpattern; pattern:=oldpattern;
@ -487,7 +500,10 @@ unit parser;
end. end.
{ {
$Log$ $Log$
Revision 1.90 1999-11-06 14:34:21 peter Revision 1.91 1999-11-09 23:48:47 pierre
* some DBX work, still does not work
Revision 1.90 1999/11/06 14:34:21 peter
* truncated log to 20 revs * truncated log to 20 revs
Revision 1.89 1999/10/22 10:39:34 peter Revision 1.89 1999/10/22 10:39:34 peter
@ -567,4 +583,3 @@ end.
* fixed bugs 212,222,225,227,229,231,233 * fixed bugs 212,222,225,227,229,231,233
} }