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

Newer version, safety commit

Browse Source
This commit is contained in:
ceriel
1986-03-29 01:04:49 +00:00
parent 1581b2ecd8
commit d2d9a3c817
11 changed files with 339 additions and 102 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -158,8 +158,8 @@ add_standards()
construct_type(PROCEDURE, NULLTYPE),
0);
tp = construct_type(SUBRANGE, int_type);
tp->tp_value.tp_subrange.su_lb = 0;
tp->tp_value.tp_subrange.su_ub = wrd_size * 8 - 1;
tp->sub_lb = 0;
tp->sub_ub = wrd_size * 8 - 1;
df = Enter("BITSET", D_TYPE, construct_type(SET, tp), 0);
df->df_type->tp_size = wrd_size;
df = Enter("FALSE", D_ENUM, bool_type, 0);