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

+ implemented TOmfLibObjectReader.openfile

Browse Source 
git-svn-id: trunk@30773 -
This commit is contained in:
nickysn 2015-05-03 10:56:09 +00:00
parent 3b56a5a767
commit 7849ffecf7
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/owomflib.pas
View File

@ -426,8 +426,16 @@ implementation
end; end;
function TOmfLibObjectReader.openfile(const fn: string): boolean; function TOmfLibObjectReader.openfile(const fn: string): boolean;
var
libsym: TOmfLibDictionaryEntry;
begin begin
Result:=inherited openfile(fn); result:=false;
libsym:=TOmfLibDictionaryEntry(LibSymbols.Find(ModName2DictEntry(fn)));
if not assigned(libsym) then
exit;
CurrMemberPos:=libsym.PageNum*FPageSize;
inherited Seek(CurrMemberPos);
result:=true;
end; end;
procedure TOmfLibObjectReader.closefile; procedure TOmfLibObjectReader.closefile;