From 7fe9c4ba732750e2bb17cb3775628ccb09ceeef1 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Fri, 18 Feb 2022 16:38:24 +0100
Subject: [PATCH] * Need fielddefs

(cherry picked from commit 1b4ad74b68894681b8a521c02b7469e0a354bfa7)
---
 packages/fcl-db/src/codegen/fpcgtypesafedataset.pp | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/packages/fcl-db/src/codegen/fpcgtypesafedataset.pp b/packages/fcl-db/src/codegen/fpcgtypesafedataset.pp
index 17f8402d4c..0d3d40ece9 100644
--- a/packages/fcl-db/src/codegen/fpcgtypesafedataset.pp
+++ b/packages/fcl-db/src/codegen/fpcgtypesafedataset.pp
@@ -128,6 +128,7 @@ Type
     Constructor Create(AOwner : TComponent); override;
     Destructor Destroy; override;
     Class Function NeedsSQL: Boolean; override;
+    Class Function NeedsFieldDefs : Boolean; override;
     Property SafeOpts : TGenTypeSafeDatasetOptions Read GetSafeOpts;
   end;
 
@@ -818,6 +819,12 @@ begin
   Result:=True;
 end;
 
+Class Function TDDTypeSafeDatasetCodeGenerator.NeedsFieldDefs : Boolean; 
+
+begin
+  Result:=True;
+end;
+
 { TGenTypeSafeDatasetOptions }
 
 function TGenTypeSafeDatasetOptions.GetInterfaceName: String;