* Copyright (c) 1994-1998 Sun Microsystems, Inc.
 * Copyright (c) 2004-2006 Miguel Sofer
 * Copyright (c) 2007 Daniel A. Steffen <das@users.sourceforge.net>
 *
 * See the file "license.terms" for information on usage and redistribution of
 * this file, and for a DISCLAIMER OF ALL WARRANTIES.
 *
 * RCS: @(#) $Id: tclProc.c,v 1.143 2008/07/13 09:03:35 msofer Exp $
 * RCS: @(#) $Id: tclProc.c,v 1.144 2008/07/14 00:11:33 msofer Exp $
 */

#include "tclInt.h"
#include "tclCompile.h"
#include "tclNRE.h"

typedef struct {

	TclDecrRefCount(info);
    }

    /*
     * Invoke the commands in the procedure's body.
     */

    TclResetCancellation(interp, 0);

    procPtr->refCount++;
    codePtr = procPtr->bodyPtr->internalRep.otherValuePtr;
    if (TCL_DTRACE_PROC_ENTRY_ENABLED()) {
	int l;
	
	l = iPtr->varFramePtr->isProcCallFrame & FRAME_IS_LAMBDA ? 2 : 1;
	TCL_DTRACE_PROC_ENTRY(TclGetString(procNameObj),