Tcl Source Code

Check-in [51695bfdc3]
Login

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

Overview
Comment:Fix indent
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | bug-c587295271-trycompile-leak
Files: files | file ages | folders
SHA3-256: 51695bfdc33330b12ca6a1110849c9de90947ec04d9639fc93654ea8ce604b4f
User & Date: apnadkarni 2025-06-18 17:14:34.923
Context
2025-06-19
16:14
Partial fix for [c587295271] memory leak in TclCompileTryCmd check-in: 25c6c7365f user: apnadkarni tags: trunk, main
2025-06-18
17:14
Fix indent Closed-Leaf check-in: 51695bfdc3 user: apnadkarni tags: bug-c587295271-trycompile-leak
15:55
Merge trunk check-in: 413836816c user: apnadkarni tags: bug-c587295271-trycompile-leak
Changes
Unified Diff Ignore Whitespace Patch
Changes to generic/tclCompCmdsSZ.c.
3113
3114
3115
3116
3117
3118
3119
3120
3121
3122
3123
3124
3125
3126
3127
3128
3129
3130
3131
3132
	}
    }

    /*
     * Delete any temporary state and finish off.
     */

  failedToCompile:
      for (handlerIdx = 0; handlerIdx < numHandlers; ++handlerIdx) {
	  if (handlers[handlerIdx].matchClause) {
	      TclDecrRefCount(handlers[handlerIdx].matchClause);
	  }
      }
    if (handlers != &staticHandler) {
	TclStackFree(interp, handlers);
    }
    return result;
}

/*







|
|
|
|
|
|







3113
3114
3115
3116
3117
3118
3119
3120
3121
3122
3123
3124
3125
3126
3127
3128
3129
3130
3131
3132
	}
    }

    /*
     * Delete any temporary state and finish off.
     */

failedToCompile:
    for (handlerIdx = 0; handlerIdx < numHandlers; ++handlerIdx) {
	if (handlers[handlerIdx].matchClause) {
	    TclDecrRefCount(handlers[handlerIdx].matchClause);
	}
    }
    if (handlers != &staticHandler) {
	TclStackFree(interp, handlers);
    }
    return result;
}

/*