Tcl Source Code

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

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

Overview
Comment:
[kennykb-numerics-branch] Merge updates from HEAD.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | kennykb-numerics-branch
Files: files | file ages | folders
SHA1:0b3ca397c7cf22f4ee82d9644f67b69f982b32e6
User & Date: dgp 2005-09-12 14:47:16
Context
2005-09-12
19:12
* generic/tclCmdAH.c: Added support for the "ll" width * generic/tclString...
check-in: a74d98295f user: dgp tags: kennykb-numerics-branch
14:47
[kennykb-numerics-branch] Merge updates from HEAD.
check-in: 0b3ca397c7 user: dgp tags: kennykb-numerics-branch
2005-09-09
19:27
silence compiler warnings check-in: d68f155509 user: dgp tags: kennykb-numerics-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to ChangeLog.
















1
2
3
4
5
6
7















2005-09-09  Don Porter  <dgp@users.sourceforge.net>

	[kennykb-numerics-branch]	Merge updates from HEAD.

2005-09-09  Kevin Kenny  <kennykb@acm.org>

	* generic/tclStringObj.c:  Added two missing casts to silence
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>







1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
2005-09-12  Don Porter  <dgp@users.sourceforge.net>

	[kennykb-numerics-branch]	Merge updates from HEAD.

	* generic/tclStringObj.c (TclAppendFormattedObjs):	Bug fix:
	make sure %ld formats force the collection of a wide value, when
	the value could be a different long.

2005-09-09  Andreas Kupries <andreask@activestate.com>

	* generic/tclIORChan.c (RcDecodeEventMask): Added missing type
	  declaration for the parameter 'mask'. This fixes the [SF Tcl Bug
	  1286256]. The other warning can be removed only by removing the
	  panic/return code.

2005-09-09  Don Porter  <dgp@users.sourceforge.net>

	[kennykb-numerics-branch]	Merge updates from HEAD.

2005-09-09  Kevin Kenny  <kennykb@acm.org>

	* generic/tclStringObj.c:  Added two missing casts to silence

Changes to generic/tclIORChan.c.

11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
....
1834
1835
1836
1837
1838
1839
1840

1841
1842
1843
1844
1845
1846
1847
 *      See TIP #219 for the specification of this functionality.
 *
 * Copyright (c) 2004-2005 ActiveState, a divison of Sophos
 *
 * See the file "license.terms" for information on usage and redistribution
 * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 *
 * RCS: @(#) $Id: tclIORChan.c,v 1.1.2.3 2005/09/09 18:48:40 dgp Exp $
 */

#include <tclInt.h>
#include <tclIO.h>
#include <assert.h>

#ifndef EINVAL
................................................................................
 *	None.
 *
 *----------------------------------------------------------------------
 */

static Tcl_Obj*
RcDecodeEventMask (mask)

{
    Tcl_Obj* evObj = Tcl_NewStringObj (((mask & RANDW) == RANDW) ?
				       "read write" :
				       ((mask & TCL_READABLE) ?
					"read" :
					((mask & TCL_WRITABLE) ?
					 "write" : "")), -1);







|







 







>







11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
....
1834
1835
1836
1837
1838
1839
1840
1841
1842
1843
1844
1845
1846
1847
1848
 *      See TIP #219 for the specification of this functionality.
 *
 * Copyright (c) 2004-2005 ActiveState, a divison of Sophos
 *
 * See the file "license.terms" for information on usage and redistribution
 * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 *
 * RCS: @(#) $Id: tclIORChan.c,v 1.1.2.4 2005/09/12 14:47:16 dgp Exp $
 */

#include <tclInt.h>
#include <tclIO.h>
#include <assert.h>

#ifndef EINVAL
................................................................................
 *	None.
 *
 *----------------------------------------------------------------------
 */

static Tcl_Obj*
RcDecodeEventMask (mask)
     int mask;
{
    Tcl_Obj* evObj = Tcl_NewStringObj (((mask & RANDW) == RANDW) ?
				       "read write" :
				       ((mask & TCL_READABLE) ?
					"read" :
					((mask & TCL_WRITABLE) ?
					 "write" : "")), -1);

Changes to generic/tclStringObj.c.

29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
....
1919
1920
1921
1922
1923
1924
1925




1926
1927
1928
1929
1930
1931
1932
1933
1934
1935
1936
1937
1938
1939
 *
 * Copyright (c) 1995-1997 Sun Microsystems, Inc.
 * Copyright (c) 1999 by Scriptics Corporation.
 *
 * See the file "license.terms" for information on usage and redistribution of
 * this file, and for a DISCLAIMER OF ALL WARRANTIES.
 *
 * RCS: @(#) $Id: tclStringObj.c,v 1.35.2.5 2005/09/09 19:27:15 dgp Exp $ */

#include "tclInt.h"

/*
 * Prototypes for functions defined later in this file:
 */

................................................................................
	case 'x':
	case 'X': {
	    short int s;
	    long l;
	    Tcl_WideInt w;
	    int isNegative = 0;





	    if (Tcl_GetLongFromObj(NULL, segment, &l) != TCL_OK) {
		if (Tcl_GetWideIntFromObj(interp, segment, &w) != TCL_OK) {
		    goto error;
		}
		l = Tcl_WideAsLong(w);
	    } else if (useWide) {
		w = Tcl_LongAsWide(l);
	    }

	    if (useShort) {
		s = (short int) l;
		isNegative = (s < (short int)0);
	    } else if (useWide) {
		isNegative = (w < (Tcl_WideInt)0);







|







 







>
>
>
>
|




<
<







29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
....
1919
1920
1921
1922
1923
1924
1925
1926
1927
1928
1929
1930
1931
1932
1933
1934


1935
1936
1937
1938
1939
1940
1941
 *
 * Copyright (c) 1995-1997 Sun Microsystems, Inc.
 * Copyright (c) 1999 by Scriptics Corporation.
 *
 * See the file "license.terms" for information on usage and redistribution of
 * this file, and for a DISCLAIMER OF ALL WARRANTIES.
 *
 * RCS: @(#) $Id: tclStringObj.c,v 1.35.2.6 2005/09/12 14:47:16 dgp Exp $ */

#include "tclInt.h"

/*
 * Prototypes for functions defined later in this file:
 */

................................................................................
	case 'x':
	case 'X': {
	    short int s;
	    long l;
	    Tcl_WideInt w;
	    int isNegative = 0;

	    if (useWide) {
		if (Tcl_GetWideIntFromObj(interp, segment, &w) != TCL_OK) {
		    goto error;
		}
	    } else if (Tcl_GetLongFromObj(NULL, segment, &l) != TCL_OK) {
		if (Tcl_GetWideIntFromObj(interp, segment, &w) != TCL_OK) {
		    goto error;
		}
		l = Tcl_WideAsLong(w);


	    }

	    if (useShort) {
		s = (short int) l;
		isNegative = (s < (short int)0);
	    } else if (useWide) {
		isNegative = (w < (Tcl_WideInt)0);