paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-02-04 05:34:53 +01:00
Code Issues Packages Projects Releases Wiki Activity

* tsymtable.dump to dump the names in a symtable to stdout

Browse Source
This commit is contained in:
peter 2002-10-02 20:51:59 +00:00
parent ff5f5b33cd
commit a6bdf6703d
1 changed files with 29 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
compiler/symbase.pas
View File

@ -90,6 +90,10 @@ interface
psearchhasharray = ^tsearchhasharray;
tsymtable = class
{$ifdef EXTDEBUG}
private
procedure dumpsym(p : TNamedIndexItem;arg:pointer);
{$endif EXTDEBUG}
public
name : pstring;
realname : pstring;
@ -122,6 +126,9 @@ interface
function search(const s : stringid) : tsymentry;
function speedsearch(const s : stringid;speedvalue : cardinal) : tsymentry;virtual;
procedure registerdef(p : tdefentry);
{$ifdef EXTDEBUG}
procedure dump;
{$endif EXTDEBUG}
function getdefnr(l : longint) : tdefentry;
function getsymnr(l : longint) : tsymentry;
{$ifdef GDB}
@ -203,6 +210,24 @@ implementation
end;
{$ifdef EXTDEBUG}
procedure tsymtable.dumpsym(p : TNamedIndexItem;arg:pointer);
begin
writeln(p.name);
end;
procedure tsymtable.dump;
begin
if assigned(name) then
writeln('Symtable ',name^)
else
writeln('Symtable <not named>');
symsearch.foreach({$ifdef FPCPROCVAR}@{$endif}dumpsym,nil);
end;
{$endif EXTDEBUG}
procedure tsymtable.registerdef(p : tdefentry);
begin
defindex.insert(p);
@ -323,7 +348,10 @@ implementation
end.
{
$Log$
Revision 1.8 2002-09-09 17:34:15 peter
Revision 1.9 2002-10-02 20:51:59 peter
* tsymtable.dump to dump the names in a symtable to stdout
Revision 1.8 2002/09/09 17:34:15 peter
* tdicationary.replace added to replace and item in a dictionary. This
is only allowed for the same name
* varsyms are inserted in symtable before the types are parsed. This