pike.git/
src/
las.c
Branch:
Tag:
Non-build tags
All tags
No tags
1996-11-25
1996-11-25 21:33:08 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
3856c30ab1e3e72c46e2cd50557cf021b4a0d690 (
26
lines) (+
22
/-
4
)
[
Show
|
Annotate
]
Branch:
7.9
better error messages implemented and fix for constants
Rev: src/las.c:1.8
4:
||| See the files COPYING and DISCLAIMER for more information. \*/ #include "global.h"
-
RCSID("$Id: las.c,v 1.
7
1996/11/
18
20
:
44
:08 hubbe Exp $");
+
RCSID("$Id: las.c,v 1.
8
1996/11/
25
21
:
33
:08 hubbe Exp $");
#include "language.h" #include "interpret.h"
315:
copy_shared_string(res->type, ID_FROM_INT(&fake_program, i)->type); /* FIXME */
+
if(IDENTIFIER_IS_CONSTANT(ID_FROM_INT(&fake_program, i)->flags))
+
{
+
res->node_info = OPT_EXTERNAL_DEPEND;
+
}else{
res->node_info = OPT_NOT_CONST;
-
+
}
#ifdef __CHECKER__ CDR(res)=0;
967:
case F_ASSIGN: if(CAR(n) && CDR(n) && !match_types(CDR(n)->type,CAR(n)->type))
-
my_yyerror("Bad type in assignment.
\n
");
+
my_yyerror("Bad type in assignment.");
copy_shared_string(n->type, CDR(n)->type); break;
993:
if(!n->type) {
-
yyerror("Bad
arguments
to function call.");
+
switch(CAR(n)->token)
+
{
+
case F_IDENTIFIER:
+
setup_fake_program();
+
my_
yyerror("Bad
argument
%d
to
'%s'.",
+
max_correct_args+1,
+
ID_FROM_INT(& fake_program, CAR(n)->u.number)->name->str);
+
break;
+
+
case F_CONSTANT:
+
default:
+
my_yyerror("Bad argument %d to
function call."
,max_correct_args+1
);
+
}
copy_shared_string(n->type, mixed_type_string); } free_string(s);