2006-12-31 10:02:22 -05:00
|
|
|
/**********************************************************************
|
|
|
|
|
|
|
|
|
|
debug.h - YARV Debug function interface
|
|
|
|
|
|
|
|
|
|
$Author$
|
|
|
|
|
$Date$
|
|
|
|
|
created at: 04/08/25 02:33:49 JST
|
|
|
|
|
|
|
|
|
|
Copyright (C) 2004-2006 Koichi Sasada
|
|
|
|
|
|
|
|
|
|
**********************************************************************/
|
|
|
|
|
|
|
|
|
|
#ifndef _DEBUG_H_INCLUDED_
|
|
|
|
|
#define _DEBUG_H_INCLUDED_
|
|
|
|
|
|
|
|
|
|
#include <ruby.h>
|
|
|
|
|
|
|
|
|
|
VALUE debug_value(int level, int debug_level, char *header, VALUE v);
|
|
|
|
|
ID debug_id(int level, int debug_level, char *header, ID id);
|
|
|
|
|
void debug_indent(int level, int debug_level, int indent_level);
|
|
|
|
|
|
|
|
|
|
#define dpv(h,v) debug_value(-1, 0, h, v)
|
|
|
|
|
#define dp(v) debug_value(-1, 0, "", v)
|
|
|
|
|
#define dpi(i) debug_id (-1, 0, "", i)
|
|
|
|
|
#define bp() debug_breakpoint()
|
|
|
|
|
|
|
|
|
|
void gc_check_func();
|
|
|
|
|
|
|
|
|
|
#if GCDEBUG == 1
|
|
|
|
|
|
|
|
|
|
#define GC_CHECK() \
|
|
|
|
|
gc_check_func()
|
|
|
|
|
|
|
|
|
|
#elif GCDEBUG == 2
|
|
|
|
|
|
|
|
|
|
#define GC_CHECK() \
|
|
|
|
|
(printf("** %s:%d gc start\n", __FILE__, __LINE__), \
|
|
|
|
|
gc_check_func(), \
|
|
|
|
|
printf("** end\n"))
|
|
|
|
|
|
|
|
|
|
#else
|
|
|
|
|
|
|
|
|
|
#define GC_CHECK()
|
|
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
* call_cfunc.ci, compile.c, compile.h, debug.h, eval.c,
eval_error.h, eval_jump.h, eval_load.c, eval_thread.c, gc.c,
insnhelper.h, insns.def, iseq.c, main.c, numeric.c, parse.y,
range.c, regenc.h, ruby.h, signal.c, thread.c, thread_win32.ci,
vm.c, vm.h, vm_dump.c, vm_evalbody.ci, yarvcore.c, yarvcore.h:
fixed indents and non-C90 comments.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@11620 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
2007-02-02 11:26:04 -05:00
|
|
|
#endif /* _DEBUG_H_INCLUDED_ */
|
