paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-06 09:56:24 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/ogomf.pas
View File

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