paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-05 12:27:20 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ readded the FIsCaseSensitive variable (that was removed in r31734) as a

Browse Source 
property in the TOmfLibObjectReader class

git-svn-id: trunk@31751 -
This commit is contained in:
nickysn 2015-09-17 16:53:46 +00:00
parent e1a0b1204a
commit b3226f2e63
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/owomflib.pas
View File

@ -81,6 +81,7 @@ type
CurrMemberPos : longint;
CurrMemberName : string;
FPageSize: Integer;
FIsCaseSensitive: Boolean;
procedure ReadLibrary;
procedure ReadDictionary(DictionaryOffset: DWord; DictionarySizeInBlocks: Word);
protected
@ -93,6 +94,7 @@ type
function openfile(const fn:string):boolean;override;
procedure closefile;override;
procedure seek(len:longint);override;
property IsCaseSensitive: Boolean read FIsCaseSensitive;
end;
implementation
@ -365,6 +367,7 @@ implementation
Header:=TOmfRecord_LIBHEAD.Create;
Header.DecodeFrom(RawRecord);
FPageSize:=Header.PageSize;
FIsCaseSensitive:=Header.CaseSensitive;
ReadDictionary(Header.DictionaryOffset, Header.DictionarySizeInBlocks);
Header.Free;
RawRecord.Free;