undo subtree

1 files changed, 0 insertions, 225 deletions

diff --git a/tcl8.6/generic/tclDTrace.d b/tcl8.6/generic/tclDTrace.d
deleted file mode 100644
index 360bdff..0000000
--- a/tcl8.6/generic/tclDTrace.d
+++ /dev/null
@@ -1,225 +0,0 @@
-/*
- * tclDTrace.d --
- *
- *	Tcl DTrace provider.
- *
- * Copyright (c) 2007-2008 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.
- */
-
-typedef struct Tcl_Obj Tcl_Obj;
-typedef const char* TclDTraceStr;
-
-/*
- * Tcl DTrace probes
- */
-
-provider tcl {
-    /***************************** proc probes *****************************/
-    /*
-     *	tcl*:::proc-entry probe
-     *	    triggered immediately before proc bytecode execution
-     *		arg0: proc name				(string)
-     *		arg1: number of arguments		(int)
-     *		arg2: array of proc argument objects	(Tcl_Obj**)
-     */
-    probe proc__entry(TclDTraceStr name, int objc, struct Tcl_Obj **objv);
-    /*
-     *	tcl*:::proc-return probe
-     *	    triggered immediately after proc bytecode execution
-     *		arg0: proc name				(string)
-     *		arg1: return code			(int)
-     */
-    probe proc__return(TclDTraceStr name, int code);
-    /*
-     *	tcl*:::proc-result probe
-     *	    triggered after proc-return probe and result processing
-     *		arg0: proc name				(string)
-     *		arg1: return code			(int)
-     *		arg2: proc result			(string)
-     *		arg3: proc result object		(Tcl_Obj*)
-     */
-    probe proc__result(TclDTraceStr name, int code, TclDTraceStr result,
-	    struct Tcl_Obj *resultobj);
-    /*
-     *	tcl*:::proc-args probe
-     *	    triggered before proc-entry probe, gives access to string
-     *	    representation of proc arguments
-     *		arg0: proc name				(string)
-     *		arg1-arg9: proc arguments or NULL	(strings)
-     */
-    probe proc__args(TclDTraceStr name, TclDTraceStr arg1, TclDTraceStr arg2,
-	    TclDTraceStr arg3, TclDTraceStr arg4, TclDTraceStr arg5,
-	    TclDTraceStr arg6, TclDTraceStr arg7, TclDTraceStr arg8,
-	    TclDTraceStr arg9);
-    /*
-     *	tcl*:::proc-info probe
-     *	    triggered before proc-entry probe, gives access to TIP 280
-     *	    information for the proc invocation (i.e. [info frame 0])
-     *		arg0: TIP 280 cmd			(string)
-     *		arg1: TIP 280 type			(string)
-     *		arg2: TIP 280 proc			(string)
-     *		arg3: TIP 280 file			(string)
-     *		arg4: TIP 280 line			(int)
-     *		arg5: TIP 280 level			(int)
-     *		arg6: TclOO method			(string)
-     *		arg7: TclOO class/object		(string)
-     */
-    probe proc__info(TclDTraceStr cmd, TclDTraceStr type, TclDTraceStr proc,
-	    TclDTraceStr file, int line, int level, TclDTraceStr method,
-	    TclDTraceStr class);
-
-    /***************************** cmd probes ******************************/
-    /*
-     *	tcl*:::cmd-entry probe
-     *	    triggered immediately before commmand execution
-     *		arg0: command name			(string)
-     *		arg1: number of arguments		(int)
-     *		arg2: array of command argument objects	(Tcl_Obj**)
-     */
-    probe cmd__entry(TclDTraceStr name, int objc, struct Tcl_Obj **objv);
-    /*
-     *	tcl*:::cmd-return probe
-     *	    triggered immediately after commmand execution
-     *		arg0: command name			(string)
-     *		arg1: return code			(int)
-     */
-    probe cmd__return(TclDTraceStr name, int code);
-    /*
-     *	tcl*:::cmd-result probe
-     *	    triggered after cmd-return probe and result processing
-     *		arg0: command name			(string)
-     *		arg1: return code			(int)
-     *		arg2: command result			(string)
-     *		arg3: command result object		(Tcl_Obj*)
-     */
-    probe cmd__result(TclDTraceStr name, int code, TclDTraceStr result,
-	    struct Tcl_Obj *resultobj);
-    /*
-     *	tcl*:::cmd-args probe
-     *	    triggered before cmd-entry probe, gives access to string
-     *	    representation of command arguments
-     *		arg0: command name			(string)
-     *		arg1-arg9: command arguments or NULL	(strings)
-     */
-    probe cmd__args(TclDTraceStr name, TclDTraceStr arg1, TclDTraceStr arg2,
-	    TclDTraceStr arg3, TclDTraceStr arg4, TclDTraceStr arg5,
-	    TclDTraceStr arg6, TclDTraceStr arg7, TclDTraceStr arg8,
-	    TclDTraceStr arg9);
-    /*
-     *	tcl*:::cmd-info probe
-     *	    triggered before cmd-entry probe, gives access to TIP 280
-     *	    information for the command invocation (i.e. [info frame 0])
-     *		arg0: TIP 280 cmd			(string)
-     *		arg1: TIP 280 type			(string)
-     *		arg2: TIP 280 proc			(string)
-     *		arg3: TIP 280 file			(string)
-     *		arg4: TIP 280 line			(int)
-     *		arg5: TIP 280 level			(int)
-     *		arg6: TclOO method			(string)
-     *		arg7: TclOO class/object		(string)
-     */
-    probe cmd__info(TclDTraceStr cmd, TclDTraceStr type, TclDTraceStr proc,
-	    TclDTraceStr file, int line, int level, TclDTraceStr method,
-	    TclDTraceStr class);
-
-    /***************************** inst probes *****************************/
-    /*
-     *	tcl*:::inst-start probe
-     *	    triggered immediately before execution of a bytecode
-     *		arg0: bytecode name			(string)
-     *		arg1: depth of stack			(int)
-     *		arg2: top of stack			(Tcl_Obj**)
-     */
-    probe inst__start(TclDTraceStr name, int depth, struct Tcl_Obj **stack);
-    /*
-     *	tcl*:::inst-done probe
-     *	    triggered immediately after execution of a bytecode
-     *		arg0: bytecode name			(string)
-     *		arg1: depth of stack			(int)
-     *		arg2: top of stack			(Tcl_Obj**)
-     */
-    probe inst__done(TclDTraceStr name, int depth, struct Tcl_Obj **stack);
-
-    /***************************** obj probes ******************************/
-    /*
-     *	tcl*:::obj-create probe
-     *	    triggered immediately after a new Tcl_Obj has been created
-     *		arg0: object created			(Tcl_Obj*)
-     */
-    probe obj__create(struct Tcl_Obj* obj);
-    /*
-     *	tcl*:::obj-free probe
-     *	    triggered immediately before a Tcl_Obj is freed
-     *		arg0: object to be freed		(Tcl_Obj*)
-     */
-    probe obj__free(struct Tcl_Obj* obj);
-
-    /***************************** tcl probes ******************************/
-    /*
-     *	tcl*:::tcl-probe probe
-     *	    triggered when the ::tcl::dtrace command is called
-     *		arg0-arg9: command arguments		(strings)
-     */
-    probe tcl__probe(TclDTraceStr arg0, TclDTraceStr arg1, TclDTraceStr arg2,
-	    TclDTraceStr arg3, TclDTraceStr arg4, TclDTraceStr arg5,
-	    TclDTraceStr arg6, TclDTraceStr arg7, TclDTraceStr arg8,
-	    TclDTraceStr arg9);
-};
-
-/*
- * Tcl types and constants for use in DTrace scripts
- */
-
-typedef struct Tcl_ObjType {
-    char *name;
-    void *freeIntRepProc;
-    void *dupIntRepProc;
-    void *updateStringProc;
-    void *setFromAnyProc;
-} Tcl_ObjType;
-
-struct Tcl_Obj {
-    int refCount;
-    char *bytes;
-    int length;
-    Tcl_ObjType *typePtr;
-    union {
-	long longValue;
-	double doubleValue;
-	void *otherValuePtr;
-	int64_t wideValue;
-	struct {
-	    void *ptr1;
-	    void *ptr2;
-	} twoPtrValue;
-	struct {
-	    void *ptr;
-	    unsigned long value;
-	} ptrAndLongRep;
-    } internalRep;
-};
-
-enum return_codes {
-    TCL_OK = 0,
-    TCL_ERROR,
-    TCL_RETURN,
-    TCL_BREAK,
-    TCL_CONTINUE
-};
-
-#pragma D attributes Evolving/Evolving/Common provider tcl provider
-#pragma D attributes Private/Private/Common provider tcl module
-#pragma D attributes Private/Private/Common provider tcl function
-#pragma D attributes Evolving/Evolving/Common provider tcl name
-#pragma D attributes Evolving/Evolving/Common provider tcl args
-
-/*
- * Local Variables:
- * mode: c
- * c-basic-offset: 4
- * fill-column: 78
- * End:
- */