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

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

Browse Source 
git-svn-id: trunk@21814 -
This commit is contained in:
sergei 2012-07-07 22:49:05 +00:00
parent a553798151
commit 1a25aed68d
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/link.pas
View File

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

2
compiler/systems/t_go32v2.pas
View File

@ -164,7 +164,7 @@ implementation
Concat(' OBJSECTION .stabstr'); Concat(' OBJSECTION .stabstr');
Concat('ENDEXESECTION'); Concat('ENDEXESECTION');
{ DWARF 2 } { 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'); '.debug_line,.debug_frame,.debug_str,.debug_loc,.debug_macinfo');
Concat('STABS'); Concat('STABS');
Concat('SYMBOLS'); Concat('SYMBOLS');

2
compiler/systems/t_win.pas
View File

@ -1058,7 +1058,7 @@ implementation
Concat(' OBJSECTION .idata$6*'); Concat(' OBJSECTION .idata$6*');
Concat(' OBJSECTION .idata$7*'); Concat(' OBJSECTION .idata$7*');
Concat('ENDEXESECTION'); 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_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'); '.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 } { Can't use the generic rules, because that will add also .stabstr to .stab }