From b2b56a4791789972d6ee74c18ce7a29a2dc49005 Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Fri, 20 Feb 2015 10:50:40 +0000
Subject: [PATCH]  * Patch by Luiz (mantis #27503) that fixes a procedure-type
 that has  "char" as argumenttype instead of pchar/pansichar.

git-svn-id: trunk@29766 -
---
 packages/sqlite/src/sqlite3.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/sqlite/src/sqlite3.inc b/packages/sqlite/src/sqlite3.inc
index 74da066e49..bb31cacddb 100644
--- a/packages/sqlite/src/sqlite3.inc
+++ b/packages/sqlite/src/sqlite3.inc
@@ -427,7 +427,7 @@ const
 
 type
   xTrace = procedure(user: pointer; s: pansichar); cdecl;
-  xProfile = procedure(user: pointer; s: char; i: sqlite3_uint64); cdecl;
+  xProfile = procedure(user: pointer; s: pansichar; i: sqlite3_uint64); cdecl;
 
 {$IFDEF S}function{$ELSE}var{$ENDIF}sqlite3_trace{$IFDEF D}: function{$ENDIF}(db: psqlite3; cb: xTrace; user: pointer): pointer; cdecl;{$IFDEF S}external Sqlite3Lib;{$ENDIF}
 {$IFDEF S}function{$ELSE}var{$ENDIF}sqlite3_profile{$IFDEF D}: function{$ENDIF}(db: psqlite3; cb: xProfile; user: pointer): pointer; cdecl;{$IFDEF S}external Sqlite3Lib;{$ENDIF}