Browse Source

* Renamed a method for consistency (let script building methods start with ScriptAdd).

git-svn-id: trunk@21814 -
sergei 13 years ago
parent
commit
1a25aed68d
3 changed files with 4 additions and 4 deletions
  1. 2 2
      compiler/link.pas
  2. 1 1
      compiler/systems/t_go32v2.pas
  3. 1 1
      compiler/systems/t_win.pas

+ 2 - 2
compiler/link.pas

@@ -115,7 +115,7 @@ interface
          property StaticLibraryList:TFPHashObjectList read FStaticLibraryList;
          property ImportLibraryList:TFPHashObjectList read FImportLibraryList;
          procedure DefaultLinkScript;virtual;abstract;
-         procedure ConcatGenericSections(secnames:string);
+         procedure ScriptAddGenericSections(secnames:string);
          procedure ScriptAddSourceStatements(AddSharedAsStatic:boolean);virtual;
       public
          IsSharedLibrary : boolean;
@@ -1375,7 +1375,7 @@ Implementation
       end;
 
 
-    procedure TInternalLinker.ConcatGenericSections(secnames:string);
+    procedure TInternalLinker.ScriptAddGenericSections(secnames:string);
       var
         secname:string;
       begin

+ 1 - 1
compiler/systems/t_go32v2.pas

@@ -164,7 +164,7 @@ implementation
             Concat('  OBJSECTION .stabstr');
             Concat('ENDEXESECTION');
             { DWARF 2 }
-            ConcatGenericSections('.debug_aranges,.debug_pubnames,.debug_info,.debug_abbrev,'+
+            ScriptAddGenericSections('.debug_aranges,.debug_pubnames,.debug_info,.debug_abbrev,'+
               '.debug_line,.debug_frame,.debug_str,.debug_loc,.debug_macinfo');
             Concat('STABS');
             Concat('SYMBOLS');

+ 1 - 1
compiler/systems/t_win.pas

@@ -1058,7 +1058,7 @@ implementation
             Concat('  OBJSECTION .idata$6*');
             Concat('  OBJSECTION .idata$7*');
             Concat('ENDEXESECTION');
-            ConcatGenericSections('.edata,.rsrc,.reloc,.gnu_debuglink,'+
+            ScriptAddGenericSections('.edata,.rsrc,.reloc,.gnu_debuglink,'+
                       '.debug_aranges,.debug_pubnames,.debug_info,.debug_abbrev,.debug_line,.debug_frame,.debug_str,.debug_loc,'+
                       '.debug_macinfo,.debug_weaknames,.debug_funcnames,.debug_typenames,.debug_varnames,.debug_ranges');
             { Can't use the generic rules, because that will add also .stabstr to .stab }