Fix import of SYSTEM.INT64 type on 32 bit platforms.

This commit is contained in:
David Brown 2016-09-15 17:39:30 +01:00
parent dc699db9f5
commit 21964471d8
13 changed files with 53 additions and 36 deletions

View file

@ -167,11 +167,14 @@ OPT_Struct OPT_IntType (int32 size)
OPT_Struct _o_result;
int16 i;
i = 1;
while ((OPT_IntTypes[__X(i, 20)]->size < size && OPT_IntTypes[__X(i + 1, 20)] != NIL)) {
while (i < 19) {
if ((OPT_IntTypes[__X(i, 20)] != NIL && OPT_IntTypes[__X(i, 20)]->size >= size)) {
_o_result = OPT_IntTypes[__X(i, 20)];
return _o_result;
}
i += 1;
}
_o_result = OPT_IntTypes[__X(i, 20)];
return _o_result;
__RETCHK;
}
OPT_Struct OPT_ShorterOrLongerType (OPT_Struct x, int16 dir)