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

sqlite3: in ffi, fix _ptr arguments to #:blocking? #t functions

Browse Source
This commit is contained in:
Matthew Flatt 2021-04-04 08:20:09 -06:00
parent ed8019742c
commit d3f3be5dc5
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -87,8 +87,8 @@
(db : _sqlite3_database)
(sql-buffer : _gcpointer = (trim-and-copy-buffer sql))
((c-string-length sql-buffer) : _int)
(statement : (_ptr o _sqlite3_statement/null))
(tail : (_ptr o _pointer)) ;; points into sql-buffer (atomic-interior)
(statement : (_ptr o _sqlite3_statement/null atomic-interior))
(tail : (_ptr o _pointer atomic-interior)) ;; points into sql-buffer (atomic-interior)
-> (result : _int)
-> (values result statement (and tail
(not (points-to-end? tail sql-buffer))))))
@ -100,8 +100,8 @@
(sql-buffer : _gcpointer = (trim-and-copy-buffer sql))
((c-string-length sql-buffer) : _int)
;; bad prepare statements set statement to NULL, with no error reported
(statement : (_ptr o _sqlite3_statement/null))
(tail : (_ptr o _pointer)) ;; points into sql-buffer (atomic-interior)
(statement : (_ptr o _sqlite3_statement/null atomic-interior))
(tail : (_ptr o _pointer atomic-interior)) ;; points into sql-buffer (atomic-interior)
-> (result : _int)
-> (values result statement (and tail
(not (points-to-end? tail sql-buffer)))))