From 95bdfd1be4537e16a944deb10c4cb1495e2e0219 Mon Sep 17 00:00:00 2001
From: michael <michael@lazarus-ide.org>
Date: Thu, 14 May 2020 11:48:24 +0000
Subject: [PATCH] * Some corrections in set unit name based on filename

git-svn-id: trunk@63153 -
---
 components/datadict/frmbaseconfigcodegenerator.pp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/components/datadict/frmbaseconfigcodegenerator.pp b/components/datadict/frmbaseconfigcodegenerator.pp
index 4823cf8679..04981b1f3f 100644
--- a/components/datadict/frmbaseconfigcodegenerator.pp
+++ b/components/datadict/frmbaseconfigcodegenerator.pp
@@ -238,7 +238,7 @@ Var
   OldName,NewName : string;
 
 begin
-  OldName:=FGen.CodeOptions.UnitName;
+  OldName:=FCodeOptions.UnitName;
   if (OldName='') or
      SameText(OldName,'Unit1') or
      SameText(OldName,FLastname) then
@@ -246,10 +246,10 @@ begin
      NewName:=ExtractFileName(FEFile.FileName);
      FLastName:=NewName;
      // Strip off known extensions
-     if (IndexText(ExtractFileExt(FileName),['.pas','.pp','.inc','.lpr','.dpr'])<>-1) then
-       FGen.CodeOptions.UnitName:=ChangeFileExt(NewName,'')
+     if (IndexText(ExtractFileExt(NewName),['.pas','.pp','.inc','.lpr','.dpr'])<>-1) then
+       FCodeOptions.UnitName:=ChangeFileExt(NewName,'')
      else
-       FGen.CodeOptions.UnitName:=NewName;
+       FCodeOptions.UnitName:=NewName;
      end;
 end;