pike.git/ src/ pike_types.c

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;