Tk Source Code

Check-in [d6040611]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

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

Overview
Comment:René Zaumseil fixed a crash
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | tip-507
Files: files | file ages | folders
SHA3-256: d6040611934d64e42716d78e6b5ed924975fae5488c9eeac3d9290fc52d2f2e1
User & Date: fvogel 2018-06-04 21:03:04
Context
2018-06-04
21:04
Test added by René Zaumseil for the crash he just fixed check-in: b935c022 user: fvogel tags: tip-507
21:03
René Zaumseil fixed a crash check-in: d6040611 user: fvogel tags: tip-507
2018-05-16
18:16
New files provided by René Zaumseil check-in: 2bc38f44 user: fvogel tags: tip-507
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tkImgSVGnano.c.

373
374
375
376
377
378
379

380
381
382
383
384
385
386
	if (Tcl_GetIndexFromObjStruct(interp, objv[0], fmtOptions,
		sizeof(char *), "option", 0, &optIndex) == TCL_ERROR) {
	    goto error;
	}

	if (objc < 2) {
	    ckfree(inputCopy);

	    Tcl_WrongNumArgs(interp, 1, objv, "value");
	    goto error;
	}

	objc--;
	objv++;







>







373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
	if (Tcl_GetIndexFromObjStruct(interp, objv[0], fmtOptions,
		sizeof(char *), "option", 0, &optIndex) == TCL_ERROR) {
	    goto error;
	}

	if (objc < 2) {
	    ckfree(inputCopy);
	    inputCopy = NULL;
	    Tcl_WrongNumArgs(interp, 1, objv, "value");
	    goto error;
	}

	objc--;
	objv++;