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

Move member variable "section" to tprocdef. Type of "section" to agree with symansistr define.

Browse Source
This commit is contained in:
ccrause 2022-02-22 07:46:19 +02:00 committed by FPK
parent 738a0a35de
commit 665c1b3966
3 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/hlcgobj.pas
View File

@ -5497,8 +5497,13 @@ implementation
alt:=al_pure_assembler; alt:=al_pure_assembler;
{ add the procedure to the al_procedures } { add the procedure to the al_procedures }
maybe_new_object_file(current_asmdata.asmlists[alt]); maybe_new_object_file(current_asmdata.asmlists[alt]);
{$ifdef symansistr}
if pd.section<>'' then if pd.section<>'' then
new_proc_section(current_asmdata.asmlists[alt],sec_user,lower(pd.section),getprocalign) new_proc_section(current_asmdata.asmlists[alt],sec_user,lower(pd.section),getprocalign)
{$else symansistr}
if assigned(pd.section) then
new_proc_section(current_asmdata.asmlists[alt],sec_user,lower(pd.section^),getprocalign)
{$endif symansistr}
else else
new_section(current_asmdata.asmlists[alt],sec_code,lower(pd.mangledname),getprocalign); new_section(current_asmdata.asmlists[alt],sec_code,lower(pd.mangledname),getprocalign);
current_asmdata.asmlists[alt].concatlist(code); current_asmdata.asmlists[alt].concatlist(code);

4
compiler/pdecsub.pas
View File

@ -2422,7 +2422,11 @@ begin
internalerror(2021032801); internalerror(2021032801);
if not (target_info.system in systems_allow_section) then if not (target_info.system in systems_allow_section) then
Comment(V_Error,'Directive section not allowed for this target.'); Comment(V_Error,'Directive section not allowed for this target.');
{$ifdef symansistr}
tprocdef(pd).section:=get_stringconst; tprocdef(pd).section:=get_stringconst;
{$else symansistr}
tprocdef(pd).section:=stringdup(get_stringconst);
{$endif}
end; end;
type type

6
compiler/symdef.pas
View File

@ -695,7 +695,6 @@ interface
{ number of user visible parameters } { number of user visible parameters }
maxparacount, maxparacount,
minparacount : byte; minparacount : byte;
section : ansistring;
constructor create(dt:tdeftyp;level:byte;doregister:boolean); constructor create(dt:tdeftyp;level:byte;doregister:boolean);
constructor ppuload(dt:tdeftyp;ppufile:tcompilerppufile); constructor ppuload(dt:tdeftyp;ppufile:tcompilerppufile);
destructor destroy;override; destructor destroy;override;
@ -866,6 +865,11 @@ interface
visibility : tvisibility; visibility : tvisibility;
{$ifndef DISABLE_FAST_OVERLOAD_PATCH} {$ifndef DISABLE_FAST_OVERLOAD_PATCH}
seenmarker : pointer; // used for filtering in tcandidate seenmarker : pointer; // used for filtering in tcandidate
{$endif}
{$ifdef symansistr}
section: ansistring;
{$else symansistr}
section: pshortstring;
{$endif} {$endif}
constructor create(level:byte;doregister:boolean);virtual; constructor create(level:byte;doregister:boolean);virtual;
constructor ppuload(ppufile:tcompilerppufile); constructor ppuload(ppufile:tcompilerppufile);