+#if DEBUG_PROPRO
+/* we do not really care about TS when debugging */
+static int level = 1;
+static const char space[] = " ";
+static const char *inoutstr[] = {"< return",""," > enter"};
+static void _walk(php_property_proxy_object_t *obj TSRMLS_DC)
+{
+ if (obj) {
+ _walk(obj->parent TSRMLS_CC);
+ fprintf(stderr, ".%s", obj->proxy->member_str);
+ }
+}
+
+static void debug_propro(int inout, const char *f, zval *object, zval *offset, zval *value TSRMLS_DC)
+{
+ php_property_proxy_object_t *obj = zend_object_store_get_object(object TSRMLS_CC);
+
+ fprintf(stderr, "#PP %p %s %s %s ", obj, &space[sizeof(space)-level], inoutstr[inout+1], f);
+
+ level += inout;
+
+ _walk(obj TSRMLS_CC);
+
+ if (*f++=='d'
+ && *f++=='i'
+ && *f++=='m'
+ ) {
+ char *offset_str = "[]";
+ zval *o = offset;
+
+ if (o) {
+ convert_to_string_ex(&o);
+ offset_str = Z_STRVAL_P(o);
+ }
+
+ fprintf(stderr, ".%s", offset_str);
+
+ if (o && o != offset) {
+ zval_ptr_dtor(&o);
+ }
+ }
+ if (value) {
+ const char *t[] = {
+ "NULL",
+ "int",
+ "float",
+ "bool",
+ "Array",
+ "Object",
+ "string",
+ "resource",
+ "const",
+ "const Array",
+ "callable"
+ };
+ fprintf(stderr, " = (%s) ", t[Z_TYPE_P(value)&0xf]);
+ zend_print_flat_zval_r(value TSRMLS_CC);
+ }
+
+ fprintf(stderr, "\n");
+}
+#else
+#define debug_propro(l, f, obj, off, val)
+#endif
+