pike.git/
src/
pike_types.c
Branch:
Tag:
Non-build tags
All tags
No tags
1999-12-11
1999-12-11 03:41:47 by Henrik Grubbström (Grubba) <grubba@grubba.org>
e0f7f5d7843bc9b8915b7bd13472e24c4207b1cf (
30
lines) (+
23
/-
7
)
[
Show
|
Annotate
]
Branch:
7.9
Fixed bug in describe_type().
Added some diagnostics to describe_type().
Rev: src/pike_types.c:1.87
5:
\*/ /**/ #include "global.h"
-
RCSID("$Id: pike_types.c,v 1.
86
1999/12/
10
23
:
45
:
02
grubba Exp $");
+
RCSID("$Id: pike_types.c,v 1.
87
1999/12/
11
03
:
41
:
47
grubba Exp $");
#include <ctype.h> #include "svalue.h" #include "pike_types.h"
887:
(EXTRACT_UCHAR(t+6) == T_MIXED && EXTRACT_UCHAR(t+5) == T_VOID)))) { /* done */
-
;
+
if (EXTRACT_UCHAR(t+1) == T_MIXED) {
+
/* function(mixed...:mixed|void) */
+
t += 5
;
} else {
-
+
/* function(mixed|void...mixed|void) */
+
t += 7;
+
}
+
} else {
my_strcat("("); s=0; while(EXTRACT_UCHAR(t) != T_MANY)
966:
my_strcat(")"); } break;
+
default:
+
{
+
char buf[20];
+
my_strcat("unknown code(");
+
sprintf(buf, "%d", EXTRACT_UCHAR(t-1));
+
my_strcat(buf);
+
my_strcat(")");
+
break;
}
-
+
}
return t; }