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

Support int64 in ABS. Remove unneccessary cast in __XF, __RF.

Browse source
This commit is contained in:
David Brown 2016-09-12 17:03:02 +01:00
parent 9baf4c9429
commit 516e261242
4 changed files with 31 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

18
src/test/confidence/language/TestLanguage.mod
View file

@ -220,6 +220,23 @@ END DivMod;
PROCEDURE Abs;
VAR
i: INTEGER;
l: LONGINT;
h: SYSTEM.INT64;
BEGIN
i := 5; TestValue(ABS(i), 5, "ABS(INTEGER 5)");
i := -5; TestValue(ABS(i), 5, "ABS(INTEGER -5)");
l := 5; TestValue(ABS(l), 5, "ABS(LONGINT 5)");
l := -5; TestValue(ABS(l), 5, "ABS(LONGINT -5)");
h := 5; TestValue(SYSTEM.VAL(LONGINT,ABS(h)), 5, "ABS(SYSTEM.INT64 5)");
h := -5; TestValue(SYSTEM.VAL(LONGINT,ABS(h)), 5, "ABS(SYSTEM.INT64 -5)");
END Abs;
PROCEDURE IntSize;
VAR l: LONGINT;
BEGIN
@ -253,5 +270,6 @@ BEGIN
Shift;
DivMod;
IntSize;
Abs;
Console.String("Language tests successful."); Console.Ln;
END TestLanguage.