[src/netbsd-7]: src/lib/lua/sqlite Pull up following revision(s) (requested b...

[snj <snj%NetBSD.org@localhost>]

details:   https://anonhg.NetBSD.org/src/rev/10c301d90451
branches:  netbsd-7
changeset: 800226:10c301d90451
user:      snj <snj%NetBSD.org@localhost>
date:      Sat Jun 03 17:11:51 2017 +0000

description:
Pull up following revision(s) (requested by mbalmer in ticket #1416):
        lib/lua/sqlite/sqlite.c: revision 1.9
Guard against double freeing of objects (explicit by the Lua program,
then later by the garbage collector).
This fixes PR bin/52218.

diffstat:

 lib/lua/sqlite/sqlite.c |  15 +++++++++++----
 1 files changed, 11 insertions(+), 4 deletions(-)

diffs (38 lines):

diff -r 987c3801df19 -r 10c301d90451 lib/lua/sqlite/sqlite.c
--- a/lib/lua/sqlite/sqlite.c   Sat Jun 03 17:03:02 2017 +0000
+++ b/lib/lua/sqlite/sqlite.c   Sat Jun 03 17:11:51 2017 +0000
@@ -1,7 +1,7 @@
-/*     $NetBSD: sqlite.c,v 1.7 2014/07/19 18:38:34 lneto Exp $ */
+/*     $NetBSD: sqlite.c,v 1.7.2.1 2017/06/03 17:11:51 snj Exp $ */
 
 /*
- * Copyright (c) 2011, 2013 Marc Balmer <marc%msys.ch@localhost>
+ * Copyright (c) 2011, 2013, 2016, 2017 Marc Balmer <marc%msys.ch@localhost>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -120,7 +120,11 @@
        sqlite3 **db;
 
        db = luaL_checkudata(L, 1, SQLITE_DB_METATABLE);
-       lua_pushinteger(L, sqlite3_close(*db));
+       if (*db) {
+               lua_pushinteger(L, sqlite3_close(*db));
+               *db = NULL;
+       } else
+               lua_pushnil(L);
        return 1;
 
 }
@@ -342,7 +346,10 @@
        sqlite3_stmt **stmt;
 
        stmt = luaL_checkudata(L, 1, SQLITE_STMT_METATABLE);
-       sqlite3_finalize(*stmt);
+       if (*stmt) {
+               sqlite3_finalize(*stmt);
+               *stmt = NULL;
+       }
        return 0;
 }