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

- removed unused section_symbol_start/end() routines

Browse Source 
git-svn-id: trunk@34161 -
This commit is contained in:
Jonas Maebe 2016-07-20 20:52:50 +00:00
parent 9252bf4d64
commit 60fe7c2888
1 changed files with 0 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
compiler/aasmtai.pas
View File

@ -911,9 +911,6 @@ interface
procedure maybe_new_object_file(list:TAsmList);
procedure new_section(list:TAsmList;Asectype:TAsmSectiontype;const Aname:string;Aalign:byte;Asecorder:TasmSectionorder=secorder_default);
procedure section_symbol_start(list:TAsmList;const Aname:string;Asymtyp:Tasmsymtype;
Aglobal:boolean;Asectype:TAsmSectiontype;Aalign:byte);
procedure section_symbol_end(list:TAsmList;const Aname:string);
function ppuloadai(ppufile:tcompilerppufile):tai;
procedure ppuwriteai(ppufile:tcompilerppufile;n:tai);
@ -948,25 +945,6 @@ implementation
end;
procedure section_symbol_start(list:TAsmList;const Aname:string;Asymtyp:Tasmsymtype;
Aglobal:boolean;Asectype:TAsmSectiontype;Aalign:byte);
begin
maybe_new_object_file(list);
new_section(list,Asectype,Aname,Aalign);
if Aglobal or
create_smartlink then
list.concat(tai_symbol.createname_global(Aname,Asymtyp,0))
else
list.concat(tai_symbol.createname(Aname,Asymtyp,0));
end;
procedure section_symbol_end(list:TAsmList;const Aname:string);
begin
list.concat(tai_symbol_end.createname(Aname));
end;
function ppuloadai(ppufile:tcompilerppufile):tai;
var
b : byte;