Fossil

Check-in [d0233e1792]
Login

Check-in [d0233e1792]

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

Overview
Comment:Fix non-C89 compliant variable declaration.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | jimtcl
Files: files | file ages | folders
SHA1: d0233e1792297d961e54efdb55b31df3a8afb443
User & Date: mistachkin 2011-11-05 00:05:04.654
References
2011-11-05
02:54
Cherrypick the changes [389f9fca5d] and [d0233e1792] to skip adding script commands that have a NULL name or function pointer. ... (check-in: d6c6a433e7 user: mistachkin tags: trunk)
Context
2011-11-05
00:23
Police various compiler warnings. ... (check-in: 536fb1d6e0 user: mistachkin tags: jimtcl)
00:05
Fix non-C89 compliant variable declaration. ... (check-in: d0233e1792 user: mistachkin tags: jimtcl)
00:03
Add missing Jim Tcl headers ... (check-in: dc45d71bfe user: steveb tags: jimtcl)
Changes
Unified Diff Ignore Whitespace Patch
Changes to src/th_tcl.c.
433
434
435
436
437
438
439

440
441
442
443
444
445
446
447
448
int register_tcl(
  Jim_Interp *interp,
  void *pContext
){
  int i;
  /* Add the Tcl integration commands to Jim. */
  for(i=0; i<(sizeof(aCommand)/sizeof(aCommand[0])); i++){

    if ( !aCommand[i].zName || !aCommand[i].xProc ) continue;
    void *ctx = aCommand[i].pContext;
    /* Use Tcl interpreter for context? */
    if( !ctx ) ctx = pContext;
    Jim_CreateCommand(interp, aCommand[i].zName, aCommand[i].xProc, ctx, NULL);
  }
  return JIM_OK;
}








>

|







433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
int register_tcl(
  Jim_Interp *interp,
  void *pContext
){
  int i;
  /* Add the Tcl integration commands to Jim. */
  for(i=0; i<(sizeof(aCommand)/sizeof(aCommand[0])); i++){
    void *ctx;
    if ( !aCommand[i].zName || !aCommand[i].xProc ) continue;
    ctx = aCommand[i].pContext;
    /* Use Tcl interpreter for context? */
    if( !ctx ) ctx = pContext;
    Jim_CreateCommand(interp, aCommand[i].zName, aCommand[i].xProc, ctx, NULL);
  }
  return JIM_OK;
}