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

New class function tsymsym.find_by_number() to find a tsymsym instance based on it's number. The list containing the mapping from the indices to the symbols is created and freed using the init/done registration mechanism.

Browse Source 
git-svn-id: trunk@33889 -
This commit is contained in:
svenbarth 2016-06-03 20:49:06 +00:00
parent 15ff68e144
commit 2ed7a6de68
1 changed files with 40 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
compiler/symsym.pas
View File

@ -426,6 +426,7 @@ interface
{ do not override this routine in platform-specific subclasses,
override ppuwrite_platform instead }
procedure ppuwrite(ppufile:tcompilerppufile);override;final;
class function find_by_number(l:longint):tsyssym;
end;
tsyssymclass = class of tsyssym;
@ -2634,17 +2635,34 @@ implementation
TSYSSYM
****************************************************************************}
var
syssym_list : TFPHashObjectList;
constructor tsyssym.create(const n : string;l : longint);
var
s : shortstring;
begin
inherited create(syssym,n,true);
number:=l;
str(l,s);
if assigned(syssym_list.find(s)) then
internalerror(2016060303);
syssym_list.add(s,self);
end;
constructor tsyssym.ppuload(ppufile:tcompilerppufile);
var
s : shortstring;
begin
inherited ppuload(syssym,ppufile);
number:=ppufile.getlongint;
ppuload_platform(ppufile);
str(number,s);
if assigned(syssym_list.find(s)) then
internalerror(2016060304);
syssym_list.add(s,self);
end;
destructor tsyssym.destroy;
@ -2660,6 +2678,14 @@ implementation
end;
class function tsyssym.find_by_number(l:longint):tsyssym;
var
s : shortstring;
begin
str(l,s);
result:=tsyssym(syssym_list.find(s));
end;
{*****************************************************************************
TMacro
*****************************************************************************}
@ -2728,4 +2754,18 @@ implementation
end;
procedure init_symsym;
begin
syssym_list:=tfphashobjectlist.create(false);
end;
procedure done_symsym;
begin
syssym_list.free;
end;
initialization
register_initdone_proc(@init_symsym,@done_symsym);
end.