Rationalise -O2 vs -OC library build.

This commit is contained in:
David Brown 2016-10-15 17:15:05 +01:00
parent b231efb466
commit 80de6dc216
206 changed files with 1129 additions and 1456 deletions

View file

@ -131,7 +131,7 @@ PROCEDURE fraction*(x: LONGREAL): LONGREAL;
significant) part of `x'. Hence the following relationship shall
hold: x = scale(fraction(x), exponent(x)).
*)
VAR s: SET;
VAR s: SYSTEM.SET64;
BEGIN
IF x = ZERO THEN RETURN ZERO
ELSE
@ -170,7 +170,7 @@ PROCEDURE scale*(x: LONGREAL; n: INTEGER): LONGREAL;
The value of the call scale(x,n) shall be the value x*radix^n if such
a value exists; otherwise an execption shall occur and may be raised.
*)
VAR exp: LONGINT; lexp: SYSTEM.SET64;
VAR exp: HUGEINT; lexp: SYSTEM.SET64;
BEGIN
IF x = ZERO THEN RETURN ZERO END;
exp := exponent(x) + n; (* new exponent *)

View file

@ -199,4 +199,5 @@ PROCEDURE LongReal*(x: LONGREAL; n: INTEGER);
BEGIN RealP(x, n, TRUE);
END LongReal;
BEGIN in := 0
END Out.

View file

@ -1,4 +1,4 @@
MODULE vt100;
MODULE VT100;
IMPORT Out, Strings;
(* reference http://en.wikipedia.org/wiki/ANSI_escape_code
@ -339,4 +339,4 @@ CONST
Strings.Append("hello", tmpstr);
Out.String(tmpstr); Out.Ln;
*)
END vt100.
END VT100.