Path: blob/main/databases/db5/files/patch-lang_tcl_tcl__db.c
16462 views
--- lang/tcl/tcl_db.c.orig 2013-09-09 15:35:07 UTC1+++ lang/tcl/tcl_db.c2@@ -3708,9 +3708,10 @@ tcl_DbGetFlags(interp, objc, objv, dbp)3for (i = 0; db_flags[i].flag != 0; i++)4if (LF_ISSET(db_flags[i].flag)) {5if (strlen(buf) > 0)6- (void)strncat(buf, " ", sizeof(buf));7- (void)strncat(8- buf, db_flags[i].arg, sizeof(buf));9+ (void)strncat(buf, " ",10+ sizeof(buf) - (strlen(buf) + 1));11+ (void)strncat(buf, db_flags[i].arg,12+ sizeof(buf) - (strlen(buf) + 1));13}1415res = NewStringObj(buf, strlen(buf));16@@ -3764,9 +3765,10 @@ tcl_DbGetOpenFlags(interp, objc, objv, d17for (i = 0; open_flags[i].flag != 0; i++)18if (LF_ISSET(open_flags[i].flag)) {19if (strlen(buf) > 0)20- (void)strncat(buf, " ", sizeof(buf));21- (void)strncat(22- buf, open_flags[i].arg, sizeof(buf));23+ (void)strncat(buf, " ",24+ sizeof(buf) - (strlen(buf) + 1));25+ (void)strncat(buf, open_flags[i].arg,26+ sizeof(buf) - (strlen(buf) + 1));27}2829res = NewStringObj(buf, strlen(buf));303132