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

* added "const" to some string parameters

Browse Source 
git-svn-id: trunk@47299 -
This commit is contained in:
Jonas Maebe 2020-11-03 21:34:15 +00:00
parent 3e16ad9d6c
commit 1c61c30cd2
3 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/aasmcnst.pas
View File

@ -155,7 +155,7 @@ type
private
fnextfieldname: TIDString;
function getcuroffset: asizeint;
procedure setnextfieldname(AValue: TIDString);
procedure setnextfieldname(const AValue: TIDString);
protected
{ type of the aggregate }
fdef: tdef;
@ -217,7 +217,7 @@ type
private
function getcurragginfo: taggregateinformation;
procedure set_next_field(AValue: tfieldvarsym);
procedure set_next_field_name(AValue: TIDString);
procedure set_next_field_name(const AValue: TIDString);
protected
{ temporary list in which all data is collected }
fasmlist: tasmlist;
@ -538,7 +538,7 @@ implementation
end;
procedure taggregateinformation.setnextfieldname(AValue: TIDString);
procedure taggregateinformation.setnextfieldname(const AValue: TIDString);
begin
if (fnextfieldname<>'') or
not anonrecord then
@ -862,7 +862,7 @@ implementation
end;
procedure ttai_typedconstbuilder.set_next_field_name(AValue: TIDString);
procedure ttai_typedconstbuilder.set_next_field_name(const AValue: TIDString);
var
info: taggregateinformation;
begin

2
compiler/pdecl.pas
View File

@ -613,7 +613,7 @@ implementation
procedure types_dec(in_structure: boolean;out had_generic:boolean;var rtti_attrs_def: trtti_attribute_list);
function determine_generic_def(name:tidstring):tstoreddef;
function determine_generic_def(const name:tidstring):tstoreddef;
var
hashedid : THashedIDString;
pd : tprocdef;

2
compiler/pdecsub.pas
View File

@ -683,7 +683,7 @@ implementation
firstpart:=false;
end;
function search_object_name(sp:TIDString;gen_error:boolean):tsym;
function search_object_name(const sp:TIDString;gen_error:boolean):tsym;
var
storepos:tfileposinfo;
srsymtable:TSymtable;