pike.git/
src/
pike_types.c
Branch:
Tag:
Non-build tags
All tags
No tags
2006-01-20
2006-01-20 17:50:51 by Henrik Grubbström (Grubba) <grubba@grubba.org>
2f0918b14959868e99f6980e511b3450211d4d6b (
21
lines) (+
18
/-
3
)
[
Show
|
Annotate
]
Branch:
7.9
Minor diagnostics changes.
Rev: src/pike_types.c:1.253
2:
|| This file is part of Pike. For copyright information see COPYRIGHT. || Pike is distributed under GPL, LGPL and MPL. See the file COPYING || for more information.
-
|| $Id: pike_types.c,v 1.
252
2005
/
12
/
04
19
:
23
:
54
nilsson
Exp $
+
|| $Id: pike_types.c,v 1.
253
2006
/
01
/
20
17
:
50
:
51
grubba
Exp $
*/ #include "global.h"
3334:
struct program *ap = id_to_program(CDR_TO_INT(a)); struct program *bp = id_to_program(CDR_TO_INT(b));
+
#if 0
+
fprintf(stderr,
+
"id_to_program(%d) ==> %p\n"
+
"id_to_program(%d) ==> %p\n",
+
CDR_TO_INT(a), ap,
+
CDR_TO_INT(b), bp);
+
#endif /* 0 */
+
if (!ap || !bp) { /* Shouldn't happen... */ /* fprintf(stderr, "ap:%p bp:%p\n", ap, bp); */
3342:
if ((flags & LE_WEAK_OBJECTS) && (!TEST_COMPAT(7,4) || (!a->car))) { implements_mode = 0;
-
/*
fprintf(stderr, "is_compat(%p, %p)\n", ap, bp); */
+
#if
0
+
fprintf(stderr, "
is_compat(%p
(%d)
, %p
(%d
)
)
\n",
+
ap,
ap->id,
bp
, bp->id
);
+
#endif
/
*
0 *
/
return is_compatible(implements_a=ap, implements_b=bp); } implements_mode = 1;
-
/*
fprintf(stderr, "implements(%p, %p)\n", ap, bp); */
+
#if
0
+
fprintf(stderr, "
implements(%p
(%d)
, %p
(%d
)
)
\n",
+
ap,
ap->id,
bp
, bp->id
);
+
#endif
/
*
0 *
/
return implements(implements_a=ap, implements_b=bp); } break;