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

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