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

* the CaseSensitive property in TOmfObjInput renamed CaseSensitiveSegments,

Browse Source 
because it only applies to segments/groups/overlays and not symbols.

git-svn-id: trunk@32389 -
This commit is contained in:
nickysn 2015-11-21 11:25:21 +00:00
parent 89d37c1e69
commit d5428ee210
1 changed files with 5 additions and 5 deletions

10
compiler/ogomf.pas
View File

@ -146,7 +146,7 @@ interface
FExtDefs: TFPHashObjectList;
FPubDefs: TFPHashObjectList;
FRawRecord: TOmfRawRecord;
FCaseSensitive: Boolean;
FCaseSensitiveSegments: Boolean;
function PeekNextRecordType: Byte;
@ -165,7 +165,7 @@ interface
{ Specifies whether we're case sensitive in regards to segment, class, overlay and group names.
Symbols (in EXTDEF and PUBDEF records) are always case sensitive, regardless of the value of this property. }
property CaseSensitive: Boolean read FCaseSensitive write FCaseSensitive;
property CaseSensitiveSegments: Boolean read FCaseSensitiveSegments write FCaseSensitiveSegments;
public
constructor create;override;
destructor destroy;override;
@ -1129,7 +1129,7 @@ implementation
exit;
end;
end;
if not CaseSensitive then
if not CaseSensitiveSegments then
begin
SegmentName:=UpCase(SegmentName);
SegClassName:=UpCase(SegClassName);
@ -1180,7 +1180,7 @@ implementation
exit;
end;
GroupName:=LNames[GrpDefRec.GroupNameIndex];
if not CaseSensitive then
if not CaseSensitiveSegments then
GroupName:=UpCase(GroupName);
SecGroup:=objdata.createsectiongroup(GroupName);
SetLength(SecGroup.members,Length(GrpDefRec.SegmentList));
@ -1702,7 +1702,7 @@ implementation
FExtDefs:=TFPHashObjectList.Create;
FPubDefs:=TFPHashObjectList.Create;
FRawRecord:=TOmfRawRecord.Create;
CaseSensitive:=False;
CaseSensitiveSegments:=False;
end;
destructor TOmfObjInput.destroy;