mirror of
https://github.com/vishapoberon/compiler.git
synced 2026-04-06 14:32:24 +00:00
Support int64 in ABS. Remove unneccessary cast in __XF, __RF.
This commit is contained in:
parent
9baf4c9429
commit
516e261242
4 changed files with 31 additions and 11 deletions
|
|
@ -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.
|
||||
|
|
|
|||
|
|
@ -1 +1 @@
|
|||
12 Sep 2016 15:40:20
|
||||
12 Sep 2016 17:01:41
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue