mirror of
https://github.com/vishapoberon/compiler.git
synced 2026-04-06 12:12:25 +00:00
Rationalise -O2 vs -OC library build.
This commit is contained in:
parent
b231efb466
commit
80de6dc216
206 changed files with 1129 additions and 1456 deletions
|
|
@ -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 *)
|
||||
|
|
|
|||
|
|
@ -199,4 +199,5 @@ PROCEDURE LongReal*(x: LONGREAL; n: INTEGER);
|
|||
BEGIN RealP(x, n, TRUE);
|
||||
END LongReal;
|
||||
|
||||
BEGIN in := 0
|
||||
END Out.
|
||||
|
|
|
|||
|
|
@ -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.
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue