* Patch by Luiz (mantis #27503) that fixes a procedure-type that has

"char" as argumenttype instead of pchar/pansichar.

git-svn-id: trunk@29766 -
This commit is contained in:
marco 2015-02-20 10:50:40 +00:00
parent add4e800be
commit b2b56a4791

View File

@ -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}