pike.git / src / encode.c

version» Context lines:

pike.git/src/encode.c:18:   #include "pike_error.h"   #include "operators.h"   #include "builtin_functions.h"   #include "module_support.h"   #include "fsort.h"   #include "threads.h"   #include "stuff.h"   #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 */      #ifdef ENCODE_DEBUG   #define EDB(X) X   #else   #define EDB(X)   #endif      /* The sp macro conflicts with Solaris 2.5.1's <sys/conf.h>. */
pike.git/src/encode.c:265: Inside #if defined(USE_PIKE_TYPE)
     #ifdef USE_PIKE_TYPE   /* NOTE: Take care to encode it exactly as the corresponing    * type string would have been encoded (cf TFUNCTION, T_MANY).    */   static void encode_type(struct pike_type *t, struct encode_data *data)   {    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);    /*NOTREACHED*/       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;    goto one_more_type;       case T_FUNCTION:    while(t->type == T_FUNCTION) {    encode_type(t->car, data);    t = t->cdr;    }
pike.git/src/encode.c:1124:    ONERROR err2;       SET_ONERROR(err1, restore_type_stack, Pike_compiler->type_stackp);    SET_ONERROR(err2, restore_type_mark, Pike_compiler->pike_type_mark_stackp);      one_more_type:    tmp = GETC();    switch(tmp)    {    default: -  fatal("error in type string.\n"); +  fatal("error in type string (%d).\n", tmp);    /*NOTREACHED*/    break;       case T_ASSIGN:   #ifdef USE_PIKE_TYPE    low_decode_type(data);    push_assign_type(GETC());    break;   #else /* !USE_PIKE_TYPE */    push_type(tmp);