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

* ognlm.pas cleanup:

Browse Source 
- removed redundant assigned() checks before .Free
  - removed DataPos_ExeSection method which only calls inherited
  - removed all references to RelocSections variable, it's safe because TExeOutput doesn't handle it since r21971.

git-svn-id: trunk@23085 -
This commit is contained in:
sergei 2012-12-01 15:25:34 +00:00
parent 73030ddb57
commit eb13da9355
1 changed files with 5 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
compiler/ognlm.pas
View File

@ -283,7 +283,6 @@ const NLM_MAX_DESCRIPTION_LENGTH = 127;
procedure GenerateLibraryImports(ImportLibraryList:TFPHashObjectList);override;
procedure MemPos_Start;override;
procedure MemPos_ExeSection(const aname:string);override;
procedure DataPos_ExeSection(const aname:string);override;
procedure NLMwriteString (const s : string; terminateWithZero : boolean);
procedure objNLMwriteString (const s : string; terminateWithZero : boolean);
procedure ParseScript (linkscript:TCmdStrList); override;
@ -390,7 +389,6 @@ end;
MaxMemPos:=$7FFFFFFF;
SectionMemAlign:=$0;
SectionDataAlign:=0;
RelocSection := true; // always needed for NLM's
nlmImports := TFPHashObjectList.create(true);
nlmImpNames := TFPHashObjectList.create(false);
NlmSymbols := TDynamicArray.create(4096);
@ -399,14 +397,10 @@ end;
destructor TNLMexeoutput.destroy;
begin
if assigned(nlmImports) then
nlmImports.Free;
if assigned(nlmImpNames) then
nlmImpNames.Free;
if assigned(nlmSymbols) then
nlmSymbols.Free;
if assigned(FexportFunctionOffsets) then
FexportFunctionOffsets.Free;
nlmImports.Free;
nlmImpNames.Free;
nlmSymbols.Free;
FexportFunctionOffsets.Free;
inherited destroy;
end;
@ -1167,7 +1161,7 @@ function SecOpts(SecOptions:TObjSectionOptions):string;
targetSectionName : string;
begin
if not RelocSection or FRelocsGenerated then
if FRelocsGenerated then
exit;
exesec:=FindExeSection('.reloc');
if exesec=nil then
@ -1251,12 +1245,6 @@ function SecOpts(SecOptions:TObjSectionOptions):string;
end;
procedure TNLMexeoutput.DataPos_ExeSection(const aname:string);
begin
inherited;
end;
procedure TNLMexeoutput.NLMwriteString (const s : string; terminateWithZero : boolean);
var len : byte;
begin