From 405025123d83c4135337a378a674e2caac407007 Mon Sep 17 00:00:00 2001
From: michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2>
Date: Sat, 17 Oct 2009 14:05:11 +0000
Subject: * Patch from Graeme Geldenhuys to fix some minor issues in code
 generation (bug ID 13779)

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@13897 3ad0048d-3df7-0310-abae-a5850022a9f2
---
 packages/fcl-db/src/codegen/fpddcodegen.pp | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'packages/fcl-db/src/codegen/fpddcodegen.pp')

diff --git a/packages/fcl-db/src/codegen/fpddcodegen.pp b/packages/fcl-db/src/codegen/fpddcodegen.pp
index 607b0336f5..a3bb5c187c 100644
--- a/packages/fcl-db/src/codegen/fpddcodegen.pp
+++ b/packages/fcl-db/src/codegen/fpddcodegen.pp
@@ -1279,6 +1279,8 @@ begin
     begin
     Addln(Strings,'Unit '+CodeOptions.UnitName+';');
     Addln(Strings);
+    Addln(Strings, '{$mode objfpc}{$H+}');
+    Addln(Strings);
     Addln(Strings,'Interface');
     Addln(Strings);
     S:=GetInterfaceUsesClause;
-- 
cgit v1.2.1