pike.git/
src/
las.c
Branch:
Tag:
Non-build tags
All tags
No tags
1996-04-11
1996-04-11 21:14:28 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
e26068d11b3ef56830c44fdf5520e4edfed28971 (
14
lines) (+
11
/-
3
)
[
Show
|
Annotate
]
Branch:
branches/E-12
case -1 fixed
Rev: src/las.c:1.7
101:
case '?': { int tmp1,tmp2;
-
tmp1=count_args(
CDAR
(n));
-
tmp2=count_args(
CDAR
(n));
+
tmp1=count_args(
CADR
(n));
+
tmp2=count_args(
CDDR
(n));
if(tmp1==-1 || tmp2==-2) return -1; if(tmp1 < tmp2) return tmp1; return tmp2;
164:
break; case F_APPLY:
+
if(a && a->token==F_CONSTANT &&
+
a->u.sval.type==T_FUNCTION &&
+
a->u.sval.subtype==-1)
+
{
+
res->node_info |= a->u.sval.u.efun->flags;
+
}else{
res->node_info |= OPT_SIDE_EFFECT | OPT_EXTERNAL_DEPEND; /* for now */
-
+
}
break; case F_RETURN: