Skip to content

Commit ee88aca

Browse files
committed
Merge remote-tracking branch 'refs/remotes/origin/master'.
2 parents 71bf2e9 + b7642b9 commit ee88aca

File tree

2 files changed

+20
-2
lines changed

2 files changed

+20
-2
lines changed

COVERAGE.md

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -36,8 +36,8 @@
3636
| `sqlite3_busy_handler` ||
3737
| `sqlite3_busy_timeout` ||
3838
| `sqlite3_cancel_auto_extension` | |
39-
| `sqlite3_changes` | |
40-
| `sqlite3_changes64` | |
39+
| `sqlite3_changes` | |
40+
| `sqlite3_changes64` | |
4141
| `sqlite3_clear_bindings` ||
4242
| `sqlite3_close` ||
4343
| `sqlite3_close_v2` ||

src/sqlite3.F90

Lines changed: 18 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -196,6 +196,8 @@ module sqlite3
196196
public :: sqlite3_bind_text_
197197
public :: sqlite3_busy_handler
198198
public :: sqlite3_busy_timeout
199+
public :: sqlite3_changes
200+
public :: sqlite3_changes64
199201
public :: sqlite3_clear_bindings
200202
public :: sqlite3_close
201203
public :: sqlite3_close_
@@ -431,6 +433,22 @@ function sqlite3_busy_timeout(db, ms) bind(c, name='sqlite3_busy_timeout')
431433
integer(kind=c_int) :: sqlite3_busy_timeout
432434
end function sqlite3_busy_timeout
433435

436+
! int sqlite3_changes(sqlite3 *db)
437+
function sqlite3_changes(db) bind(c, name='sqlite3_changes')
438+
import :: c_int, c_ptr
439+
implicit none
440+
type(c_ptr), intent(in), value :: db
441+
integer(kind=c_int) :: sqlite3_changes
442+
end function sqlite3_changes
443+
444+
! sqlite3_int64 sqlite3_changes64(sqlite3 *db)
445+
function sqlite3_changes64(db) bind(c, name='sqlite3_changes64')
446+
import :: c_int64_t, c_ptr
447+
implicit none
448+
type(c_ptr), intent(in), value :: db
449+
integer(kind=c_int64_t) :: sqlite3_changes64
450+
end function sqlite3_changes64
451+
434452
! int sqlite3_clear_bindings(sqlite3_stmt *stmt)
435453
function sqlite3_clear_bindings(stmt) bind(c, name='sqlite3_clear_bindings')
436454
import :: c_int, c_ptr

0 commit comments

Comments
 (0)