godzil/ack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

better evaluation order checking in expressions

Browse Source
This commit is contained in:
dick
1989-02-02 13:57:07 +00:00
parent f7df668450
commit f70dfe4d00
16 changed files with 367 additions and 227 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
lang/cem/cemcom/l_misc.c
View File

@@ -10,6 +10,7 @@
#ifdef LINT
#include <alloc.h> /* for st_free */
#include "interface.h"
#include "arith.h" /* definition arith */
#include "label.h" /* definition label */
#include "expr.h"
@@ -27,6 +28,10 @@
extern char *symbol2str();
extern struct type *func_type;
PRIVATE lint_enum_arith();
PRIVATE lint_conversion();
PRIVATE int numsize();
lint_new_oper(expr)
struct expr *expr;
{
@@ -210,6 +215,7 @@ lint_new_oper(expr)
}
}
PRIVATE
lint_enum_arith(l_fund, oper, r_fund)
int l_fund, oper, r_fund;
{
@@ -228,10 +234,11 @@ lint_enum_arith(l_fund, oper, r_fund)
&& l_fund != INT
) {
warning("%s on %s and enum",
symbol2str(oper), symbol2str(r_fund));
symbol2str(oper), symbol2str(l_fund));
}
}
PRIVATE
lint_conversion(from_expr, to_fund)
struct expr *from_expr;
int to_fund;
@@ -267,7 +274,7 @@ lint_conversion(from_expr, to_fund)
}
}
int
PRIVATE int
numsize(fund)
{
switch (fund) {