tdbc::mysql

Check-in [9e11d6fc7b]
Login
Bounty program for improvements to Tcl and certain Tcl packages.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Fix [1e62e46d27]: Result set leak
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 9e11d6fc7b9a037076ae134ce1ff5a9b23b22b4943c1f9af1101145e8751c058
User & Date: jan.nijtmans 2020-02-07 15:10:16
References
2020-02-07
15:12 Closed ticket [1e62e46d27]: Result set leak plus 4 other changes artifact: 727fe36fb5 user: jan.nijtmans
Context
2020-02-11
11:12
TEA update check-in: 18836d9439 user: jan.nijtmans tags: trunk
2020-02-07
15:10
Fix [1e62e46d27]: Result set leak check-in: 9e11d6fc7b user: jan.nijtmans tags: trunk
2019-11-20
16:33
TEA update check-in: 78b6ff77cc user: dgp tags: trunk, tdbcmysql-1-1-1
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tdbcmysql.c.

225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
#define IncrResultSetRefCount(x)		\
    do {					\
	++((x)->refCount);			\
    } while (0)
#define DecrResultSetRefCount(x)		\
    do {					\
	ResultSetData* rs = (x);		\
	if ((rs->refCount--) <= 0) {		\
	    DeleteResultSet(rs);		\
	}					\
    } while(0)

/* Table of MySQL type names */

#define IS_BINARY	(1<<16)	/* Flag to OR in if a param is binary */






|







225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
#define IncrResultSetRefCount(x)		\
    do {					\
	++((x)->refCount);			\
    } while (0)
#define DecrResultSetRefCount(x)		\
    do {					\
	ResultSetData* rs = (x);		\
	if (rs->refCount-- <= 1) {		\
	    DeleteResultSet(rs);		\
	}					\
    } while(0)

/* Table of MySQL type names */

#define IS_BINARY	(1<<16)	/* Flag to OR in if a param is binary */