pike.git/
src/
pike_types.c
Branch:
Tag:
Non-build tags
All tags
No tags
1998-04-16
1998-04-16 01:23:03 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
636e475c6989cb7f0b699de1d2b835c6c8256a25 (
19
lines) (+
15
/-
4
)
[
Show
|
Annotate
]
Branch:
7.9
implements() should now work
Rev: src/pike_types.c:1.40
Rev: src/program.c:1.82
4:
||| See the files COPYING and DISCLAIMER for more information. \*/ #include "global.h"
-
RCSID("$Id: pike_types.c,v 1.
39
1998/04/
14
22
:
10
:
49
hubbe Exp $");
+
RCSID("$Id: pike_types.c,v 1.
40
1998/04/
16
01
:
23
:
02
hubbe Exp $");
#include <ctype.h> #include "svalue.h" #include "pike_types.h"
1062:
break; case T_OBJECT:
+
#if 0
+
if(EXTRACT_INT(a+2) || EXTRACT_INT(b+2))
+
{
+
fprintf(stderr,"Type match1: ");
+
stupid_describe_type(a,type_length(a));
+
fprintf(stderr,"Type match2: ");
+
stupid_describe_type(b,type_length(b));
+
}
+
#endif
+
/* object(* 0) matches any object */ if(!EXTRACT_INT(a+2) || !EXTRACT_INT(b+2)) break;
1081:
{ struct program *ap,*bp;
-
ap=id_to_program(EXTRACT_
UCHAR
(a+2));
-
bp=id_to_program(EXTRACT_
UCHAR
(b+2));
+
ap=id_to_program(EXTRACT_
INT
(a+2));
+
bp=id_to_program(EXTRACT_
INT
(b+2));
if(!ap || !bp) break;