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

Use SET64 representation in the compiler.

Browse source
This commit is contained in:
David Brown 2016-09-30 19:00:33 +01:00
parent 2e02f9204c
commit 7238be5257
38 changed files with 119 additions and 126 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -471,7 +471,7 @@ void OPB_In (OPT_Node *x, OPT_Node y)
if (k < 0 || k > (int64)OPM_MaxSet) {
OPB_err(202);
} else if (y->class == 7) {
(*x)->conval->intval = OPB_BoolToInt(__IN(k, y->conval->setval, 32));
(*x)->conval->intval = OPB_BoolToInt(__IN(k, y->conval->setval, 64));
(*x)->obj = NIL;
} else {
OPB_BindNodes(12, OPT_booltyp, &*x, y);
@ -2483,7 +2483,7 @@ void OPB_StaticLink (int8 dlev)
scope = OPT_topScope;
while (dlev > 0) {
dlev -= 1;
scope->link->conval->setval |= __SETOF(3,32);
scope->link->conval->setval |= __SETOF(3,64);
scope = scope->left;
}
}