suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

db: mark sqlite3_step and sqlite3_prepare* as blocking

Browse Source 
This allows the GC to run during these ffi calls. It is probably only
worth marking often-used, potentially long-running calls.
This commit is contained in:
Ryan Culpepper 2021-03-27 23:23:37 +01:00
parent 013368188c
commit d65e648d6a
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
racket/collects/db/private/sqlite3/ffi.rkt
View File

@ -82,7 +82,8 @@
(ptr-add sql-buffer (c-string-length sql-buffer)))) (ptr-add sql-buffer (c-string-length sql-buffer))))
(define-sqlite sqlite3_prepare (define-sqlite sqlite3_prepare
(_fun (db sql) :: (_fun #:blocking? #t
(db sql) ::
(db : _sqlite3_database) (db : _sqlite3_database)
(sql-buffer : _gcpointer = (trim-and-copy-buffer sql)) (sql-buffer : _gcpointer = (trim-and-copy-buffer sql))
((c-string-length sql-buffer) : _int) ((c-string-length sql-buffer) : _int)
@ -93,7 +94,8 @@
(not (points-to-end? tail sql-buffer)))))) (not (points-to-end? tail sql-buffer))))))
(define-sqlite sqlite3_prepare_v2 (define-sqlite sqlite3_prepare_v2
(_fun (db sql) :: (_fun #:blocking? #t
(db sql) ::
(db : _sqlite3_database) (db : _sqlite3_database)
(sql-buffer : _gcpointer = (trim-and-copy-buffer sql)) (sql-buffer : _gcpointer = (trim-and-copy-buffer sql))
((c-string-length sql-buffer) : _int) ((c-string-length sql-buffer) : _int)
@ -181,7 +183,8 @@
;; ---------------------------------------- ;; ----------------------------------------
(define-sqlite sqlite3_step (define-sqlite sqlite3_step
(_fun _sqlite3_statement -> _int)) (_fun #:blocking? #t
_sqlite3_statement -> _int))
(define-sqlite sqlite3_column_type (define-sqlite sqlite3_column_type
(_fun _sqlite3_statement _int -> _int)) (_fun _sqlite3_statement _int -> _int))