Tcl Source Code

Check-in [df57190d7c]
Login

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

Overview
Comment:fix typo found by Coverity; no effect on "most" platforms (is there anyone where it would matter?)
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: df57190d7c34e00eab6b0e881ce02446a123aa7a
User & Date: msofer 2015-07-31 00:01:52
Context
2015-07-31
22:05
fix off-by-one possible buffer overrun when looking for encodings; found by coverity check-in: 65cc894ac5 user: msofer tags: trunk
00:01
fix typo found by Coverity; no effect on "most" platforms (is there anyone where it would matter?) check-in: df57190d7c user: msofer tags: trunk
2015-07-30
22:56
remove unnecessary checks found by coverity check-in: ea4f3ee751 user: msofer tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclFileName.c.

817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
	Tcl_Obj *pair[2];

	pair[0] = pathPtr;
	pair[1] = objv[0];
	return TclJoinPath(2, pair);
    } else {
	int elemc = objc + 1;
	Tcl_Obj *ret, **elemv = ckalloc(elemc*sizeof(Tcl_Obj **));

	elemv[0] = pathPtr;
	memcpy(elemv+1, objv, objc*sizeof(Tcl_Obj **));
	ret = TclJoinPath(elemc, elemv);
	ckfree(elemv);
	return ret;
    }
}

/*







|


|







817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
	Tcl_Obj *pair[2];

	pair[0] = pathPtr;
	pair[1] = objv[0];
	return TclJoinPath(2, pair);
    } else {
	int elemc = objc + 1;
	Tcl_Obj *ret, **elemv = ckalloc(elemc*sizeof(Tcl_Obj *));

	elemv[0] = pathPtr;
	memcpy(elemv+1, objv, objc*sizeof(Tcl_Obj *));
	ret = TclJoinPath(elemc, elemv);
	ckfree(elemv);
	return ret;
    }
}

/*