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

TSymStr: more consistent usage

Browse Source
This commit is contained in:
Jonas Maebe 2022-05-08 15:03:14 +02:00
parent fcaea21075
commit 3d3c904ac5
7 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/dbgdwarf.pas
View File

@ -3264,7 +3264,7 @@ implementation
ditem : TDirIndexItem;
fitem : TFileIndexItem;
flist : TFPList;
dbgname : String;
dbgname : TSymStr;
begin
if not (target_info.system in systems_wasm) then
begin

4
compiler/ncgvmt.pas
View File

@ -695,11 +695,11 @@ implementation
Interface tables
**************************************}
function CreateWrapperName(_class : tobjectdef;AImplIntf : TImplementedInterface;i : longint;pd : tprocdef) : string;
function CreateWrapperName(_class : tobjectdef;AImplIntf : TImplementedInterface;i : longint;pd : tprocdef) : TSymStr;
var
realintfdef: tobjectdef;
tmpstr : AnsiString;
hs : string;
hs : TSymStr;
crc : DWord;
begin
realintfdef:=AImplIntf.IntfDef;

2
compiler/ngenutil.pas
View File

@ -1282,7 +1282,7 @@ implementation
class procedure tnodeutils.InsertThreadvars;
var
s : string;
s : TSymStr;
tcb: ttai_typedconstbuilder;
sym: tasmsymbol;
tabledef: trecorddef;

2
compiler/pdecobj.pas
View File

@ -1441,7 +1441,7 @@ implementation
old_current_specializedef: tstoreddef;
old_parse_generic: boolean;
list: TFPObjectList;
s: String;
s: TSymStr;
st: TSymtable;
olddef: tdef;
begin

2
compiler/pmodules.pas
View File

@ -679,7 +679,7 @@ implementation
end;
function create_main_proc(const name:string;potype:tproctypeoption;st:TSymtable):tcgprocinfo;
function create_main_proc(const name:TSymStr;potype:tproctypeoption;st:TSymtable):tcgprocinfo;
var
ps : tprocsym;
pd : tprocdef;

4
compiler/symdef.pas
View File

@ -1689,11 +1689,11 @@ implementation
procedure tdefawaresymtablestack.add_helpers_and_generics(st:tsymtable;addgenerics:boolean);
var
i: integer;
s: string;
s: TSymStr;
list: TFPObjectList;
def: tdef;
sym : tsym;
i: integer;
begin
{ search the symtable from first to last; the helper to use will be the
last one in the list }

6
compiler/symtable.pas
View File

@ -324,7 +324,7 @@ interface
function FullTypeName(def,otherdef:tdef):string;
function generate_nested_name(symtable:tsymtable;const delimiter:string):string;
{ def is the extended type of a helper }
function generate_objectpascal_helper_key(def:tdef):string;
function generate_objectpascal_helper_key(def:tdef):TSymStr;
procedure incompatibletypes(def1,def2:tdef);
procedure hidesym(sym:TSymEntry);
procedure duplicatesym(var hashedid: THashedIDString; dupsym, origsym:TSymEntry; warn: boolean);
@ -2950,7 +2950,7 @@ implementation
end;
function generate_objectpascal_helper_key(def:tdef):string;
function generate_objectpascal_helper_key(def:tdef):TSymStr;
begin
if not assigned(def) then
internalerror(2013020501);
@ -4303,7 +4303,7 @@ implementation
function get_objectpascal_helpers(pd : tdef):TFPObjectList;
var
s : string;
s : TSymStr;
st : tsymtable;
begin
result:=nil;