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

better compatibility between CARDINAL and ADDRESS

Browse Source
This commit is contained in:
ceriel
1986-07-10 16:27:26 +00:00
parent 965e75761d
commit 832bdeb3be
6 changed files with 84 additions and 78 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lang/m2/comp/expression.g
View File

@@ -48,7 +48,7 @@ qualident(int types;
{ if (types) {
df = ill_df;
if (chk_designator(nd)) {
if (ChkDesignator(nd)) {
if (nd->nd_class != Def) {
node_error(nd, "%s expected", str);
}
@@ -99,7 +99,7 @@ ConstExpression(struct node **pnd;):
*/
{ DO_DEBUG(options['X'], print("CONSTANT EXPRESSION\n"));
DO_DEBUG(options['X'], PrNode(*pnd, 0));
if (chk_expr(*pnd) &&
if (ChkExpression(*pnd) &&
((*pnd)->nd_class != Set && (*pnd)->nd_class != Value)) {
error("Constant expression expected");
}