@encharm/cws 4.4.0 → 4.5.1

package/src/headers/16/v8ustack.d

@@ -1,695 +0,0 @@
-/*
- * V8 DTrace ustack helper for annotating native stack traces with JavaScript
- * function names.  We start with a frame pointer (arg1) and emit a string
- * describing the current function.  We do this by chasing pointers to extract
- * the function's name (if any) and the filename and line number where the
- * function is defined.
- *
- * To use the helper, run node, then use the jstack() DTrace action to capture
- * a JavaScript stacktrace.  You may need to tune the dtrace_helper_actions_max
- * kernel variable to 128.
- */
-
-#include <v8constants.h>
-#include <v8abbr.h>
-
-/*
- * V8 represents small integers (SMI) using the upper 31 bits of a 32/64-bit
- * value.  To extract the actual integer value, we must shift it over.
- */
-#define	IS_SMI(value)	\
-    ((value & V8_SmiTagMask) == V8_SmiTag)
-#define	SMI_VALUE(value)	\
-    ((uint32_t) ((value) >> V8_SmiValueShift))
-#define NO_SHARED_FUNCTION_NAME_SENTINEL NULL
-
-/*
- * Heap objects usually start off with a Map pointer, itself another heap
- * object.  However, during garbage collection, the low order bits of the
- * pointer (which are normally 01) are used to record GC state.  Of course, we
- * have no idea if we're in GC or not, so we must always normalize the pointer.
- */
-#define	V8_MAP_PTR(ptr)		\
-    ((ptr & ~V8_HeapObjectTagMask) | V8_HeapObjectTag)
-
-#define V8_TYPE_SCRIPT(type) \
-    ((type) == V8_IT_SCRIPT)
-
-/*
- * Determine the encoding and representation of a V8 string.
- */
-#define	V8_TYPE_STRING(type)	\
-    (((type) & V8_IsNotStringMask) == V8_StringTag)
-
-#define	V8_STRENC_ASCII(type)	\
-    (((type) & V8_StringEncodingMask) == V8_AsciiStringTag)
-
-#define	V8_STRREP_SEQ(type)	\
-    (((type) & V8_StringRepresentationMask) == V8_SeqStringTag)
-#define	V8_STRREP_CONS(type)	\
-    (((type) & V8_StringRepresentationMask) == V8_ConsStringTag)
-#define	V8_STRREP_EXT(type)	\
-    (((type) & V8_StringRepresentationMask) == V8_ExternalStringTag)
-
-/*
- * String type predicates
- */
-#define	ASCII_SEQSTR(value)	\
-    (V8_TYPE_STRING(value) && V8_STRENC_ASCII(value) && V8_STRREP_SEQ(value))
-
-#define	TWOBYTE_SEQSTR(value)	\
-    (V8_TYPE_STRING(value) && !V8_STRENC_ASCII(value) && V8_STRREP_SEQ(value))
-
-#define	IS_CONSSTR(value)	\
-    (V8_TYPE_STRING(value) && V8_STRREP_CONS(value))
-
-#define	ASCII_EXTSTR(value)	\
-    (V8_TYPE_STRING(value) && V8_STRENC_ASCII(value) && V8_STRREP_EXT(value))
-
-/*
- * General helper macros
- */
-#define	COPYIN_UINT8(addr) (*(uint8_t*) copyin((addr), sizeof(uint8_t)))
-#define	COPYIN_UINT32(addr) (*(uint32_t*) copyin((addr), sizeof(uint32_t)))
-#define	COPYIN_UINT64(addr) (*(uint64_t*) copyin((addr), sizeof(uint64_t)))
-
-#if defined(__i386)
-# define	COPYIN_PTR(addr) COPYIN_UINT32(addr)
-# define	off_t uint32_t
-# define	APPEND_PTR(p) APPEND_PTR_32(p)
-#else
-# define	COPYIN_PTR(addr) COPYIN_UINT64(addr)
-# define	off_t uint64_t
-# define	APPEND_PTR(p) APPEND_PTR_64(p)
-#endif
-
-#define	APPEND_CHR(c)			(this->buf[this->off++] = (c))
-#define	APPEND_CHR4(s0, s1, s2, s3)	\
-    APPEND_CHR(s0);	\
-    APPEND_CHR(s1);	\
-    APPEND_CHR(s2);	\
-    APPEND_CHR(s3);
-#define	APPEND_CHR8(s0, s1, s2, s3, s4, s5, s6, s7)	\
-    APPEND_CHR4(s0, s1, s2, s3)	\
-    APPEND_CHR4(s4, s5, s6, s7)
-
-#define	APPEND_DGT(i, d)	\
-    (((i) / (d)) ? APPEND_CHR('0' + ((i)/(d) % 10)) : 0)
-
-#define	APPEND_NUM(i)		\
-    APPEND_DGT((i), 100000);	\
-    APPEND_DGT((i), 10000);	\
-    APPEND_DGT((i), 1000);	\
-    APPEND_DGT((i), 100);	\
-    APPEND_DGT((i), 10);	\
-    APPEND_DGT((i), 1);
-
-#define	APPEND_HEX(d)	\
-    APPEND_CHR((d) < 10 ? '0' + (d) : 'a' - 10 + (d))
-
-#define	APPEND_PTR_32(p)	\
-    APPEND_HEX((p >> 28) & 0xf);	\
-    APPEND_HEX((p >> 24) & 0xf);	\
-    APPEND_HEX((p >> 20) & 0xf);	\
-    APPEND_HEX((p >> 16) & 0xf);	\
-    APPEND_HEX((p >> 12) & 0xf);	\
-    APPEND_HEX((p >> 8) & 0xf);	\
-    APPEND_HEX((p >> 4) & 0xf);	\
-    APPEND_HEX((p) & 0xf);
-
-#define	APPEND_PTR_64(p)	\
-    APPEND_PTR_32(p >> 32)	\
-    APPEND_PTR_32(p)
-
-/*
- * The following macros are used to output ASCII SeqStrings, ConsStrings, and
- * Node.js ExternalStrings.  To represent each string, we use three fields:
- *
- *    "str":	a pointer to the string itself
- *
- *    "len":	the string length
- *
- *    "attrs":	the type identifier for the string, which indicates the
- *    		encoding and representation.  We're only interested in strings
- *    		whose representation is one of:
- *
- *	SeqOneByteString stored directly as a char array inside the object
- *
- *	SeqTwoByteString stored as a UTF-16 char array inside the object
- *
- *	ConsString	 pointer to two strings that should be concatenated
- *
- * 	ExternalString	 pointer to a char* outside the V8 heap
- */
-
-/*
- * Load "len" and "attrs" for the given "str".
- */
-#define	LOAD_STRFIELDS(str, len, attrs)					\
-    len = SMI_VALUE(COPYIN_PTR(str + V8_OFF_STR_LENGTH));	\
-    this->map = V8_MAP_PTR(COPYIN_PTR(str + V8_OFF_HEAPOBJ_MAP));	\
-    attrs = COPYIN_UINT8(this->map + V8_OFF_MAP_ATTRS);
-
-#define	APPEND_SEQSTR(str, len, attrs) \
-    APPEND_SEQONEBYTESTR(str, len, attrs) \
-    APPEND_SEQTWOBYTESTR(str, len, attrs)
-
-/*
- * Print out the given SeqOneByteString, or do nothing if the string is not an ASCII
- * SeqOneByteString.
- */
-#define	APPEND_SEQONEBYTESTR(str, len, attrs) 				\
-    dtrace:helper:ustack:						\
-    /!this->done && len > 0 && ASCII_SEQSTR(attrs)/			\
-    {									\
-	copyinto(str + V8_OFF_STR_CHARS, len, this->buf + this->off);	\
-	this->off += len;						\
-    }
-
-/*
- * LOOP_ITER: macro to paste "block" while "ivar" is less than "dynmax" and
- * "statmax".  The subsequent LOOP_{4,8} macros facilitate pasting the same
- * thing 4 and 8 times, respectively.  Like much of the rest of the code in this
- * file, this is regrettably necessary given the constraints under which we're
- * expected to run.
- */
-#define	LOOP_ITER(ivar, dynmax, statmax, block) \
-	((ivar) < (dynmax)) && ((ivar) < (statmax)) && (block); (ivar)++;
-
-#define	LOOP_4(block) \
-	block \
-	block \
-	block \
-	block \
-
-#define	LOOP_8(block) \
-	LOOP_4(block) \
-	LOOP_4(block)
-
-/*
- * Print out the given SeqTwoByteString, or do nothing if the string is not an ASCII
- * SeqTwoByteString.  NOTE: if you bump MAX_TWOBYTESTR_CHARS, you'll also need
- * to modify the LOOP_* macro calls below to match.
- */
-#define	MAX_TWOBYTESTR_CHARS	128
-#define	MAX_TWOBYTESTR_BYTES	(2 * MAX_TWOBYTESTR_CHARS)
-#define	TO_ASCII(c)		((c) < 128 ? (c) : '?')
-
-#define	APPEND_SEQTWOBYTESTR(str, len, attrs) 				\
-    dtrace:helper:ustack: 						\
-    /!this->done && len > 0 && TWOBYTE_SEQSTR(attrs)/ 			\
-    {									\
-	this->i = 0;							\
-	this->stbuf = (uint16_t *)alloca(MAX_TWOBYTESTR_BYTES + 2); 	\
-	copyinto(str + V8_OFF_TWOBYTESTR_CHARS,				\
-	    MAX_TWOBYTESTR_BYTES, this->stbuf);				\
-	this->stbuf[MAX_TWOBYTESTR_BYTES - 1] = '\0';			\
-	this->stbuf[MAX_TWOBYTESTR_BYTES] = '\0';			\
-									\
-	LOOP_8(LOOP_8(LOOP_4(LOOP_ITER(this->i, len,			\
-	    MAX_TWOBYTESTR_CHARS,					\
-	    APPEND_CHR(TO_ASCII(this->stbuf[this->i]))))))		\
-									\
-	this->i = 0;							\
-	this->stbuf = 0;						\
-    }
-
-/*
- * Print out the given Node.js ExternalString, or do nothing if the string is
- * not an ASCII ExternalString.
- */
-#define	APPEND_NODESTR(str, len, attrs)					\
-    dtrace:helper:ustack:						\
-    /!this->done && len > 0 && ASCII_EXTSTR(attrs)/			\
-    {									\
-	this->resource = COPYIN_PTR(str + V8_OFF_EXTSTR_RSRC);		\
-	this->dataptr = COPYIN_PTR(this->resource + NODE_OFF_EXTSTR_DATA);	\
-	copyinto(this->dataptr, len, this->buf + this->off);			\
-	this->off += len;							\
-    }
-
-/*
- * Recall that each ConsString points to two other strings which are
- * semantically concatenated.  Of course, these strings may themselves by
- * ConsStrings, but in D we can only expand this recursion to a finite level.
- * Thankfully, function and script names are generally not more than a few
- * levels deep, so we unroll the expansion up to three levels.  Even this is
- * pretty hairy: we use strings "s0", ..., "s13", (each with "str", "len", and
- * "attr" fields -- see above) to store the expanded strings.  We expand the
- * original string into s0 and s7, then s0 into s1 and s4, etc:
- *
- *
- *                   +----  str  ----+
- *                  /                 \                  <--  1st expansion
- *                 /                   \
- *              s0                       s7
- *            /    \                  /     \
- *           /      \                /       \           <--  2nd expansion
- *          /        \              /         \
- *        s1          s4          s8           s11
- *       /  \        /  \        /  \          /  \      <--  3rd expansion
- *     s2    s3    s5    s6    s9    s10    s12    s13
- *
- * Of course, for a given string, any of these expansions may not be needed.
- * For example, we may expand str and find that s0 is already a SeqString,
- * while s7 requires further expansion.  So when we expand a ConsString, we
- * zero the length of the string itself, and then at the end we print out
- * all non-zero-length strings in order (including both internal nodes and
- * leafs in the tree above) to get the final output.
- */
-#define	EXPAND_START()							\
-    dtrace:helper:ustack:	\
-    /!this->done/	\
-    {	\
-	this->s0str = this->s1str = this->s2str = (off_t) 0;	\
-	this->s3str = this->s4str = this->s5str = (off_t) 0;	\
-	this->s6str = this->s7str = this->s8str = (off_t) 0;	\
-	this->s9str = this->s10str = this->s11str = (off_t) 0;	\
-	this->s12str = this->s13str = (off_t) 0;	\
-									\
-	this->s0len = this->s1len = this->s2len = (off_t) 0;	\
-	this->s3len = this->s4len = this->s5len = (off_t) 0;	\
-	this->s6len = this->s7len = this->s8len = (off_t) 0;	\
-	this->s9len = this->s10len = this->s11len = (off_t) 0;	\
-	this->s12len = this->s13len = (off_t) 0;	\
-									\
-	this->s0attrs = this->s1attrs = this->s2attrs = 0;		\
-	this->s3attrs = this->s4attrs = this->s5attrs = 0;		\
-	this->s6attrs = this->s7attrs = this->s8attrs = 0;		\
-	this->s9attrs = this->s10attrs = this->s11attrs = 0;		\
-	this->s12attrs = this->s13attrs = 0;				\
-    }
-
-/*
- * Expand the ConsString "str" (represented by "str", "len", and "attrs") into
- * strings "s1" (represented by "s1s", "s1l", and "s1a") and "s2" (represented
- * by "s2s", "s2l", "s2a").  If "str" is not a ConsString, do nothing.
- */
-#define	EXPAND_STR(str, len, attrs, s1s, s1l, s1a, s2s, s2l, s2a)	\
-    dtrace:helper:ustack:	\
-    /!this->done && len > 0 && IS_CONSSTR(attrs)/	\
-    {	\
-	len = 0;							\
-									\
-	s1s = COPYIN_PTR(str + V8_OFF_CONSSTR_CAR);	\
-	LOAD_STRFIELDS(s1s, s1l, s1a)					\
-									\
-	s2s = COPYIN_PTR(str + V8_OFF_CONSSTR_CDR);	\
-	LOAD_STRFIELDS(s2s, s2l, s2a)					\
-    }
-
-/*
- * Print out a ConsString by expanding it up to three levels and printing out
- * the resulting SeqStrings.
- */
-#define	APPEND_CONSSTR(str, len, attrs)					\
-    EXPAND_START()							\
-    EXPAND_STR(str, len, attrs,						\
-	this->s0str, this->s0len, this->s0attrs,			\
-	this->s7str, this->s7len, this->s7attrs)			\
-    EXPAND_STR(this->s0str, this->s0len, this->s0attrs,			\
-	this->s1str, this->s1len, this->s1attrs,			\
-	this->s4str, this->s4len, this->s4attrs)			\
-    EXPAND_STR(this->s1str, this->s1len, this->s1attrs,			\
-	this->s2str, this->s2len, this->s2attrs,			\
-	this->s3str, this->s3len, this->s3attrs)			\
-    EXPAND_STR(this->s4str, this->s4len, this->s4attrs,			\
-	this->s5str, this->s5len, this->s5attrs,			\
-	this->s6str, this->s6len, this->s6attrs)			\
-    EXPAND_STR(this->s7str, this->s7len, this->s7attrs,			\
-	this->s8str, this->s8len, this->s8attrs,			\
-	this->s11str, this->s11len, this->s11attrs)			\
-    EXPAND_STR(this->s8str, this->s8len, this->s8attrs,			\
-	this->s9str, this->s9len, this->s9attrs,			\
-	this->s10str, this->s10len, this->s10attrs)			\
-    EXPAND_STR(this->s11str, this->s11len, this->s11attrs,		\
-	this->s12str, this->s12len, this->s12attrs,			\
-	this->s13str, this->s13len, this->s13attrs)			\
-									\
-    APPEND_SEQSTR(str, len, attrs)					\
-    APPEND_SEQSTR(this->s0str, this->s0len, this->s0attrs)		\
-    APPEND_SEQSTR(this->s1str, this->s1len, this->s1attrs)		\
-    APPEND_SEQSTR(this->s2str, this->s2len, this->s2attrs)		\
-    APPEND_SEQSTR(this->s3str, this->s3len, this->s3attrs)		\
-    APPEND_SEQSTR(this->s4str, this->s4len, this->s4attrs)		\
-    APPEND_SEQSTR(this->s5str, this->s5len, this->s5attrs)		\
-    APPEND_SEQSTR(this->s6str, this->s6len, this->s6attrs)		\
-    APPEND_SEQSTR(this->s7str, this->s7len, this->s7attrs)		\
-    APPEND_SEQSTR(this->s8str, this->s8len, this->s8attrs)		\
-    APPEND_SEQSTR(this->s9str, this->s9len, this->s9attrs)		\
-    APPEND_SEQSTR(this->s10str, this->s10len, this->s10attrs)		\
-    APPEND_SEQSTR(this->s11str, this->s11len, this->s11attrs)		\
-    APPEND_SEQSTR(this->s12str, this->s12len, this->s12attrs)		\
-    APPEND_SEQSTR(this->s13str, this->s13len, this->s13attrs)		\
-
-
-/*
- * Print out the given SeqString, ConsString, or ExternalString.
- * APPEND_CONSSTR implicitly handles SeqStrings as the degenerate case of an
- * expanded ConsString.
- */
-#define	APPEND_V8STR(str, len, attrs)					\
-    APPEND_CONSSTR(str, len, attrs)					\
-    APPEND_NODESTR(str, len, attrs)
-
-/*
- * In this first clause we initialize all variables.  We must explicitly clear
- * them because they may contain values left over from previous iterations.
- */
-dtrace:helper:ustack:
-{
-	/* input */
-	this->fp = arg1;
-
-	/* output/flow control */
-	this->buf = (char*) alloca(128);
-	this->off = 0;
-	this->done = 0;
-
-	/* program state */
-	this->ctx = (off_t) 0;
-	this->marker = (off_t) 0;
-	this->func = (off_t) 0;
-	this->shared = (off_t) 0;
-	this->map = (off_t) 0;
-	this->attrs = 0;
-	this->funcrawnamestr = (off_t) 0;
-	this->hassharedname = 0;
-	this->funcnamelen = 0;
-	this->funcnameattrs = 0;
-	this->script = (off_t) 0;
-	this->scriptattrs = 0;
-	this->scriptnamestr = (off_t) 0;
-	this->scriptnamelen = 0;
-	this->scriptnameattrs = 0;
-	this->position = 0;
-	this->line_ends = (off_t) 0;
-	this->le_attrs = 0;
-
-	/* binary search fields */
-	this->bsearch_min = 0;
-	this->bsearch_max = 0;
-	this->ii = 0;
-}
-
-/*
- * Check for other common frame types for which we also have nothing to add.
- */
-dtrace:helper:ustack:
-/!this->done/
-{
-	this->marker = COPYIN_PTR(this->fp + V8_OFF_FP_CONTEXT);
-}
-
-dtrace:helper:ustack:
-/!this->done && IS_SMI(this->marker) &&
- SMI_VALUE(this->marker) == V8_FT_ENTRY/
-{
-	this->done = 1;
-	APPEND_CHR8('<','<',' ','e','n','t','r','y');
-	APPEND_CHR4(' ','>','>','\0');
-	stringof(this->buf);
-}
-
-dtrace:helper:ustack:
-/!this->done && IS_SMI(this->marker) &&
- SMI_VALUE(this->marker) == V8_FT_ENTRYCONSTRUCT/
-{
-	this->done = 1;
-	APPEND_CHR8('<','<',' ','e','n','t','r','y');
-	APPEND_CHR8('_','c','o','n','s','t','r','u');
-	APPEND_CHR4('t',' ','>','>');
-	APPEND_CHR('\0');
-	stringof(this->buf);
-}
-
-dtrace:helper:ustack:
-/!this->done && IS_SMI(this->marker) &&
- SMI_VALUE(this->marker) == V8_FT_EXIT/
-{
-	this->done = 1;
-	APPEND_CHR8('<','<',' ','e','x','i','t',' ');
-	APPEND_CHR4('>','>','\0','\0');
-	stringof(this->buf);
-}
-
-dtrace:helper:ustack:
-/!this->done && IS_SMI(this->marker) &&
- SMI_VALUE(this->marker) == V8_FT_INTERNAL/
-{
-	this->done = 1;
-	APPEND_CHR8('<','<',' ','i','n','t','e','r');
-	APPEND_CHR8('n','a','l',' ','>','>','\0','\0');
-	stringof(this->buf);
-}
-
-dtrace:helper:ustack:
-/!this->done && IS_SMI(this->marker) &&
- SMI_VALUE(this->marker) == V8_FT_CONSTRUCT/
-{
-	this->done = 1;
-	APPEND_CHR8('<','<',' ','c','o','n','s','t');
-	APPEND_CHR8('r','u','c','t','o','r',' ','>');
-	APPEND_CHR4('>','\0','\0','\0');
-	stringof(this->buf);
-}
-
-dtrace:helper:ustack:
-/!this->done && IS_SMI(this->marker) &&
- SMI_VALUE(this->marker) == V8_FT_STUB/
-{
-	this->done = 1;
-	APPEND_CHR8('<','<',' ','s','t','u','b',' ');
-	APPEND_CHR4('>','>','\0','\0');
-	stringof(this->buf);
-}
-
-/*
- * Now check for internal frames that we can only identify by seeing that
- * there's a Code object where there would be a JSFunction object for a
- * JavaScriptFrame.
- */
-dtrace:helper:ustack:
-/!this->done/
-{
-	this->func = COPYIN_PTR(this->fp + V8_OFF_FP_FUNC);
-	this->map = V8_MAP_PTR(COPYIN_PTR(this->func + V8_OFF_HEAPOBJ_MAP));
-	this->attrs = COPYIN_UINT8(this->map + V8_OFF_MAP_ATTRS);
-}
-
-dtrace:helper:ustack:
-/!this->done && this->attrs == V8_IT_CODE/
-{
-	this->done = 1;
-	APPEND_CHR8('<','<',' ','i','n','t','e','r');
-	APPEND_CHR8('n','a','l',' ','c','o','d','e');
-	APPEND_CHR4(' ','>','>','\0');
-	stringof(this->buf);
-}
-
-/*
- * At this point, we're either looking at a JavaScriptFrame or an
- * OptimizedFrame.  For now, we assume JavaScript and start by grabbing the
- * function name.
- */
-dtrace:helper:ustack:
-/!this->done/
-{
-	this->map = 0;
-	this->attrs = 0;
-
-	this->shared = COPYIN_PTR(this->func + V8_OFF_FUNC_SHARED);
-	this->funcrawnamestr = COPYIN_PTR(this->shared + V8_OFF_RAW_NAME);
-	this->hassharedname = this->funcrawnamestr !=
-		NO_SHARED_FUNCTION_NAME_SENTINEL;
-}
-
-dtrace:helper:ustack:
-/!this->done && this->hassharedname/
-{
-	LOAD_STRFIELDS(this->funcrawnamestr, this->funcnamelen,
-		this->funcnameattrs);
-}
-
-dtrace:helper:ustack:
-/!this->done && this->funcnamelen == 0/
-{
-	/*
-	 * This is an anonymous function, but if it was invoked as a method of
-	 * some object then V8 will have computed an inferred name that we can
-	 * include in the stack trace.
-	 */
-	APPEND_CHR8('(','a','n','o','n',')',' ','a');
-	APPEND_CHR('s');
-	APPEND_CHR(' ');
-
-	this->funcrawnamestr = COPYIN_PTR(this->shared + V8_OFF_SHARED_IDENT);
-	LOAD_STRFIELDS(this->funcrawnamestr, this->funcnamelen,
-	    this->funcnameattrs);
-}
-
-dtrace:helper:ustack:
-/!this->done && this->funcnamelen == 0/
-{
-	APPEND_CHR('(');
-	APPEND_CHR4('a','n','o','n');
-	APPEND_CHR(')');
-}
-
-APPEND_V8STR(this->funcrawnamestr, this->funcnamelen, this->funcnameattrs)
-
-/*
- * Now look for the name of the script where the function was defined.  The
- * "script" itself may be undefined for special functions like "RegExp".
- */
-dtrace:helper:ustack:
-/!this->done/
-{
-	this->script = COPYIN_PTR(this->shared + V8_OFF_SHARED_SCRIPT);
-	this->map = V8_MAP_PTR(COPYIN_PTR(this->script + V8_OFF_HEAPOBJ_MAP));
-	this->scriptattrs = COPYIN_UINT8(this->map + V8_OFF_MAP_ATTRS);
-}
-
-dtrace:helper:ustack:
-/!this->done && !V8_TYPE_SCRIPT(this->scriptattrs)/
-{
-	APPEND_CHR('\0');
-	this->done = 1;
-	stringof(this->buf);
-}
-
-
-dtrace:helper:ustack:
-/!this->done/
-{
-	this->scriptnamestr = COPYIN_PTR(this->script + V8_OFF_SCRIPT_NAME);
-	LOAD_STRFIELDS(this->scriptnamestr, this->scriptnamelen,
-	    this->scriptnameattrs);
-}
-
-dtrace:helper:ustack:
-/!this->done && this->scriptnamelen != 0/
-{
-	APPEND_CHR4(' ','a','t',' ');
-}
-
-APPEND_V8STR(this->scriptnamestr, this->scriptnamelen, this->scriptnameattrs)
-
-/*
- * Now look for file position and line number information.
- */
-dtrace:helper:ustack:
-/!this->done/
-{
-	this->position = COPYIN_UINT32(this->shared + V8_OFF_SHARED_FUNIDENT);
-	this->line_ends = COPYIN_PTR(this->script + V8_OFF_SCRIPT_LENDS);
-	this->map = V8_MAP_PTR(COPYIN_PTR(this->line_ends + V8_OFF_HEAPOBJ_MAP));
-	this->le_attrs = COPYIN_UINT8(this->map + V8_OFF_MAP_ATTRS);
-}
-
-dtrace:helper:ustack:
-/!this->done && this->le_attrs != V8_IT_FIXEDARRAY && this->position == 0/
-{
-	APPEND_CHR('\0');
-	this->done = 1;
-	stringof(this->buf);
-}
-
-dtrace:helper:ustack:
-/!this->done && this->le_attrs != V8_IT_FIXEDARRAY/
-{
-	/*
-	 * If the line number array was not a valid FixedArray, it's probably
-	 * undefined because V8 has not had to compute it yet.  In this case we
-	 * just show the raw position and call it a day.
-	 */
-	APPEND_CHR4(' ','p','o','s');
-	APPEND_CHR(' ');
-	APPEND_NUM(SMI_VALUE(this->position));
-	APPEND_CHR('\0');
-	this->done = 1;
-	stringof(this->buf);
-}
-
-/*
- * At this point, we've got both a position in the script and an array
- * describing where each line of the file ends.  We can use this to compute the
- * line number by binary searching the array.  (This is also what V8 does when
- * computing stack traces.)
- */
-dtrace:helper:ustack:
-/!this->done/
-{
-	/* initialize binary search */
-	this->bsearch_line = this->position <
-	SMI_VALUE(COPYIN_PTR(this->line_ends + V8_OFF_FA_DATA)) ? 1 : 0;
-	this->bsearch_min = 0;
-	this->bsearch_max = this->bsearch_line != 0 ? 0 :
-	SMI_VALUE(COPYIN_PTR(this->line_ends + V8_OFF_FA_SIZE)) - 1;
-}
-
-/*
- * Of course, we can't iterate the binary search indefinitely, so we hardcode 15
- * iterations.  That's enough to precisely identify the line number in files up
- * to 32768 lines of code.
- */
-#define	BSEARCH_LOOP							\
-    dtrace:helper:ustack:	\
-    /!this->done && this->bsearch_max >= 1/	\
-    {	\
-	this->ii = (this->bsearch_min + this->bsearch_max) >> 1;	\
-    }	\
-									\
-    dtrace:helper:ustack:	\
-    /!this->done && this->bsearch_max >= 1 &&	\
-     this->position > SMI_VALUE(	\
-         COPYIN_PTR(this->line_ends + V8_OFF_FA_DATA +	\
-                    this->ii * sizeof (uint32_t)))/	\
-    {	\
-	this->bsearch_min = this->ii + 1;				\
-    }	\
-									\
-    dtrace:helper:ustack:	\
-    /!this->done && this->bsearch_max >= 1 &&	\
-     this->position <= SMI_VALUE(	\
-         COPYIN_PTR(this->line_ends + V8_OFF_FA_DATA +	\
-                    (this->ii - 1) * sizeof (uint32_t)))/	\
-    {	\
-	this->bsearch_max = this->ii - 1;				\
-    }
-
-BSEARCH_LOOP
-BSEARCH_LOOP
-BSEARCH_LOOP
-BSEARCH_LOOP
-BSEARCH_LOOP
-BSEARCH_LOOP
-BSEARCH_LOOP
-BSEARCH_LOOP
-BSEARCH_LOOP
-BSEARCH_LOOP
-BSEARCH_LOOP
-BSEARCH_LOOP
-BSEARCH_LOOP
-BSEARCH_LOOP
-BSEARCH_LOOP
-
-dtrace:helper:ustack:
-/!this->done && !this->bsearch_line/
-{
-	this->bsearch_line = this->ii + 1;
-}
-
-dtrace:helper:ustack:
-/!this->done/
-{
-	APPEND_CHR(' ');
-	APPEND_CHR4('l','i','n','e');
-	APPEND_CHR(' ');
-	APPEND_NUM(this->bsearch_line);
-	APPEND_CHR('\0');
-	this->done = 1;
-	stringof(this->buf);
-}
-
-/* vim: set tabstop=8 softtabstop=8 shiftwidth=8 noexpandtab: */