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

no overflow in OPM anymore

Browse source
This commit is contained in:
Norayr Chilingarian 2014-09-17 15:21:33 +04:00
parent 04662f9e7d
commit 05b8d63835
3 changed files with 13 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

18
src/voc/OPM.cmdln.Mod
View file

@ -564,8 +564,15 @@ MODULE OPM; (* RC 6.3.89 / 28.6.89, J.Templ 10.7.89 / 22.7.96 *)
END END
END GetProperty; END GetProperty;
PROCEDURE power0(i, j : INTEGER) : LONGINT; (* we would like to calculate exact Min Max values in GetProperties, not hardcode em, noch *)
VAR k : INTEGER;
PROCEDURE minus(i: LONGINT): LONGINT;
BEGIN
RETURN -i;
END minus;
PROCEDURE power0(i, j : LONGINT) : LONGINT; (* we would like to calculate exact Min Max values in GetProperties, not hardcode em, noch *)
VAR k : LONGINT;
p : LONGINT; p : LONGINT;
BEGIN BEGIN
k := 1; k := 1;
@ -674,11 +681,12 @@ MODULE OPM; (* RC 6.3.89 / 28.6.89, J.Templ 10.7.89 / 22.7.96 *)
MinSInt := power0(-2, (SIntSize*8-1)); (* -2^(SIntSize*8-1)*) MinSInt := power0(-2, (SIntSize*8-1)); (* -2^(SIntSize*8-1)*)
MaxSInt := power0(2, (SIntSize*8-1))-1; (*MaxSInt := -(MinSint + 1);; may be optimized?*)
MaxSInt := minus(MinSInt + 1);
MinInt := power0(-2, (IntSize*8-1)); MinInt := power0(-2, (IntSize*8-1));
MaxInt := power0(2, (IntSize*8-1))-1; MaxInt := minus(MinInt + 1);
MinLInt := power0(-2, (LIntSize*8-1)); MinLInt := power0(-2, (LIntSize*8-1));
MaxLInt := power0(2, (LIntSize*8-1))-1; MaxLInt := minus(MinLInt +1);
(* (*
Console.Int(MinSInt, 0); Console.Ln; Console.Int(MinSInt, 0); Console.Ln;

BIN
voc
View file

Binary file not shown.

BIN
vocstatic.linux.gcc.x86_64
View file

Binary file not shown.