pike.git/
src/
las.c
Branch:
Tag:
Non-build tags
All tags
No tags
1997-02-27
1997-02-27 08:09:46 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
9669e837f444bf82e0f613001fc6f215a06483bf (
9
lines) (+
5
/-
4
)
[
Show
|
Annotate
]
Branch:
7.9
core-dumping bug fixed
Rev: src/las.c:1.22
4:
||| See the files COPYING and DISCLAIMER for more information. \*/ #include "global.h"
-
RCSID("$Id: las.c,v 1.
21
1997/02/
18
05
:
13
:
35
hubbe Exp $");
+
RCSID("$Id: las.c,v 1.
22
1997/02/
27
08
:
09
:
46
hubbe Exp $");
#include "language.h" #include "interpret.h"
1942:
break; }
-
if(n->token != F_RETURN) return 0;
+
if(
!
n
|| n
->token != F_RETURN) return 0;
n=CAR(n);
-
if(n->token != F_APPLY) return 0;
+
if(
!
n
|| n
->token != F_APPLY) return 0;
tmp=stupid_args(CDR(n),0,vargs); if(!(vargs?tmp==65535:tmp==args)) return 0; n=CAR(n);
-
if(n->token != F_CONSTANT) return 0;
+
if(
!
n
|| n
->token != F_CONSTANT) return 0;
return &n->u.sval; }