2001-03-17
2001-03-17 00:02:08 by Henrik Grubbström (Grubba) <grubba@grubba.org>
-
247967c5dca4e6021a411d5901f615df808704f7
(14 lines)
(+11/-3)
[
Show
| Annotate
]
Branch: 7.9
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;