-- B o d y --
-- (Machine Version for x86) --
-- --
--- $Revision: 1.15 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1998-2000 Free Software Foundation, Inc. --
-- --
for FPU_Stack_Pointer'Size use 3;
type FPU_Status_Word is record
- B : Boolean; -- FPU Busy (for 8087 compatability only)
+ B : Boolean; -- FPU Busy (for 8087 compatibility only)
ES : Boolean; -- Error Summary Status
SF : Boolean; -- Stack Fault
+2001-10-28 Joseph S. Myers <jsm28@cam.ac.uk>
+
+ * 86numaux.adb, a-tigeau.ads, a-wtgeau.ads, decl.c, exp_ch6.adb,
+ exp_ch9.adb, exp_util.adb, fname-sf.ads, freeze.ads, g-awk.adb,
+ g-comlin.ads, g-dirope.adb, g-dyntab.ads, g-socket.ads,
+ g-table.ads, g-traceb.ads, gnat-style.texi, gnatchop.adb, init.c,
+ layout.adb, layout.ads, mdllfile.ads, mlib-fil.ads, osint.ads,
+ s-fatgen.adb, s-imgrea.adb, s-taprop.ads, s-tasdeb.ads,
+ sem_aggr.adb, sem_attr.adb, sem_case.ads, sem_ch13.adb,
+ sem_ch3.adb, sem_elab.adb, sem_maps.ads, sem_res.adb,
+ sem_util.ads, sinfo.ads, sinput.ads, table.adb, table.ads,
+ types.ads, urealp.adb: Fix spelling errors.
+
2001-10-27 Laurent Guerby <guerby@acm.org>
* trans.c (gigi): Fix non determinism leading to bootstrap
-- --
-- S p e c --
-- --
--- $Revision: 1.13 $ --
+-- $Revision: 1.1 $ --
-- --
-- Copyright (C) 1992-1997 Free Software Foundation, Inc. --
-- --
procedure Check_On_One_Line (File : File_Type; Length : Integer);
-- Check to see if item of length Integer characters can fit on
-- current line. Call New_Line if not, first checking that the
- -- line length can accomodate Length characters, raise Layout_Error
+ -- line length can accommodate Length characters, raise Layout_Error
-- if item is too large for a single line.
function Getc (File : File_Type) return Integer;
-- --
-- S p e c --
-- --
--- $Revision: 1.3 $ --
+-- $Revision: 1.1 $ --
-- --
-- Copyright (C) 1992-1997 Free Software Foundation, Inc. --
-- --
procedure Check_On_One_Line (File : File_Type; Length : Integer);
-- Check to see if item of length Integer characters can fit on
-- current line. Call New_Line if not, first checking that the
- -- line length can accomodate Length characters, raise Layout_Error
+ -- line length can accommodate Length characters, raise Layout_Error
-- if item is too large for a single line.
function Is_Blank (C : Character) return Boolean;
* *
* C Implementation File *
* *
- * $Revision$
+ * $Revision: 1.5 $
* *
* Copyright (C) 1992-2001, Free Software Foundation, Inc. *
* *
returns_by_ref,
Function_Returns_With_DSP (gnat_entity));
- /* ??? For now, don't consider nested fuctions pure. */
+ /* ??? For now, don't consider nested functions pure. */
if (! global_bindings_p ())
pure_flag = 0;
-- --
-- B o d y --
-- --
--- $Revision: 1.343 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1992-2001, Free Software Foundation, Inc. --
-- --
-- Deal with access types where the actual subtpe and the
-- formal subtype are not the same, requiring a check.
- -- It is neccessary to exclude tagged types because of "downward
+ -- It is necessary to exclude tagged types because of "downward
-- conversion" errors and a strange assertion error in namet
-- from gnatf in bug 1215-001 ???
-- --
-- B o d y --
-- --
--- $Revision: 1.438 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1992-2001, Free Software Foundation, Inc. --
-- --
procedure Traverse is new Traverse_Proc;
- -- Start of processsing for Update_Prival_Subtypes
+ -- Start of processing for Update_Prival_Subtypes
begin
Traverse (N);
-- --
-- B o d y --
-- --
--- $Revision$
+-- $Revision: 1.2 $
-- --
-- Copyright (C) 1992-2001, Free Software Foundation, Inc. --
-- --
-- Val : T := Expr;
--
-- <elsif Expr is an entity_name>
- -- Val : T (contraints taken from Expr) := Expr;
+ -- Val : T (constraints taken from Expr) := Expr;
--
-- <else>
-- type Axxx is access all T;
-- Rval : Axxx := Expr'ref;
- -- Val : T (contraints taken from Rval) := Rval.all;
+ -- Val : T (constraints taken from Rval) := Rval.all;
-- ??? note: when the Expression is allocated in the secondary stack
-- we could use it directly instead of copying it by declaring
-- from tools that do not want to include the compiler front end.
-- Note that this unit does depend on several of the compiler front-end
--- sources, including osint. If it is necesary to scan source file name
+-- sources, including osint. If it is necessary to scan source file name
-- pragmas with less dependence on such sources, look at unit SFN_Scan.
package Fname.SF is
-- --
-- S p e c --
-- --
--- $Revision: 1.14 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1992-2000, Free Software Foundation, Inc. --
-- --
-- These have a delayed freeze. Gigi will generate code to evaluate
-- the initialization expression if present and store it in a temp.
-- The actual object is created at the point of the freeze, and if
- -- neccessary initialized by copying the value of this temporary.
+ -- necessary initialized by copying the value of this temporary.
-- Formal Parameters
--
-- --
-- B o d y --
-- --
--- $Revision: 1.10 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 2000-2001 Ada Core Technologies, Inc. --
-- --
Results : Boolean := False;
begin
- -- Iterate throught the filters table, if pattern match call action.
+ -- Iterate through the filters table, if pattern match call action.
for F in 1 .. Pattern_Action_Table.Last (Filters) loop
if Patterns.Match (Filters.Table (F).Pattern.all, Session) then
-- --
-- S p e c --
-- --
--- $Revision: 1.24 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1999-2001 Ada Core Technologies, Inc. --
-- --
-- Returns parameter associated with the last switch returned by Getopt.
-- If no parameter was associated with the last switch, or no previous
-- call has been made to Get_Argument, raises Invalid_Parameter.
- -- If the last switch was associated with an optionnal argument and this
+ -- If the last switch was associated with an optional argument and this
-- argument was not found on the command line, Parameter returns an empty
-- string
-- --
-- B o d y --
-- --
--- $Revision$
+-- $Revision: 1.2 $
-- --
-- Copyright (C) 1998-2001 Ada Core Technologies, Inc. --
-- --
procedure Var (K : in out Positive);
-- Translate variable name starting at position K with the associated
- -- environement value.
+ -- environment value.
procedure Free is
new Unchecked_Deallocation (String, OS_Lib.String_Access);
if Path (E) = '}' then
- -- OK found, translate with environement value
+ -- OK found, translate with environment value
declare
Env : OS_Lib.String_Access :=
-- --
-- S p e c --
-- --
--- $Revision: 1.11 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 2000-2001 Ada Core Technologies, Inc. --
-- --
procedure Set_Last (T : in out Instance; New_Val : Table_Index_Type);
pragma Inline (Set_Last);
-- This procedure sets Last to the indicated value. If necessary the
- -- table is reallocated to accomodate the new value (i.e. on return
+ -- table is reallocated to accommodate the new value (i.e. on return
-- the allocated table has an upper bound of at least Last). If
-- Set_Last reduces the size of the table, then logically entries are
-- removed from the table. If Set_Last increases the size of the
-- --
-- S p e c --
-- --
--- $Revision: 1.22 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 2001 Ada Core Technologies, Inc. --
-- --
-- Sockets are designed to provide a consistent communication
-- facility between applications. This package provides an
-- Ada-like interface similar to the one proposed as part of the
- -- BSD socket layer. This is a system independant thick binding.
+ -- BSD socket layer. This is a system independent thick binding.
-- Here is a typical example of what you can do.
-- with GNAT.Sockets; use GNAT.Sockets;
-- Return True if Socket is present in Item
-- C select() waits for a number of file descriptors to change
- -- status. Usually, three independant sets of descriptors are
+ -- status. Usually, three independent sets of descriptors are
-- watched (read, write and exception). A timeout gives an upper
-- bound on the amount of time elapsed before select returns.
-- This function blocks until an event occurs. On some platforms,
-- --
-- S p e c --
-- --
--- $Revision: 1.12 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1998-2001 Ada Core Technologies, Inc. --
-- --
procedure Set_Last (New_Val : Table_Index_Type);
pragma Inline (Set_Last);
-- This procedure sets Last to the indicated value. If necessary the
- -- table is reallocated to accomodate the new value (i.e. on return
+ -- table is reallocated to accommodate the new value (i.e. on return
-- the allocated table has an upper bound of at least Last). If Set_Last
-- reduces the size of the table, then logically entries are removed
-- from the table. If Set_Last increases the size of the table, then
-- --
-- S p e c --
-- --
--- $Revision: 1.11 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1999-2000 Ada Core Technologies, Inc. --
-- --
-- To analyze the code locations later using addr2line or gdb, the necessary
-- units must be compiled with the debugging switch -g in the usual manner.
--- Note that it is not necesary to compile with -g to use Call_Chain. In
+-- Note that it is not necessary to compile with -g to use Call_Chain. In
-- other words, the following sequence of steps can be used:
-- Compile without -g
@noindent
The "elsif", "else" and "end if" always line up with the "if" keyword. The
-prefered location for splitting the line is before "and" or "or". The
+preferred location for splitting the line is before "and" or "or". The
continuation of a condition is indented with two spaces or as many as needed
to make nesting clear.
As exception, if conditions are closely related either of the following is
-- --
-- B o d y --
-- --
--- $Revision: 1.44 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1998-2001 Ada Core Technologies, Inc. --
-- --
-- Call Gnat on the source filename argument with special options
-- to generate offset information. If this special compilation completes
- -- succesfully then we can do the actual gnatchop operation.
+ -- successfully then we can do the actual gnatchop operation.
Spawn (Gnat_Cmd.all, Gnat_Args.all & Chop_Name, Success);
* *
* I N I T *
* *
- * $Revision$
+ * $Revision: 1.2 $
* *
* C Implementation File *
* *
}
else
{
- /* See if the page before the faulting page is accessable. Do that
+ /* See if the page before the faulting page is accessible. Do that
by trying to access it. We'd like to simply try to access
4096 + the faulting address, but it's not guaranteed to be
the actual address, just to be on the same page. */
}
else
{
- /* See if the page before the faulting page is accessable. Do that
+ /* See if the page before the faulting page is accessible. Do that
by trying to access it. */
recurse++;
* ((volatile char *) (info->ExceptionRecord->ExceptionInformation[1]
}
else
{
- /* See if the page before the faulting page is accessable. Do that
+ /* See if the page before the faulting page is accessible. Do that
by trying to access it. We'd like to simply try to access
4096 + the faulting address, but it's not guaranteed to be
the actual address, just to be on the same page. */
-- --
-- B o d y --
-- --
--- $Revision: 1.33 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 2001 Free Software Foundation, Inc. --
-- --
-- For access types, set size/alignment. This is system address
-- size, except for fat pointers (unconstrained array access types),
- -- where the size is two times the address size, to accomodate the
+ -- where the size is two times the address size, to accommodate the
-- two pointers that are required for a fat pointer (data and
-- template). Note that E_Access_Protected_Subprogram_Type is not
-- an access type for this purpose since it is not a pointer but is
-- For other access types, we use either address size, or, if
-- a fat pointer is used (pointer-to-unconstrained array case),
- -- twice the address size to accomodate a fat pointer.
+ -- twice the address size to accommodate a fat pointer.
else
declare
-- --
-- S p e c --
-- --
--- $Revision: 1.3 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 2000-2001 Free Software Foundation, Inc. --
-- --
procedure Set_Discrete_RM_Size (Def_Id : Entity_Id);
-- Set proper RM_Size for discrete size, this is normally the minimum
- -- number of bits to accomodate the range given, except in the case
+ -- number of bits to accommodate the range given, except in the case
-- where the subtype statically matches the first subtype, in which
-- case the size must be copied from the first subtype. For generic
-- types, the RM_Size is simply set to zero. This routine also sets
function Get_Ext (Filename : in String)
return String;
- -- return filename's extention.
+ -- return filename's extension.
function Is_Ali (Filename : in String)
return Boolean;
function Ext_To (Filename : in String;
New_Ext : in String := No_Ext)
return String;
- -- return Filename with the extention change to New_Ext.
+ -- return Filename with the extension change to New_Ext.
end MDLL.Files;
-- --
-- S p e c --
-- --
--- $Revision: 1.2 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 2001, Ada Core Technologies, Inc. --
-- --
(Filename : String;
New_Ext : String := "")
return String;
- -- Return Filename with the extention change to New_Ext.
+ -- Return Filename with the extension change to New_Ext.
function Get_Ext (Filename : in String) return String;
- -- Return extention of filename.
+ -- Return extension of filename.
function Is_Archive (Filename : String) return Boolean;
-- Test if filename is an archive
-- --
-- S p e c --
-- --
--- $Revision: 1.108 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
-- --
--
-- Initialize may terminate execution if the parameters are invalid or some
-- other fatal error is encountered. The interface is set up to
- -- accomodate scanning a series of files (e.g. as the result of
+ -- accommodate scanning a series of files (e.g. as the result of
-- wild card references in DOS, or an expanded list of source files
-- in Unix). Of course it is perfectly possible to ignore this in
-- the implementation and provide for opening only one file.
-- 3. The information could be written to a separate file, whose name is
-- related to the name of the source file by a fixed convention.
- -- Which of these three methods is chosen depends on the contraints of the
+ -- Which of these three methods is chosen depends on the constraints of the
-- host operating system. The interface described here is independent of
-- which of these approaches is used.
-- --
-- B o d y --
-- --
--- $Revision: 1.19 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
-- --
-- More useful would be defining Expo to be T'Machine_Emin - 1 or
-- T'Machine_Emin - T'Machine_Mantissa, which would preserve
- -- monotonicity of the exponent fuction ???
+ -- monotonicity of the exponent function ???
-- Check for infinities, transfinites, whatnot.
-- --
-- B o d y --
-- --
--- $Revision: 1.45 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
-- --
Digs : String (1 .. 2 * Field_Max + 16);
-- Array used to hold digits of converted integer value. This is a
- -- large enough buffer to accomodate ludicrous values of Fore and Aft.
+ -- large enough buffer to accommodate ludicrous values of Fore and Aft.
Ndigs : Natural;
-- Number of digits stored in Digs (and also subscript of last digit)
-- --
-- S p e c --
-- --
--- $Revision: 1.40 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1992-2001, Free Software Foundation, Inc. --
-- --
-- Suspend a specific task when the underlying thread library provides
-- such functionality, unless the thread associated with T is
-- Thread_Self.
- -- Such functionnality is needed by gdb on some targets (e.g VxWorks)
+ -- Such functionality is needed by gdb on some targets (e.g VxWorks)
-- Return True is the operation is successful
function Resume_Task
-- Resume a specific task when the underlying thread library provides
-- such functionality, unless the thread associated with T is
-- Thread_Self.
- -- Such functionnality is needed by gdb on some targets (e.g VxWorks)
+ -- Such functionality is needed by gdb on some targets (e.g VxWorks)
-- Return True is the operation is successful
procedure Lock_All_Tasks_List;
-- --
-- S p e c --
-- --
--- $Revision: 1.16 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1997-1998, Free Software Foundation, Inc. --
-- --
-- Suspend all the tasks except the one whose associated thread is
-- Thread_Self by traversing All_Tasks_Lists and calling
-- System.Task_Primitives.Operations.Suspend_Task
- -- Such functionnality is needed by gdb on some targets (e.g VxWorks)
+ -- Such functionality is needed by gdb on some targets (e.g VxWorks)
-- Warning: for efficiency purposes, there is no locking.
procedure Resume_All_Tasks (Thread_Self : OS_Interface.Thread_Id);
-- Resume all the tasks except the one whose associated thread is
-- Thread_Self by traversing All_Tasks_Lists and calling
-- System.Task_Primitives.Operations.Continue_Task
- -- Such functionnality is needed by gdb on some targets (e.g VxWorks)
+ -- Such functionality is needed by gdb on some targets (e.g VxWorks)
-- Warning: for efficiency purposes, there is no locking.
end System.Tasking.Debug;
-- --
-- B o d y --
-- --
--- $Revision: 1.232 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
-- --
procedure Resolve_Aggr_Expr (Expr : Node_Id; Component : Node_Id);
-- Analyzes and resolves expression Expr against the Etype of the
- -- Component. This routine also applies all appropiate checks to Expr.
+ -- Component. This routine also applies all appropriate checks to Expr.
-- It finally saves a Expr in the newly created association list that
-- will be attached to the final record aggregate. Note that if the
-- Parent pointer of Expr is not set then Expr was produced with a
-- --
-- B o d y --
-- --
--- $Revision: 1.552 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1992-2001, Free Software Foundation, Inc. --
-- --
when Attribute_Small =>
- -- The floating-point case is present only for Ada 83 compatability.
+ -- The floating-point case is present only for Ada 83 compatibility.
-- Note that strictly this is an illegal addition, since we are
-- extending an Ada 95 defined attribute, but we anticipate an
-- ARG ruling that will permit this.
-- --
-- S p e c --
-- --
--- $Revision: 1.5 $ --
+-- $Revision: 1.1 $ --
-- --
-- Copyright (C) 1996 Free Software Foundation, Inc. --
-- --
with Types; use Types;
--- Package containing all the routines to proces a list of discrete choices.
+-- Package containing all the routines to process a list of discrete choices.
-- Such lists can occur in 3 different constructs: case statements, array
-- aggregates and record variants. We have factorized what used to be 3 very
-- similar sets of routines here. If you didn't figure it out already Choi
-- --
-- B o d y --
-- --
--- $Revision: 1.390 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1992-2001, Free Software Foundation, Inc. --
-- --
S := 1;
B := Uint_1;
- -- S = size, B = 2 ** (size - 1) (can accomodate -B .. +(B - 1))
- -- Note that we accomodate the case where the bounds cross. This
+ -- S = size, B = 2 ** (size - 1) (can accommodate -B .. +(B - 1))
+ -- Note that we accommodate the case where the bounds cross. This
-- can happen either because of the way the bounds are declared
-- or because of the algorithm in Freeze_Fixed_Point_Type.
Hi := Lo;
end if;
- -- S = size, (can accomodate 0 .. (2**size - 1))
+ -- S = size, (can accommodate 0 .. (2**size - 1))
S := 0;
while Hi >= Uint_2 ** S loop
-- --
-- B o d y --
-- --
--- $Revision$
+-- $Revision: 1.2 $
-- --
-- Copyright (C) 1992-2001, Free Software Foundation, Inc. --
-- --
-- The following is only useful for the benefit of generic
-- instances but it does not interfere with other
- -- processsing for the non-generic case so we do it in all
+ -- processing for the non-generic case so we do it in all
-- cases (for generics this statement is executed when
-- processing the generic definition, see comment at the
-- begining of this if statement).
-- --
-- B o d y --
-- --
--- $Revision$
+-- $Revision: 1.3 $
-- --
-- Copyright (C) 1997-2001 Free Software Foundation, Inc. --
-- --
-- If none of those cases holds, but Dynamic_Elaboration_Checks mode
-- is set, then we will do the check, but only in the inter-unit case
- -- (this is to accomodate unguarded elaboration calls from other units
+ -- (this is to accommodate unguarded elaboration calls from other units
-- in which this same mode is set). We don't want warnings in this case,
-- it would generate warnings having nothing to do with elaboration.
-- If none of those cases holds, but Dynamic_Elaboration_Checks mode
-- is set, then we will do the check, but only in the inter-unit case
- -- (this is to accomodate unguarded elaboration calls from other units
+ -- (this is to accommodate unguarded elaboration calls from other units
-- in which this same mode is set). We inhibit warnings in this case,
-- since this instantiation is not occurring in elaboration code.
-- --
-- S p e c --
-- --
--- $Revision: 1.4 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1996-1999 Free Software Foundation, Inc. --
-- --
-- maps have a fixed size and never need to be reallocated. Furthermore,
-- the headers of the hash table of a dynamically allocated map can be
-- chosen according to the total number of entries in the map, to
- -- accomodate efficiently generic units of different sizes (Unchecked_
+ -- accommodate efficiently generic units of different sizes (Unchecked_
-- Conversion vs. Generic_Elementary_Functions, for example). So in
-- fact both components of a map have fixed size, and can be allocated
-- using the standard table mechanism. A Maps_Table holds records that
-- --
-- B o d y --
-- --
--- $Revision$
+-- $Revision: 1.4 $
-- --
-- Copyright (C) 1992-2001, Free Software Foundation, Inc. --
-- --
type Kind_Test is access function (E : Entity_Id) return Boolean;
function Is_Definite_Access_Type (E : Entity_Id) return Boolean;
- -- Determine whether E is an acess type declared by an access decla-
+ -- Determine whether E is an access type declared by an access decla-
-- ration, and not an (anonymous) allocator type.
function Operand_Type_In_Scope (S : Entity_Id) return Boolean;
-- If we are taking the reference of a volatile entity, then treat
-- it as a potential modification of this entity. This is much too
- -- conservative, but is neccessary because remove side effects can
+ -- conservative, but is necessary because remove side effects can
-- result in transformations of normal assignments into reference
-- sequences that otherwise fail to notice the modification.
-- --
-- S p e c --
-- --
--- $Revision: 1.225 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1992-2001, Free Software Foundation, Inc. --
-- --
-- Determines if T1 and T2 represent exactly the same type. Two types
-- are the same if they are identical, or if one is an unconstrained
-- subtype of the other, or they are both common subtypes of the same
- -- type with identical contraints. The result returned is conservative.
+ -- type with identical constraints. The result returned is conservative.
-- It is True if the types are known to be the same, but a result of
-- False is indecisive (e.g. the compiler may not be able to tell that
-- two constraints are identical).
-- --
-- S p e c --
-- --
--- $Revision: 1.2 $
+-- $Revision: 1.3 $
-- --
-- Copyright (C) 1992-2001, Free Software Foundation, Inc. --
-- --
-- to unchecked conversion, and these are most conveniently performed
-- in the specialized back-end.
- -- To accomodate this requirement, for such back ends, the following
+ -- To accommodate this requirement, for such back ends, the following
-- special node is generated recording an unchecked conversion that
-- needs to be validated. The back end should post an appropriate
-- error message if the unchecked conversion is invalid or warrants
-- --
-- S p e c --
-- --
--- $Revision$
+-- $Revision: 1.2 $
-- --
-- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
-- --
(S : in out Source_File_Record;
New_Max : Nat);
-- Allocate or reallocate the lines table for the given source file so
- -- that it can accomodate at least New_Max lines. Also allocates or
+ -- that it can accommodate at least New_Max lines. Also allocates or
-- reallocates logical lines table if source ref pragmas are present.
procedure Add_Line_Tables_Entry
-- --
-- B o d y --
-- --
--- $Revision: 1.44 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
-- --
-- Tree_Read --
---------------
- -- Note: we allocate only the space required to accomodate the data
+ -- Note: we allocate only the space required to accommodate the data
-- actually written, which means that a Tree_Write/Tree_Read sequence
-- does an implicit Release.
-- --
-- S p e c --
-- --
--- $Revision: 1.38 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
-- --
procedure Set_Last (New_Val : Table_Index_Type);
pragma Inline (Set_Last);
-- This procedure sets Last to the indicated value. If necessary the
- -- table is reallocated to accomodate the new value (i.e. on return
+ -- table is reallocated to accommodate the new value (i.e. on return
-- the allocated table has an upper bound of at least Last). If Set_Last
-- reduces the size of the table, then logically entries are removed
-- from the table. If Set_Last increases the size of the table, then
-- --
-- S p e c --
-- --
--- $Revision$
+-- $Revision: 1.2 $
-- --
-- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
-- --
-- character in the source buffer. As noted above, diffferent source
-- buffers have different ranges, so it is possible to tell from a
-- Source_Ptr value which source it refers to. Note that negative numbers
- -- are allowed to accomodate the following special values.
+ -- are allowed to accommodate the following special values.
No_Location : constant Source_Ptr := -1;
-- Value used to indicate no source position set in a node
-- --
-- B o d y --
-- --
--- $Revision: 1.60 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
-- --
-- For based numbers, just subtract the decimal exponent from the
-- high estimate of the number of digits in the numerator and add
- -- one to accomodate possible round off errors for non-decimal
+ -- one to accommodate possible round off errors for non-decimal
-- bases. For example:
-- 1_500_000 / 10**4 = 1.50E-2
-- For based numbers, just subtract the decimal exponent from the
-- low estimate of the number of digits in the numerator and subtract
- -- one to accomodate possible round off errors for non-decimal
+ -- one to accommodate possible round off errors for non-decimal
-- bases. For example:
-- 1_500_000 / 10**4 = 1.50E-2
return UR_Is_Negative (Left);
-- If we fall through, full gruesome test is required. This happens
- -- if the numbers are close together, or in some wierd (/=10) base.
+ -- if the numbers are close together, or in some weird (/=10) base.
else
declare
projects / gcc.git / commitdiff