Branch: Tag:

2001-03-17

2001-03-17 00:02:08 by Henrik Grubbström (Grubba) <grubba@grubba.org>

Bugfix for USE_PIKE_TYPE and PIKE_T_NAME.

Rev: src/encode.c:1.91

25:   #include "version.h"   #include "bignum.h"    - RCSID("$Id: encode.c,v 1.90 2001/03/12 22:42:18 hubbe Exp $"); + RCSID("$Id: encode.c,v 1.91 2001/03/17 00:02:08 grubba Exp $");      /* #define ENCODE_DEBUG */   
272: Inside #if defined(USE_PIKE_TYPE)
   one_more_type:    if (t->type == T_MANY) {    addchar(T_FUNCTION); -  } +  addchar(T_MANY); +  } else if (t->type != PIKE_T_NAME) {    addchar(t->type); -  +  }    switch(t->type) {    default:    fatal("error in type tree: %d.\n", t->type);
281: Inside #if defined(USE_PIKE_TYPE)
      break;    +  case PIKE_T_NAME: +  /* Strip the name. */ +  t=t->cdr; +  goto one_more_type; +     case T_ASSIGN:    addchar((ptrdiff_t)t->car);    t = t->cdr;
1131:    switch(tmp)    {    default: -  fatal("error in type string.\n"); +  fatal("error in type string (%d).\n", tmp);    /*NOTREACHED*/    break;