pike.git/
src/
pike_types.c
Branch:
Tag:
Non-build tags
All tags
No tags
2004-12-30
2004-12-30 13:52:54 by Henrik Grubbström (Grubba) <grubba@grubba.org>
382da2d6877ea7d203058c6710027ef37d56892b (
6
lines) (+
5
/-
1
)
[
Show
|
Annotate
]
Branch:
7.9
Added some debug.
Rev: src/pike_types.c:1.240
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.
239
2004/
11
/
05
16
:
21
:
23
grubba Exp $
+
|| $Id: pike_types.c,v 1.
240
2004/
12
/
30
13
:
52
:
54
grubba Exp $
*/ #include "global.h"
3249:
if (!ap || !bp) { /* Shouldn't happen... */
+
/* fprintf(stderr, "ap:%p bp:%p\n", ap, bp); */
return 0; } if ((flags & LE_WEAK_OBJECTS) && (!TEST_COMPAT(7,4) || (!a->car))) { implements_mode = 0;
-
+
/* fprintf(stderr, "is_compat(%p, %p)\n", ap, bp); */
return is_compatible(implements_a=ap, implements_b=bp); } implements_mode = 1;
-
+
/* fprintf(stderr, "implements(%p, %p)\n", ap, bp); */
return implements(implements_a=ap, implements_b=bp); } break;