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

* TOmfObjInput.ReadLEDataAndFixups renamed ReadLeOrLiDataAndFixups

Browse Source 
git-svn-id: trunk@39170 -
This commit is contained in:
nickysn 2018-06-04 14:10:11 +00:00
parent e410a0aefb
commit 02fc2827e0
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/ogomf.pas
View File

@ -164,7 +164,7 @@ interface
function ReadExtDef(RawRec: TOmfRawRecord; objdata:TObjData): Boolean; function ReadExtDef(RawRec: TOmfRawRecord; objdata:TObjData): Boolean;
function ReadPubDef(RawRec: TOmfRawRecord; objdata:TObjData): Boolean; function ReadPubDef(RawRec: TOmfRawRecord; objdata:TObjData): Boolean;
function ReadModEnd(RawRec: TOmfRawRecord; objdata:TObjData): Boolean; function ReadModEnd(RawRec: TOmfRawRecord; objdata:TObjData): Boolean;
function ReadLEDataAndFixups(RawRec: TOmfRawRecord; objdata:TObjData): Boolean; function ReadLeOrLiDataAndFixups(RawRec: TOmfRawRecord; objdata:TObjData): Boolean;
function ImportOmfFixup(objdata: TObjData; objsec: TOmfObjSection; Fixup: TOmfSubRecord_FIXUP): Boolean; function ImportOmfFixup(objdata: TObjData; objsec: TOmfObjSection; Fixup: TOmfSubRecord_FIXUP): Boolean;
property LNames: TOmfOrderedNameCollection read FLNames; property LNames: TOmfOrderedNameCollection read FLNames;
@ -1485,7 +1485,7 @@ implementation
Result:=True; Result:=True;
end; end;
function TOmfObjInput.ReadLEDataAndFixups(RawRec: TOmfRawRecord; objdata: TObjData): Boolean; function TOmfObjInput.ReadLeOrLiDataAndFixups(RawRec: TOmfRawRecord; objdata: TObjData): Boolean;
var var
Is32Bit: Boolean; Is32Bit: Boolean;
NextOfs: Integer; NextOfs: Integer;
@ -1988,7 +1988,7 @@ implementation
exit; exit;
RT_LEDATA,RT_LEDATA32, RT_LEDATA,RT_LEDATA32,
RT_FIXUPP,RT_FIXUPP32: RT_FIXUPP,RT_FIXUPP32:
if not ReadLEDataAndFixups(FRawRecord,objdata) then if not ReadLeOrLiDataAndFixups(FRawRecord,objdata) then
exit; exit;
RT_LIDATA,RT_LIDATA32: RT_LIDATA,RT_LIDATA32:
begin begin