From a9b9fbf664de2ab613586fa8795e4decb774393a Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Tue, 6 Nov 2012 10:09:01 +0000 Subject: [PATCH] sem_ch9.adb, [...]: Minor reformatting. 2012-11-06 Robert Dewar * sem_ch9.adb, exp_vfpt.adb, xoscons.adb: Minor reformatting. From-SVN: r193223 --- gcc/ada/ChangeLog | 4 ++++ gcc/ada/exp_vfpt.adb | 26 +++++++++++++------------- gcc/ada/sem_ch9.adb | 2 +- gcc/ada/xoscons.adb | 6 +++--- 4 files changed, 21 insertions(+), 17 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 7aad4ba..9216213 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2012-11-06 Robert Dewar + + * sem_ch9.adb, exp_vfpt.adb, xoscons.adb: Minor reformatting. + 2012-11-06 Tristan Gingold * exp_vfpt.adb: Document VAX float point layout. diff --git a/gcc/ada/exp_vfpt.adb b/gcc/ada/exp_vfpt.adb index 146fab8..1539ea9 100644 --- a/gcc/ada/exp_vfpt.adb +++ b/gcc/ada/exp_vfpt.adb @@ -39,10 +39,10 @@ package body Exp_VFpt is -- Vax floating point format (from Vax Architecture Reference Manual -- version 6): - -- + -- Float F: -- -------- - -- + -- 1 1 -- 5 4 7 6 0 -- +-+---------------+--------------+ @@ -50,23 +50,23 @@ package body Exp_VFpt is -- +-+---------------+--------------+ -- | fraction | A + 2 -- +--------------------------------+ - -- + -- bit 15 is the sign bit, -- bits 14:7 is the excess 128 binary exponent, -- bits 6:0 and 31:16 the normalized 24-bit fraction with the redundant -- most significant fraction bit not represented. - -- + -- An exponent value of 0 together with a sign bit of 0, is taken to -- indicate that the datum has a value of 0. Exponent values of 1 through -- 255 indicate true binary exponents of -127 to +127. An exponent value -- of 0, together with a sign bit of 1, is taken as reserved. - -- + -- Note that fraction bits are not continuous in memory, VAX is little -- endian (LSB first). - -- + -- Float D: -- -------- - -- + -- 1 1 -- 5 4 7 6 0 -- +-+---------------+--------------+ @@ -78,12 +78,12 @@ package body Exp_VFpt is -- +--------------------------------+ -- | fraction | A + 6 -- +--------------------------------+ - -- + -- Like Float F but with 55 bits for the fraction. - -- + -- Float G: -- -------- - -- + -- 1 1 -- 5 4 4 3 0 -- +-+---------------------+--------+ @@ -95,12 +95,12 @@ package body Exp_VFpt is -- +--------------------------------+ -- | fraction | A + 6 -- +--------------------------------+ - -- + -- Exponent values of 1 through 2047 indicate trye binary exponents of -- -1023 to +1023. - -- + -- Main differences compared to IEEE 754: - -- + -- * No denormalized numbers -- * No infinity -- * No NaN diff --git a/gcc/ada/sem_ch9.adb b/gcc/ada/sem_ch9.adb index 4e0ecf2..27b7486 100644 --- a/gcc/ada/sem_ch9.adb +++ b/gcc/ada/sem_ch9.adb @@ -1470,7 +1470,7 @@ package body Sem_Ch9 is Analyze (Call); - -- An indirect call in this context is illegal. A procedure call that + -- An indirect call in this context is illegal. A procedure call that -- does not involve a renaming of an entry is illegal as well, but this -- and other semantic errors are caught during resolution. diff --git a/gcc/ada/xoscons.adb b/gcc/ada/xoscons.adb index d0f068e..74b76c9 100644 --- a/gcc/ada/xoscons.adb +++ b/gcc/ada/xoscons.adb @@ -442,7 +442,6 @@ procedure XOSCons is Ada_Ofile, C_Ofile : Sfile; Current_Line : in out Integer) is - function Get_Value (Name : String) return Int_Value_Type; -- Returns the value of the variable Name @@ -465,15 +464,16 @@ procedure XOSCons is end loop; -- Not found returns 0 + return (True, 0); end if; end Get_Value; - Sline : Slice_Set; + -- Local variables + Sline : Slice_Set; Line : String (1 .. 256); Last : Integer; - Value1 : Int_Value_Type; Value2 : Int_Value_Type; Res : Boolean; -- 2.7.4