Tcl Source Code

Check-in [d68f155509]
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:silence compiler warnings
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | kennykb-numerics-branch
Files: files | file ages | folders
SHA1:d68f155509f73d44cd7086e5487bf488d2cfe67b
User & Date: dgp 2005-09-09 19:27:15
Context
2005-09-12
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
18:48
[kennykb-numerics-branch] Merge updates from HEAD.
check-in: 343239eeff user: dgp tags: kennykb-numerics-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclStringObj.c.

29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
....
2284
2285
2286
2287
2288
2289
2290
2291
2292
2293
2294
2295
2296
2297
2298
....
2329
2330
2331
2332
2333
2334
2335
2336
2337
2338
2339
2340
2341
2342
2343
2344
2345
 *
 * 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.4 2005/09/09 18:48:40 dgp Exp $ */

#include "tclInt.h"

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

................................................................................

static int
ObjPrintfVA(interp, argList)
    Tcl_Interp *interp;
    va_list argList;
{
    int code, objc;
    Tcl_Obj **objv, *element, *list = Tcl_NewObj();
    CONST char *format, *p;
    Tcl_Obj *objPtr = va_arg(argList, Tcl_Obj *);

    if (objPtr == NULL) {
	Tcl_Panic("TclObjPrintf: no Tcl_Obj to append to");
    }

................................................................................
	    case 'd':
	    case 'o':
	    case 'x':
	    case 'X':
		seekingConversion = 0;
		switch (size) {
		case -1:
		    Tcl_ListObjAppendElement(NULL, list, Tcl_NewLongObj(
			    (long int)va_arg(argList, short int)));
		    break;
		case 0:
		    Tcl_ListObjAppendElement(NULL, list, Tcl_NewLongObj(
			    (long int)va_arg(argList, int)));
		    break;
		case 1:
		    Tcl_ListObjAppendElement(NULL, list, Tcl_NewLongObj(
			    va_arg(argList, long int)));







|







 







|







 







<
<
<







29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
....
2284
2285
2286
2287
2288
2289
2290
2291
2292
2293
2294
2295
2296
2297
2298
....
2329
2330
2331
2332
2333
2334
2335



2336
2337
2338
2339
2340
2341
2342
 *
 * 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:
 */

................................................................................

static int
ObjPrintfVA(interp, argList)
    Tcl_Interp *interp;
    va_list argList;
{
    int code, objc;
    Tcl_Obj **objv, *list = Tcl_NewObj();
    CONST char *format, *p;
    Tcl_Obj *objPtr = va_arg(argList, Tcl_Obj *);

    if (objPtr == NULL) {
	Tcl_Panic("TclObjPrintf: no Tcl_Obj to append to");
    }

................................................................................
	    case 'd':
	    case 'o':
	    case 'x':
	    case 'X':
		seekingConversion = 0;
		switch (size) {
		case -1:



		case 0:
		    Tcl_ListObjAppendElement(NULL, list, Tcl_NewLongObj(
			    (long int)va_arg(argList, int)));
		    break;
		case 1:
		    Tcl_ListObjAppendElement(NULL, list, Tcl_NewLongObj(
			    va_arg(argList, long int)));