pike.git/
src/
las.c
Branch:
Tag:
Non-build tags
All tags
No tags
1999-12-15
1999-12-15 17:02:35 by Henrik Grubbström (Grubba) <grubba@grubba.org>
059297f7b991ae16c915dc11c7ffbf092c630ff8 (
13
lines) (+
12
/-
1
)
[
Show
|
Annotate
]
Branch:
7.9
Added debug_mltypenode().
Rev: src/las.c:1.143
5:
\*/ /**/ #include "global.h"
-
RCSID("$Id: las.c,v 1.
142
1999/12/
14
08
:
39
:
11
hubbe
Exp $");
+
RCSID("$Id: las.c,v 1.
143
1999/12/
15
17
:
02
:
35
grubba
Exp $");
#include "language.h" #include "interpret.h"
1293:
} }
+
node *debug_mktypenode(struct pike_string *t)
+
{
+
node *res = mkemptynode();
+
res->token = F_CONSTANT;
+
copy_shared_string(res->u.sval.u.string, t);
+
res->u.sval.type = T_TYPE;
+
copy_shared_string(res->type, type_type_string);
+
return freeze_node(res);
+
}
+
node *debug_mkconstantsvaluenode(struct svalue *s) { node *res = mkemptynode();