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

+ started the omf library object reader

Browse Source 
git-svn-id: trunk@30761 -
This commit is contained in:
nickysn 2015-05-02 10:32:08 +00:00
parent 08c4da7a9f
commit 5160c8f0a3
1 changed files with 72 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

72
compiler/owomflib.pas
View File

@ -71,6 +71,23 @@ type
procedure write(const b;len:longword);override;
end;
{ TOmfLibObjectReader }
TOmfLibObjectReader=class(TObjectReader)
private
islib: boolean;
CurrMemberPos : longint;
FPageSize: Integer;
procedure ReadLibrary;
public
constructor create(const Aarfn:string;allow_nonar:boolean=false);
destructor destroy;override;
function openfile(const fn:string):boolean;override;
procedure closefile;override;
procedure seek(len:longint);override;
property isarchive: boolean read islib;
end;
implementation
uses
@ -322,4 +339,59 @@ implementation
Result:=true;
end;
{*****************************************************************************
TOmfLibObjectReader
*****************************************************************************}
procedure TOmfLibObjectReader.ReadLibrary;
var
RawRecord: TOmfRawRecord;
Header: TOmfRecord_LIBHEAD;
begin
RawRecord:=TOmfRawRecord.Create;
RawRecord.ReadFrom(Self);
Header:=TOmfRecord_LIBHEAD.Create;
Header.DecodeFrom(RawRecord);
FPageSize:=Header.PageSize;
end;
constructor TOmfLibObjectReader.create(const Aarfn: string; allow_nonar: boolean);
var
RecType: Byte;
begin
inherited Create;
CurrMemberPos:=0;
if inherited openfile(Aarfn) then
begin
Read(RecType,1);
Seek(0);
islib:=RecType=RT_LIBHEAD;
if islib then
ReadLibrary
else if (not allow_nonar) then
Comment(V_Error,'Not an OMF library file, illegal magic: '+filename);
end;
end;
destructor TOmfLibObjectReader.destroy;
begin
inherited closefile;
inherited Destroy;
end;
function TOmfLibObjectReader.openfile(const fn: string): boolean;
begin
Result:=inherited openfile(fn);
end;
procedure TOmfLibObjectReader.closefile;
begin
CurrMemberPos:=0;
end;
procedure TOmfLibObjectReader.seek(len: longint);
begin
inherited Seek(CurrMemberPos+len);
end;
end.