From 8fa5c6e4458370dc6d777712d55cf9e9a2663cce Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Sun, 19 May 2019 08:42:36 +0000
Subject: [PATCH] --- Merging r41612 into '.': U   
 packages/sqlite/tests/testapiv3x.pp --- Recording mergeinfo for merge of
 r41612 into '.':  U   .

# revisions: 41612
r41612 | michael | 2019-03-06 08:27:28 +0100 (Wed, 06 Mar 2019) | 1 line
Changed paths:
   M /trunk/packages/sqlite/tests/testapiv3x.pp

* Fix bug #35194

git-svn-id: branches/fixes_3_2@42099 -
---
 packages/sqlite/tests/testapiv3x.pp | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/packages/sqlite/tests/testapiv3x.pp b/packages/sqlite/tests/testapiv3x.pp
index ea820980ce..fbc703f9d5 100644
--- a/packages/sqlite/tests/testapiv3x.pp
+++ b/packages/sqlite/tests/testapiv3x.pp
@@ -10,7 +10,7 @@ const
 
 var
  rc       : Integer;
- db       : PPsqlite3;
+ db       : Psqlite3;
  sql      : string;
  pzErrMsg : PChar;
  
@@ -77,7 +77,11 @@ begin
    then writeln(Format('SQL error: %s', [pzErrMsg^]));
   finally sqlite3_close(db); end;
 
-  sleep(5000);
+{$ifdef Windows}
+  writeln('Hit enter to exit');
+  Readln;
+{$endif}
+
 end.