vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-04-06 05:12:26 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Revert LEN() to returnng LONGINT

Browse source
This commit is contained in:
David Brown 2016-09-22 20:48:13 +01:00
parent b40dc4e2f8
commit 7b8eed9993
7 changed files with 13 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

4
bootstrap/unix-44/OPB.c
View file

@ -2067,7 +2067,7 @@ void OPB_StPar1 (OPT_Node *par0, OPT_Node x, int8 fctno)
x->conval->intval += 1;
}
p = NewOp__53(12, 19, p, x);
p->typ = OPT_adrtyp;
p->typ = OPT_linttyp;
} else {
p = x;
p->conval->intval = typ->n;
@ -2323,7 +2323,7 @@ void OPB_StFct (OPT_Node *par0, int8 fctno, int16 parno)
p = p->left;
dim += 1;
}
OPB_BindNodes(12, OPT_adrtyp, &p, OPB_NewIntConst(dim));
OPB_BindNodes(12, OPT_linttyp, &p, OPB_NewIntConst(dim));
p->subcl = 19;
} else {
p = OPB_NewIntConst(p->typ->n);

4
bootstrap/unix-48/OPB.c
View file

@ -2067,7 +2067,7 @@ void OPB_StPar1 (OPT_Node *par0, OPT_Node x, int8 fctno)
x->conval->intval += 1;
}
p = NewOp__53(12, 19, p, x);
p->typ = OPT_adrtyp;
p->typ = OPT_linttyp;
} else {
p = x;
p->conval->intval = typ->n;
@ -2323,7 +2323,7 @@ void OPB_StFct (OPT_Node *par0, int8 fctno, int16 parno)
p = p->left;
dim += 1;
}
OPB_BindNodes(12, OPT_adrtyp, &p, OPB_NewIntConst(dim));
OPB_BindNodes(12, OPT_linttyp, &p, OPB_NewIntConst(dim));
p->subcl = 19;
} else {
p = OPB_NewIntConst(p->typ->n);

4
bootstrap/unix-88/OPB.c
View file

@ -2067,7 +2067,7 @@ void OPB_StPar1 (OPT_Node *par0, OPT_Node x, int8 fctno)
x->conval->intval += 1;
}
p = NewOp__53(12, 19, p, x);
p->typ = OPT_adrtyp;
p->typ = OPT_linttyp;
} else {
p = x;
p->conval->intval = typ->n;
@ -2323,7 +2323,7 @@ void OPB_StFct (OPT_Node *par0, int8 fctno, int32 parno)
p = p->left;
dim += 1;
}
OPB_BindNodes(12, OPT_adrtyp, &p, OPB_NewIntConst(dim));
OPB_BindNodes(12, OPT_linttyp, &p, OPB_NewIntConst(dim));
p->subcl = 19;
} else {
p = OPB_NewIntConst(p->typ->n);

4
bootstrap/windows-48/OPB.c
View file

@ -2067,7 +2067,7 @@ void OPB_StPar1 (OPT_Node *par0, OPT_Node x, int8 fctno)
x->conval->intval += 1;
}
p = NewOp__53(12, 19, p, x);
p->typ = OPT_adrtyp;
p->typ = OPT_linttyp;
} else {
p = x;
p->conval->intval = typ->n;
@ -2323,7 +2323,7 @@ void OPB_StFct (OPT_Node *par0, int8 fctno, int16 parno)
p = p->left;
dim += 1;
}
OPB_BindNodes(12, OPT_adrtyp, &p, OPB_NewIntConst(dim));
OPB_BindNodes(12, OPT_linttyp, &p, OPB_NewIntConst(dim));
p->subcl = 19;
} else {
p = OPB_NewIntConst(p->typ->n);

4
bootstrap/windows-88/OPB.c
View file

@ -2067,7 +2067,7 @@ void OPB_StPar1 (OPT_Node *par0, OPT_Node x, int8 fctno)
x->conval->intval += 1;
}
p = NewOp__53(12, 19, p, x);
p->typ = OPT_adrtyp;
p->typ = OPT_linttyp;
} else {
p = x;
p->conval->intval = typ->n;
@ -2323,7 +2323,7 @@ void OPB_StFct (OPT_Node *par0, int8 fctno, int32 parno)
p = p->left;
dim += 1;
}
OPB_BindNodes(12, OPT_adrtyp, &p, OPB_NewIntConst(dim));
OPB_BindNodes(12, OPT_linttyp, &p, OPB_NewIntConst(dim));
p->subcl = 19;
} else {
p = OPB_NewIntConst(p->typ->n);