From d5428ee21035a0a992e15467ad95e6b9abe4d931 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Sat, 21 Nov 2015 11:25:21 +0000
Subject: [PATCH] * the CaseSensitive property in TOmfObjInput renamed
 CaseSensitiveSegments,   because it only applies to segments/groups/overlays
 and not symbols.

git-svn-id: trunk@32389 -
---
 compiler/ogomf.pas | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/compiler/ogomf.pas b/compiler/ogomf.pas
index 8c4a87d70f..75eebdb0f1 100644
--- a/compiler/ogomf.pas
+++ b/compiler/ogomf.pas
@@ -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;