From befb0ada5531a29f1590e4ea016e0da08d206eb3 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sun, 23 Aug 2020 10:21:40 +0000
Subject: [PATCH] * Allow dots

git-svn-id: branches/fixes_3_2@46633 -
---
 packages/fcl-db/src/codegen/fpddcodegen.pp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/packages/fcl-db/src/codegen/fpddcodegen.pp b/packages/fcl-db/src/codegen/fpddcodegen.pp
index 41b423d7a9..56a9020284 100644
--- a/packages/fcl-db/src/codegen/fpddcodegen.pp
+++ b/packages/fcl-db/src/codegen/fpddcodegen.pp
@@ -443,7 +443,7 @@ Resourcestring
 
 Function MakeIdentifier (S : String) : String;
 Function CreateString(S : String) : String;
-Procedure CheckIdentifier(AValue : String; AllowEmpty : Boolean = True);
+Procedure CheckIdentifier(AValue : String; AllowEmpty : Boolean = True; AllowDots : Boolean = False);
 
 implementation
 
@@ -454,10 +454,10 @@ begin
   Result:=''''+Result+'''';
 end;
 
-Procedure CheckIdentifier(AValue : String; AllowEmpty : Boolean = True);
+Procedure CheckIdentifier(AValue : String; AllowEmpty : Boolean = True; AllowDots : Boolean = False);
 
 begin
-  If ((AValue='') and Not AllowEmpty) or Not IsValidIdent(AValue) then
+  If ((AValue='') and Not AllowEmpty) or Not IsValidIdent(AValue,AllowDots) then
     Raise ECodeGenerator.CreateFmt(SErrInvalidIdentifier,[AValue]);
 end;
 
@@ -1686,7 +1686,7 @@ end;
 procedure TCodeGeneratorOptions.SetUnitname(const AValue: String);
 begin
   if FUnitName=AValue then exit;
-  CheckIdentifier(AValue,False);
+  CheckIdentifier(AValue,False,True);
   FUnitName:=AValue;
 end;