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

Added LONGCARD as a local extension

Browse Source
This commit is contained in:
ceriel
1996-08-14 07:42:40 +00:00
parent 1592c3638c
commit efacd02ffd
9 changed files with 59 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lang/m2/comp/cstoper.c
View File

@@ -615,8 +615,8 @@ cstcall(expp, call)
if (tp->tp_fund == T_INTEGER) {
expr->nd_INT = max_int[(int)(tp->tp_size)];
}
else if (tp == card_type) {
expr->nd_INT = full_mask[(int)(int_size)];
else if (tp->tp_fund == T_CARDINAL) {
expr->nd_INT = full_mask[(int)(tp->tp_size)];
}
else if (tp->tp_fund == T_SUBRANGE) {
expr->nd_INT = tp->sub_ub;