This commit is contained in:
Norayr Chilingarian 2014-09-17 20:01:24 +04:00
parent 9892f9205c
commit 69defc9ce0
2 changed files with 3 additions and 3 deletions

View file

@ -695,13 +695,13 @@ MODULE OPM; (* RC 6.3.89 / 28.6.89, J.Templ 10.7.89 / 22.7.96 *)
(* we can do
MinLInt := ASH(-2, LIntSize*8-2);
but some compilers may treat -2 as SHORTINT, not LONGINT; -- noch *)
MinSInt := ASH(Base, SIntSize*8-2);
MinSInt := ASH(base, SIntSize*8-2);
MaxSInt := minus(MinSInt + 1);
MinInt := ASH(Base, IntSize*8-2);
MinInt := ASH(base, IntSize*8-2);
MaxInt := minus(MinInt + 1);
MinLInt := ASH(Base, LIntSize*8-2);
MinLInt := ASH(base, LIntSize*8-2);
MaxLInt := minus(MinLInt +1);
(*

BIN
voc

Binary file not shown.