diff --git a/compiler/aasmtai.pas b/compiler/aasmtai.pas index fdc3176777..6f1ca19972 100644 --- a/compiler/aasmtai.pas +++ b/compiler/aasmtai.pas @@ -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;