-- --
-- B o d y --
-- --
--- $Revision: 1.60 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1991-2001, Florida State University --
-- --
---------------------
-- Note: mutexes and cond_variables needed per-task basis are
- -- initialized in Intialize_TCB and the Storage_Error is
+ -- initialized in Initialize_TCB and the Storage_Error is
-- handled. Other mutexes (such as All_Tasks_Lock, Memory_Lock...)
-- used in RTS is initialized before any status change of RTS.
-- Therefore rasing Storage_Error in the following routines
(Attributes'Access, Adjusted_Stack_Size);
pragma Assert (Result = 0);
- -- Set the scheduling parameters explicitely, since this is the only
+ -- Set the scheduling parameters explicitly, since this is the only
-- way to force the OS to take the scope attribute into account
Result := pthread_attr_setinheritsched
-- --
-- B o d y --
-- --
--- $Revision: 1.13 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1991-2001, Florida State University --
-- --
function New_Fake_ATCB return Task_ID;
-- Allocate and Initialize a new ATCB. This code can safely be called from
- -- a foreign thread, as it doesn't access implicitely or explicitely
+ -- a foreign thread, as it doesn't access implicitly or explicitly
-- "self" before having initialized the new ATCB.
-------------------
-- --
-- B o d y --
-- --
--- $Revision: 1.26 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1991-2001, Florida State University --
-- --
---------------------
-- Note: mutexes and cond_variables needed per-task basis are
- -- initialized in Intialize_TCB and the Storage_Error is
+ -- initialized in Initialize_TCB and the Storage_Error is
-- handled. Other mutexes (such as All_Tasks_Lock, Memory_Lock...)
-- used in RTS is initialized before any status change of RTS.
-- Therefore rasing Storage_Error in the following routines
-- B o d y --
-- (Version for IRIX/MIPS) --
-- --
--- $Revision: 1.7 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1999-2001 Free Software Foundation, Inc. --
-- --
function To_Uns32_Ptr is new Unchecked_Conversion (Addr_Int, Uns32_Ptr);
--------------------------------
- -- ABI-Dependant Declarations --
+ -- ABI-Dependent Declarations --
--------------------------------
o32 : constant Natural := Boolean'Pos (System.Word_Size = 32);
-- --
-- B o d y --
-- --
--- $Revision: 1.37 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1991-2001, Florida State University --
-- --
---------------------
-- Note: mutexes and cond_variables needed per-task basis are
- -- initialized in Intialize_TCB and the Storage_Error is
+ -- initialized in Initialize_TCB and the Storage_Error is
-- handled. Other mutexes (such as All_Tasks_Lock, Memory_Lock...)
-- used in RTS is initialized before any status change of RTS.
-- Therefore rasing Storage_Error in the following routines
-- --
-- B o d y --
-- --
--- $Revision: 1.42 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1991-2001, Florida State University --
-- --
---------------------
-- Note: mutexes and cond_variables needed per-task basis are
- -- initialized in Intialize_TCB and the Storage_Error is
+ -- initialized in Initialize_TCB and the Storage_Error is
-- handled. Other mutexes (such as All_Tasks_Lock, Memory_Lock...)
-- used in RTS is initialized before any status change of RTS.
-- Therefore rasing Storage_Error in the following routines
-- --
-- B o d y --
-- --
--- $Revision$
+-- $Revision: 1.2 $
-- --
-- Copyright (C) 1991-2001, Florida State University --
-- --
---------------------
-- Note: mutexes and cond_variables needed per-task basis are
- -- initialized in Intialize_TCB and the Storage_Error is
+ -- initialized in Initialize_TCB and the Storage_Error is
-- handled. Other mutexes (such as All_Tasks_Lock, Memory_Lock...)
-- used in RTS is initialized before any status change of RTS.
-- Therefore rasing Storage_Error in the following routines
-- --
-- B o d y --
-- --
--- $Revision$
+-- $Revision: 1.2 $
-- --
-- Copyright (C) 1991-2001 Florida State University --
-- --
-- ??? The original signal mask (the one we had before coming into this
-- signal catching function) should be restored by
- -- Raise_From_Signal_Handler. For now, restore it explicitely
+ -- Raise_From_Signal_Handler. For now, restore it explicitly
Result := pthread_sigmask (SIG_UNBLOCK, Signal_Mask'Access, null);
pragma Assert (Result = 0);
-- not restored after the exception (longjmp) from the handler.
-- The right fix should be made in sigsetjmp so that we save
-- the Signal_Set and restore it after a longjmp.
- -- Since SA_NODEFER is obsolete, instead we reset explicitely
+ -- Since SA_NODEFER is obsolete, instead we reset explicitly
-- the mask in the exception handler.
Result := sigemptyset (Signal_Mask'Access);
-- B o d y --
-- (Version for x86) --
-- --
--- $Revision: 1.7 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1999-2001 Ada Core Technologies, Inc. --
-- --
return To_Address (MS.eip);
else
-- When doing a call the return address is pushed to the stack.
- -- We want to return the call point address, so we substract
+ -- We want to return the call point address, so we subtract
-- Asm_Call_Size from the return address. This value is set
-- to 5 as an asm call takes 5 bytes on x86 architectures.
-- --
-- B o d y --
-- --
--- $Revision$
+-- $Revision: 1.3 $
-- --
-- Copyright (C) 1991-2001 Florida State University --
-- --
-- Although the OS uses a 32-bit integer representing milliseconds
-- as timer value that doesn't work for us since 32 bits are not
-- enough for absolute timing. Also it is useful to use better
- -- intermediate precision when adding/substracting timing intervals.
+ -- intermediate precision when adding/subtracting timing intervals.
-- So we use the standard Ada Duration type which is implemented using
-- microseconds.
-- --
-- B o d y --
-- --
--- $Revision: 1.57 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1991-2001 Florida State University --
-- --
-- recommend a minimum size of 32 kB. (The original was 4 kB)
-- Systems that use many tasks (say > 30) and require much
-- memory may run out of virtual address space, since OS/2
- -- has a per-proces limit of 512 MB, of which max. 300 MB is
+ -- has a per-process limit of 512 MB, of which max. 300 MB is
-- usable in practise.
if Stack_Size = Unspecified_Size then
-- --
-- B o d y --
-- --
--- $Revision: 1.92 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1991-2001, Florida State University --
-- --
function New_Fake_ATCB (Stack_Base : Interfaces.C.unsigned) return Task_ID;
-- Allocate and Initialize a new ATCB. This code can safely be called from
- -- a foreign thread, as it doesn't access implicitely or explicitely
+ -- a foreign thread, as it doesn't access implicitly or explicitly
-- "self" before having initialized the new ATCB.
------------
---------------------
-- Note: mutexes and cond_variables needed per-task basis are
- -- initialized in Intialize_TCB and the Storage_Error is
+ -- initialized in Initialize_TCB and the Storage_Error is
-- handled. Other mutexes (such as All_Tasks_L, Memory_Lock...)
-- used in RTS is initialized before any status change of RTS.
-- Therefore rasing Storage_Error in the following routines
-- --
-- B o d y --
-- --
--- $Revision: 1.4 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1991-2000 Free Software Foundation, Inc. --
-- --
-- Abort_Task_Interrupt is one of the Interrupt unmasked
-- in all tasks. We mask the Interrupt in this particular task
- -- so that "sigwait" is possible to catch an explicitely sent
+ -- so that "sigwait" is possible to catch an explicitly sent
-- Abort_Task_Interrupt from the Server_Tasks.
-- This sigwaiting is needed so that we make sure a Server_Task is
-- --
-- B o d y --
-- --
--- $Revision: 1.60 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1991-2001, Florida State University --
-- --
---------------------
-- Note: mutexes and cond_variables needed per-task basis are
- -- initialized in Intialize_TCB and the Storage_Error is
+ -- initialized in Initialize_TCB and the Storage_Error is
-- handled. Other mutexes (such as All_Tasks_Lock, Memory_Lock...)
-- used in RTS is initialized before any status change of RTS.
-- Therefore rasing Storage_Error in the following routines
use type Interfaces.C.int;
-- The FAB_RAB_Type specifieds where the context field (the calling
- -- task) is stored. Other fields defined for FAB_RAB arent' need and
+ -- task) is stored. Other fields defined for FAB_RAB aren't need and
-- so are ignored.
type FAB_RAB_Type is
record
-- --
-- B o d y --
-- --
--- $Revision: 1.2 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1991-2000 Free Software Foundation, Inc. --
-- --
end Initialize_Interrupts;
begin
- -- "Reserve" all the interrupts, except those that are explicitely defined
+ -- "Reserve" all the interrupts, except those that are explicitly defined
for J in Interrupt_ID'Range loop
Reserve (J) := True;
-- --
-- B o d y --
-- --
--- $Revision: 1.66 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1992-2001, Free Software Foundation, Inc. --
-- --
function New_Fake_ATCB return Task_ID;
-- Allocate and Initialize a new ATCB. This code can safely be called from
- -- a foreign thread, as it doesn't access implicitely or explicitely
+ -- a foreign thread, as it doesn't access implicitly or explicitly
-- "self" before having initialized the new ATCB.
------------------------------------
---------------------
-- Note: mutexes and cond_variables needed per-task basis are
- -- initialized in Intialize_TCB and the Storage_Error is handled.
+ -- initialized in Initialize_TCB and the Storage_Error is handled.
-- Other mutexes (such as All_Tasks_Lock, Memory_Lock...) used in
-- the RTS is initialized before any status change of RTS.
-- Therefore raising Storage_Error in the following routines
-- --
-- B o d y --
-- --
--- $Revision: 1.7 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1991-2001 Free Software Foundation, Inc. --
-- --
-- (Abort_Task_Interrupt) from the Interrupt_Manager for unbinding
-- a procedure handler or an entry. Or it could be a wake up
-- from status change (Unblocked -> Blocked). If that is not
- -- the case, we should excecute the attached procedure or entry.
+ -- the case, we should execute the attached procedure or entry.
POP.Unlock (Self_ID);
-- --
-- B o d y --
-- --
--- $Revision$
+-- $Revision: 1.2 $
-- --
-- Copyright (C) 1991-2001 Florida State University --
-- --
---------------------
-- Note: mutexes and cond_variables needed per-task basis are
- -- initialized in Intialize_TCB and the Storage_Error is
+ -- initialized in Initialize_TCB and the Storage_Error is
-- handled. Other mutexes (such as All_Tasks_Lock, Memory_Lock...)
-- used in RTS is initialized before any status change of RTS.
-- Therefore rasing Storage_Error in the following routines
-- --
-- B o d y --
-- --
--- $Revision: 1.4 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1996-1999 Free Software Foundation, Inc. --
-- --
-- In order for the above fwrite hack to work, we must always buffer
-- stdout and stderr. Is_regular_file on VMS cannot detect when
-- these are redirected to a file, so checking for that condition
- -- doesnt help.
+ -- doesn't help.
if mode = IONBF
and then (stream = stdout or else stream = stderr)
-- --
-- B o d y --
-- --
--- $Revision: 1.14 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1991-2001, Florida State University --
-- --
begin
-- With the __builtin_longjmp, the signal mask is not restored, so we
- -- need to restore it explicitely.
+ -- need to restore it explicitly.
Result := pthread_sigmask (SIG_UNBLOCK, Signal_Mask'Access, null);
pragma Assert (Result = 0);
-- The right fix should be made in sigsetjmp so that we save
-- the Signal_Set and restore it after a longjmp.
- -- Since SA_NODEFER is obsolete, instead we reset explicitely
+ -- Since SA_NODEFER is obsolete, instead we reset explicitly
-- the mask in the exception handler.
Result := sigemptyset (Signal_Mask'Access);
-- --
-- B o d y --
-- --
--- $Revision: 1.40 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1991-2001, Florida State University --
-- --
---------------------
-- Note: mutexes and cond_variables needed per-task basis are
- -- initialized in Intialize_TCB and the Storage_Error is
+ -- initialized in Initialize_TCB and the Storage_Error is
-- handled. Other mutexes (such as All_Tasks_Lock, Memory_Lock...)
-- used in RTS is initialized before any status change of RTS.
-- Therefore rasing Storage_Error in the following routines
-- --
-- B o d y --
-- --
--- $Revision: 1.2 $ --
+-- $Revision: 1.1 $ --
-- --
-- Copyright (C) 1992,1993,1994,1995 Free Software Foundation, Inc. --
-- --
Partition_ID'Image (Partition));
Garbage_Collector.Allocate (Anonymous);
- -- We substracted the size of the header from the size of the
+ -- We subtracted the size of the header from the size of the
-- global message in order to provide immediatly Params size
Anonymous.Element.Start
+2001-12-16 Joseph S. Myers <jsm28@cam.ac.uk>
+
+ * 5ataprop.adb, 5atpopsp.adb, 5ftaprop.adb, 5gmastop.adb,
+ 5gtaprop.adb, 5htaprop.adb, 5itaprop.adb, 5lintman.adb,
+ 5omastop.adb, 5oosinte.adb, 5otaprop.adb, 5staprop.adb,
+ 5vinterr.adb, 5vtaprop.adb, 5vtpopde.adb, 5wintman.adb,
+ 5wtaprop.adb, 5zinterr.adb, 5ztaprop.adb, 6vcstrea.adb,
+ 7sintman.adb, 7staprop.adb, 9drpc.adb, ChangeLog, Makefile.in,
+ a-except.adb, a-tags.ads, a-tasatt.adb, a-teioed.adb,
+ a-textio.ads, a-witeio.ads, a-wtedit.adb, ali.ads, comperr.adb,
+ cstand.adb, einfo.ads, errout.adb, exp_ch11.adb, exp_ch2.adb,
+ exp_ch3.adb, exp_ch4.adb, exp_ch5.adb, exp_ch6.adb, exp_ch9.adb,
+ exp_util.adb, exp_util.ads, fname-uf.adb, g-cgi.ads, g-exctra.ads,
+ g-expect.ads, g-regist.adb, g-spipat.adb, gnatchop.adb,
+ gnatlink.adb, gnatls.adb, gnatmain.adb, gnatmem.adb, init.c,
+ make.adb, make.ads, mdlltool.adb, nlists.ads, osint.ads,
+ par-ch3.adb, par-ch4.adb, par-ch5.adb, par-ch6.adb, par.adb,
+ repinfo.adb, s-fatflt.ads, s-fatlfl.ads, s-fatllf.ads,
+ s-fatsfl.ads, s-finimp.adb, s-finimp.ads, s-interr.adb,
+ s-secsta.ads, s-shasto.ads, s-stalib.adb, s-stalib.ads,
+ s-tarest.ads, s-tasdeb.adb, s-tassta.adb, s-tassta.ads,
+ s-vaflop.ads, scans.ads, scn.adb, sem.ads, sem_aggr.adb,
+ sem_attr.adb, sem_case.ads, sem_ch10.adb, sem_ch12.adb,
+ sem_ch13.adb, sem_ch3.adb, sem_ch3.ads, sem_ch5.adb, sem_ch7.adb,
+ sem_ch8.adb, sem_ch8.ads, sem_type.adb, sem_util.ads, sinfo.ads,
+ sprint.adb, tbuild.ads, types.ads, utils.c, xeinfo.adb: Fix
+ spelling errors.
+
2001-12-14 Vincent Celier <celier@gnat.com>
* osint.adb(Create_Debug_File): When an object file is specified,
# gnatlib-shared-dual
GNATLIB_SHARED=gnatlib-shared-default
-# default value for gnatmake's target dependant file
+# default value for gnatmake's target dependent file
MLIB_TGT=mlib-tgt
# $(filter-out PATTERN...,TEXT) removes all PATTERN words from TEXT.
atree.h nlists.h elists.h sinfo.h einfo.h namet.h snames.h stringt.h \
uintp.h fe.h $(ADA_TREE_H) gigi.h
-# specific rules for tools needing target dependant sources
+# specific rules for tools needing target dependent sources
# for each such source (e.g. mlib-tgt.adb) a link from the target
# specific name to the default name is defined in the subdir "tools".
# This subdir is added at the beginning of the source path fore the compilation
-# of this unit. Here are the step for adding a new target dependant source:
+# of this unit. Here are the step for adding a new target dependent source:
# - create a Macro with the default name for the source (e.g. mlib-tgt)
-# - change the value if this Macro in each target-dependant section of this
+# - change the value if this Macro in each target-dependent section of this
# Makefile (close to LIBGNAT_TARGET_PAIRS defs) if there is a
# specific version of the file for this section
-# - Add a link from target dependant version to the default name in "tools"
+# - Add a link from target dependent version to the default name in "tools"
# (see stamp-tool_src_dir target)
# - Add a specific target for the object in order to compile with
# "tools" on the source path (see mlib-tgt)
-- --
-- B o d y --
-- --
--- $Revision: 1.119 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
-- --
(X : Exception_Occurrence)
return String;
-- Returns an image of the complete call chain associated with an
- -- exception occurence in its most basic form, that is as a raw sequence
+ -- exception occurrence in its most basic form, that is as a raw sequence
-- of hexadecimal binary addresses.
function Tailored_Exception_Traceback
-- --
-- S p e c --
-- --
--- $Revision: 1.23 $ --
+-- $Revision: 1.1 $ --
-- --
-- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
-- --
----------------------------------------------------------------
-- GNAT's Dispatch Table format is customizable in order to match the
- -- format used in another langauge. GNAT supports programs that use
+ -- format used in another language. GNAT supports programs that use
-- two different dispatch table format at the same time: the native
-- format that supports Ada 95 tagged types and which is described in
-- Ada.Tags and a foreign format for types that are imported from some
-- --
-- B o d y --
-- --
--- $Revision: 1.21 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1991-2000 Florida State University --
-- --
-- finalization for that type of attribute. On task termination, the
-- runtime system uses the pointer to call the appropriate deallocator.
--- While this gets around the limitation that instantations be at
+-- While this gets around the limitation that instantiations be at
-- the library level, it relies on an implementation feature that
-- may not always be safe, i.e. that it is safe to call the
-- Deallocate procedure for an instantiation of Ada.Task_Attributes
-- --
-- B o d y --
-- --
--- $Revision: 1.18 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
-- --
-- Processing the radix and sign expansion separately
-- would require lots of copying--the string and some of its
- -- indicies--without really simplifying the logic. The cases are:
+ -- indices--without really simplifying the logic. The cases are:
-- 1) Expand $, replace '.' with Radix_Point
-- 2) No currency expansion, replace '.' with Radix_Point
-- --
-- S p e c --
-- --
--- $Revision: 1.51 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1992-2000 Free Software Foundation, Inc. --
-- --
Self : aliased File_Type;
-- Set to point to the containing Text_AFCB block. This is used to
- -- implement the Current_{Error,Input,Ouput} functions which return
+ -- implement the Current_{Error,Input,Output} functions which return
-- a File_Access, the file access value returned is a pointer to
-- the Self field of the corresponding file.
-- --
-- S p e c --
-- --
--- $Revision: 1.14 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1992-2000 Free Software Foundation, Inc. --
-- --
-- Buffer control --
--------------------
- -- Note: The paramter file is in out in the RM, but as pointed out
+ -- Note: The parameter file is in out in the RM, but as pointed out
-- in <<95-5166.a Tucker Taft 95-6-23>> this is clearly an oversight.
procedure Flush (File : in File_Type);
-- --
-- B o d y --
-- --
--- $Revision: 1.11 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
-- --
-- Processing the radix and sign expansion separately
-- would require lots of copying--the string and some of its
- -- indicies--without really simplifying the logic. The cases are:
+ -- indices--without really simplifying the logic. The cases are:
-- 1) Expand $, replace '.' with Radix_Point
-- 2) No currency expansion, replace '.' with Radix_Point
-- --
-- S p e c --
-- --
--- $Revision$
+-- $Revision: 1.3 $
-- --
-- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
-- --
Etype : Character;
-- Set to the identification character for the entity. See section
- -- "Cross-Reference Entity Indentifiers in lib-xref.ads for details.
+ -- "Cross-Reference Entity Identifiers in lib-xref.ads for details.
Col : Pos;
-- Column number of definition
-- This field is set to blank if no typeref is present, or if the
-- typeref refers to an entity in standard. Otherwise it contains
-- the identification character for the typeref entity. See section
- -- "Cross-Reference Entity Indentifiers in lib-xref.ads for details.
+ -- "Cross-Reference Entity Identifiers in lib-xref.ads for details.
Tref_Col : Nat;
-- This field is set to zero if no typeref is present, or if the
-- --
-- B o d y --
-- --
--- $Revision: 1.1 $
+-- $Revision: 1.2 $
-- --
-- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
-- --
Abort_In_Progress := True;
- -- If errors have already occured, then we guess that the abort may
+ -- If errors have already occurred, then we guess that the abort may
-- well be caused by previous errors, and we don't make too much fuss
-- about it, since we want to let the programmer fix the errors first.
-- --
-- B o d y --
-- --
--- $Revision$
+-- $Revision: 1.2 $
-- --
-- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
-- --
-- The tree for the package Standard is prefixed to all compilations.
-- Several entities required by semantic analysis are denoted by global
-- variables that are initialized to point to the corresponding
- -- occurences in STANDARD. The visible entities of STANDARD are
+ -- occurrences in STANDARD. The visible entities of STANDARD are
-- created here. The private entities defined in STANDARD are created
-- by Initialize_Standard in the semantics module.
-- --
-- S p e c --
-- --
--- $Revision$
+-- $Revision: 1.6 $
-- --
-- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
-- --
-- for finalization purposes, The block entity has an implicit label
-- declaration in the enclosing declarative part, and has otherwise
-- no direct connection in the tree with the block statement. The
--- link is to the identifier (which is an occurence of the entity)
+-- link is to the identifier (which is an occurrence of the entity)
-- and not to the block_statement itself, because the statement may
-- be rewritten, e.g. in the process of removing dead code.
-- Parameter_Mode (synthesized)
-- Applies to formal parameter entities. This is a synonym for Ekind,
-- used when obtaining the formal kind of a formal parameter (the result
--- is one of E_[In/Out/In_Out]_Paramter)
+-- is one of E_[In/Out/In_Out]_Parameter)
-- Parent_Subtype (Node19)
-- Present in E_Record_Type. Points to the subtype to use for a
-- --
-- B o d y --
-- --
--- $Revision$
+-- $Revision: 1.4 $
-- --
-- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
-- --
-- type, and is used by Add_Class to insert 'Class at the proper point
Continuation : Boolean;
- -- Indicates if current message is a continuation. Intialized from the
+ -- Indicates if current message is a continuation. Initialized from the
-- Msg_Cont parameter in Error_Msg_Internal and then set True if a \
-- insertion character is encountered.
-- --
-- B o d y --
-- --
--- $Revision: 1.117 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
-- --
Make_Defining_Identifier (Loc,
Chars => New_Internal_Name ('T'));
- -- Set the constructed type as global, since we wil be
+ -- Set the constructed type as global, since we will be
-- referencing the object that is of this type globally
Set_Is_Statically_Allocated (Dtyp);
-- --
-- B o d y --
-- --
--- $Revision: 1.64 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
-- --
-----------------------
procedure Expand_Discriminant (N : Node_Id);
- -- An occurence of a discriminant within a discriminated type is replaced
+ -- An occurrence of a discriminant within a discriminated type is replaced
-- with the corresponding discriminal, that is to say the formal parameter
-- of the initialization procedure for the type that is associated with
-- that particular discriminant. This replacement is not performed for
-- --
-- B o d y --
-- --
--- $Revision$
+-- $Revision: 1.2 $
-- --
-- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
-- --
if For_Body then
return Make_Subprogram_Body (Loc, Spec, Empty_List, Empty);
- -- For the case of _Input and _Ouput applied to an abstract type,
+ -- For the case of _Input and _Output applied to an abstract type,
-- generate abstract specifications. These will never be called,
-- but we need the slots allocated in the dispatching table so
-- that typ'Class'Input and typ'Class'Output will work properly.
-- --
-- B o d y --
-- --
--- $Revision$
+-- $Revision: 1.3 $
-- --
-- Copyright (C) 1992-2001, Free Software Foundation, Inc. --
-- --
-- Note that this does *not* fix the array concatenation bug when the
-- low bound is Integer'first sibce that bug comes from the pointer
- -- derefencing an unconstrained array. An there we need a constraint
+ -- dereferencing an unconstrained array. An there we need a constraint
-- check to make sure the length of the concatenated array is ok. ???
Insert_Action (Cnode, Func_Body, Suppress => All_Checks);
-- --
-- B o d y --
-- --
--- $Revision$
+-- $Revision: 1.3 $
-- --
-- Copyright (C) 1992-2001, Free Software Foundation, Inc. --
-- --
-- already being returned with the stack pointer depressed and no
-- further processing is required except to set the By_Ref flag to
-- ensure that gigi does not attempt an extra unnecessary copy.
- -- (actually not just unncessary but harmfully wrong in the case
+ -- (actually not just unnecessary but harmfully wrong in the case
-- of a controlled type, where gigi does not know how to do a copy).
if Requires_Transient_Scope (T)
-- --
-- B o d y --
-- --
--- $Revision$
+-- $Revision: 1.3 $
-- --
-- Copyright (C) 1992-2001, Free Software Foundation, Inc. --
-- --
-- This is used when the actual involves a reference to an element
-- of a packed array, where we can appropriately use a simpler
-- approach than the full call by copy code. We just copy the value
- -- in and out of an apropriate temporary.
+ -- in and out of an appropriate temporary.
procedure Check_Fortran_Logical;
-- A value of type Logical that is passed through a formal parameter
Insert_Action (Prev, Make_Raise_Constraint_Error (Loc, Cond));
end if;
- -- Perform apropriate validity checks on parameters
+ -- Perform appropriate validity checks on parameters
if Validity_Checks_On then
-- --
-- B o d y --
-- --
--- $Revision: 1.1 $
+-- $Revision: 1.2 $
-- --
-- Copyright (C) 1992-2001, Free Software Foundation, Inc. --
-- --
begin
-- As described above, The entry alternative is transformed into a
-- block that contains the gnulli call, and possibly assignment
- -- statments for in-out parameters. The gnulli call may itself be
+ -- statements for in-out parameters. The gnulli call may itself be
-- rewritten into a transient block if some unconstrained parameters
-- require it. We need to retrieve the call to complete its parameter
-- list.
when N_Subprogram_Body =>
- -- Exclude funtions created to analyze defaults.
+ -- Exclude functions created to analyze defaults.
if not Is_Eliminated (Defining_Entity (Op_Body)) then
New_Op_Body :=
Next (Op_Body);
end loop;
- -- Finally, create the body of the funtion that maps an entry index
+ -- Finally, create the body of the function that maps an entry index
-- into the corresponding body index, except when there is no entry,
-- or in a ravenscar-like profile (no abort, no entry queue, 1 entry)
-- --
-- B o d y --
-- --
--- $Revision$
+-- $Revision: 1.8 $
-- --
-- Copyright (C) 1992-2001, Free Software Foundation, Inc. --
-- --
begin
-- A class-wide equivalent type is not needed when Java_VM
-- because the JVM back end handles the class-wide object
- -- intialization itself (and doesn't need or want the
+ -- initialization itself (and doesn't need or want the
-- additional intermediate type to handle the assignment).
if Expander_Active and then not Java_VM then
-- --
-- S p e c --
-- --
--- $Revision$
+-- $Revision: 1.2 $
-- --
-- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
-- --
Unc_Typ : Entity_Id)
return Node_Id;
-- Returns a subtype indication corresponding to the actual type of an
- -- expresion E. Unc_Typ is an unconstrained array or record, or
+ -- expression E. Unc_Typ is an unconstrained array or record, or
-- a classwide type.
function May_Generate_Large_Temp (Typ : Entity_Id) return Boolean;
-- --
-- B o d y --
-- --
--- $Revision: 1.6 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1992-2001, Free Software Foundation, Inc. --
-- --
N : Int;
begin
- -- Null or error name means that some previous error occured
+ -- Null or error name means that some previous error occurred
-- This is an unrecoverable error, so signal it.
if Uname <= Error_Name then
-- --
-- S p e c --
-- --
--- $Revision: 1.9 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 2000 Ada Core Technologies, Inc. --
-- --
(Auth_Type,
Content_Length,
Content_Type,
- Document_Root, -- Web server dependant
+ Document_Root, -- Web server dependent
Gateway_Interface,
HTTP_Accept,
HTTP_Accept_Encoding,
Query_String,
Remote_Addr,
Remote_Host,
- Remote_Port, -- Web server dependant
+ Remote_Port, -- Web server dependent
Remote_Ident,
Remote_User,
Request_Method,
- Request_URI, -- Web server dependant
- Script_Filename, -- Web server dependant
+ Request_URI, -- Web server dependent
+ Script_Filename, -- Web server dependent
Script_Name,
- Server_Addr, -- Web server dependant
- Server_Admin, -- Web server dependant
+ Server_Addr, -- Web server dependent
+ Server_Admin, -- Web server dependent
Server_Name,
Server_Port,
Server_Protocol,
- Server_Signature, -- Web server dependant
+ Server_Signature, -- Web server dependent
Server_Software);
-- CGI metavariables that are set by the Web server during program
-- execution. All these variables are part of the restricted CGI runtime
-- environment and can be read using Metavariable service. The detailed
-- meanings of these metavariables are out of the scope of this
-- description. Please refer to http://www.w3.org/CGI/ for a description
- -- of the CGI specification. Some metavariables are Web server dependant
+ -- of the CGI specification. Some metavariables are Web server dependent
-- and are not described in the cited document.
procedure Put_Header
-- --
-- S p e c --
-- --
--- $Revision: 1.4 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 2000 Ada Core Technologies, Inc. --
-- --
--
-- This output includes the basic information associated with the exception
-- (name, message) as well as a backtrace of the call chain at the point
--- where the exception occured. This backtrace is only output if the call
+-- where the exception occurred. This backtrace is only output if the call
-- chain information is available, depending if the binder switch dedicated
-- to that purpose has been used or not.
--
-- --
-- S p e c --
-- --
--- $Revision: 1.8 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 2000-2001 Ada Core Technologies, Inc. --
-- --
function Get_Pid
(Descriptor : Process_Descriptor)
return Process_Id;
- -- Return the process id assocated with a given process descriptor.
+ -- Return the process id associated with a given process descriptor.
--------------------
-- Adding filters --
-- --
-- B o d y --
-- --
--- $Revision: 1.4 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 2001 Free Software Foundation, Inc. --
-- --
exception
when Registry_Error =>
- -- An error occured, the key was not found
+ -- An error occurred, the key was not found
return False;
end Key_Exists;
-- --
-- B o d y --
-- --
--- $Revision: 1.21 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1998-2001, Ada Core Technologies, Inc. --
-- --
-- occurs in constructing a pattern, and it means that the pattern
-- matching circuitry does not have to keep track of the structure
-- of a pattern with respect to concatenation, since the appropriate
- -- succesor is always at hand.
+ -- successor is always at hand.
-- Concatenation itself generates no additional possibilities for
-- backtracking, but the constituent patterns of the concatenated
Start : out Natural;
Stop : out Natural);
-- Identical in all respects to XMatch, except that trace information is
- -- output on Standard_Ouput during execution of the match. This is the
+ -- output on Standard_Output during execution of the match. This is the
-- version that is called if the original Match call has Debug => True.
---------
-- --
-- B o d y --
-- --
--- $Revision$
+-- $Revision: 1.3 $
-- --
-- Copyright (C) 1998-2001 Ada Core Technologies, Inc. --
-- --
EOL : EOL_String;
Success : in out Boolean);
-- If Success is True on entry, writes a source reference pragma using
- -- the chop file from Info, and the given line number. On return Sucess
+ -- the chop file from Info, and the given line number. On return Success
-- indicates whether the write succeeded. If Success is False on entry,
-- or if the global flag Source_References is False, then the call to
-- Write_Source_Reference_Pragma has no effect. EOL indicates the end
end if;
-- If not in compilation mode combine current unit with any
- -- preceeding configuration pragmas.
+ -- preceding configuration pragmas.
if not Compilation_Mode
and then Unit.Last > First_Unit
-- --
-- B o d y --
-- --
--- $Revision: 1.72 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1996-2001 Free Software Foundation, Inc. --
-- --
Table_Initial => 20,
Table_Increment => 100,
Table_Name => "Gnatlink.Response_File_Objects");
- -- This table collects the objects file that are to be put in the reponse
+ -- This table collects the objects file that are to be put in the response
-- file. Only application objects are collected there (see details in
-- Linker_Objects table comments)
-- --
-- B o d y --
-- --
--- $Revision$
+-- $Revision: 1.2 $
-- --
-- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
-- --
-- Give the Sdep entry corresponding to the unit U in ali record A.
function Index (Char : Character; Str : String) return Natural;
- -- Returns the first occurence of Char in Str.
+ -- Returns the first occurrence of Char in Str.
-- Returns 0 if Char is not in Str.
procedure Output_Object (O : File_Name_Type);
Error_Msg_Name_1 := Units.Table (U).Uname;
Error_Msg_Name_2 := ALIs.Table (A).Afile;
Write_Eol;
- Error_Msg ("wrong ALI format, can't find dependancy line for & in %");
+ Error_Msg ("wrong ALI format, can't find dependency line for & in %");
Exit_Program (E_Fatal);
-- Not needed since we exit the program but avoids compiler warning
Output_Unit (U);
-- Output source now, unless if it will be done as part of
- -- outputing dependancies.
+ -- outputing dependencies.
if not (Dependable and then Print_Source) then
Output_Source (Corresponding_Sdep_Entry (Id, U));
-- --
-- B o d y --
-- --
--- $Revision$
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
-- --
-- Displays Program followed by the arguments in Args
function Index (Char : Character; Str : String) return Natural;
- -- Returns the first occurence of Char in Str.
+ -- Returns the first occurrence of Char in Str.
-- Returns 0 if Char is not in Str.
procedure Scan_Arg (Argv : String; And_Save : Boolean);
-- --
-- B o d y --
-- --
--- $Revision$
+-- $Revision: 1.2 $
-- --
-- Copyright (C) 1997-2001, Ada Core Technologies, Inc. --
-- --
procedure Gnatmem is
------------------------------------------------
- -- Potentially Target Dependant Subprograms. --
+ -- Potentially Target Dependent Subprograms. --
------------------------------------------------
function Get_Current_TTY return String;
* *
* I N I T *
* *
- * $Revision: 1.6 $
+ * $Revision: 1.7 $
* *
* C Implementation File *
* *
long curr_invo_handle;
long *mstate;
- /* Resignaled condtions aren't effected by by pragma Import_Exception */
+ /* Resignaled conditions aren't effected by by pragma Import_Exception */
switch (sigargs[1])
{
-- --
-- B o d y --
-- --
--- $Revision$
+-- $Revision: 1.5 $
-- --
-- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
-- --
-- The elements comprised between Q.First and Q_Front - 1 are the
-- elements that have been enqueued and then dequeued, while the
-- elements between Q_Front and Q.Last - 1 are the elements currently
- -- in the Q. When the Q is intialized Q_Front = Q.First = Q.Last.
+ -- in the Q. When the Q is initialized Q_Front = Q.First = Q.Last.
-- After Compile_Sources has terminated its execution, Q_Front = Q.Last
-- and the elements contained between Q.Front and Q.Last-1 are those that
-- were explored and thus marked by Compile_Sources. Whenever the Q is
-- --
-- S p e c --
-- --
--- $Revision: 1.21 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
-- --
-- In_Place_Mode when True save library/object files in their object
-- directory if they already exist; otherwise, in the source directory.
--
- -- Initialize_ALI_Data set it to True when you want to intialize ALI
+ -- Initialize_ALI_Data set it to True when you want to initialize ALI
-- data-structures. This is what you should do most of the time.
-- (especially the first time around when you call this routine).
-- This parameter is set to False to preserve previously recorded
-- Then xref_tab.adb and types.adb are inserted in the Q if they are not
-- already marked.
-- Note that there is no file listed under W unchecked_deallocation%s
- -- so no generic body should ever be explicitely compiled (unless the
+ -- so no generic body should ever be explicitly compiled (unless the
-- Main_Source at the start was a generic body).
--
-- 4. Repeat steps 2 and 3 above until the Q is empty
-- --
-- B o d y --
-- --
--- $Revision: 1.4 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1992-2000 Free Software Foundation, Inc. --
-- --
procedure Delete_File (Filename : in String) is
File : constant String := Filename & ASCII.Nul;
- Sucess : Boolean;
+ Success : Boolean;
begin
- OS_Lib.Delete_File (File'Address, Sucess);
+ OS_Lib.Delete_File (File'Address, Success);
end Delete_File;
-------------
-- --
-- S p e c --
-- --
--- $Revision: 1.31 $ --
+-- $Revision: 1.1 $ --
-- --
-- Copyright (C) 1992-2000 Free Software Foundation, Inc. --
-- --
procedure Allocate_List_Tables (N : Node_Id);
-- Called when nodes table is expanded to include node N. This call
-- makes sure that list structures internal to Nlists are adjusted
- -- apropriately to reflect this increase in the size of the nodes table.
+ -- appropriately to reflect this increase in the size of the nodes table.
function Next_Node_Address return System.Address;
function Prev_Node_Address return System.Address;
-- --
-- S p e c --
-- --
--- $Revision: 1.1 $
+-- $Revision: 1.2 $
-- --
-- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
-- --
-- Writes name of program as invoked to standard output
procedure Fail (S1 : String; S2 : String := ""; S3 : String := "");
- -- Outputs error messages S1 & S2 & S3 preceeded by the name of the
+ -- Outputs error messages S1 & S2 & S3 preceded by the name of the
-- executing program and exits with E_Fatal.
function Is_Directory_Separator (C : Character) return Boolean;
-- These subprograms are used to parse out the directory names in a
-- search path specified by a Search_Path argument. The procedure
-- initializes an internal pointer to point to the initial directory
- -- name, and calls to the function return sucessive directory names,
+ -- name, and calls to the function return successive directory names,
-- with a null pointer marking the end of the list.
function Get_Primary_Src_Search_Directory return String_Ptr;
-- --
-- B o d y --
-- --
--- $Revision$
+-- $Revision: 1.2 $
-- --
-- Copyright (C) 1992-2001, Free Software Foundation, Inc. --
-- --
-- are considered to end a declarative part (i.e. we have a missing
-- BEGIN situation). We are fairly conservative in making this
-- judgment, because it is a real mess to go into statement mode
- -- prematurely in reponse to a junk declaration.
+ -- prematurely in response to a junk declaration.
when Tok_Abort |
Tok_Accept |
-- --
-- B o d y --
-- --
--- $Revision: 1.91 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
-- --
-- (..., identifier => expression , ...)
- -- If there is at least one occurence of identifier => (but
+ -- If there is at least one occurrence of identifier => (but
-- none of the other cases apply), then we have a call.
-- Test for Id => case
end if;
-- Comma present (and scanned out), test for identifier => case
- -- Test for identifer => case
+ -- Test for identifier => case
if Token = Tok_Identifier then
Save_Scan_State (Scan_State); -- at Id
-- --
-- B o d y --
-- --
--- $Revision: 1.95 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1992-2001, Free Software Foundation, Inc. --
-- --
-- LABEL ::= <<label_STATEMENT_IDENTIFIER>>
- -- STATEMENT_INDENTIFIER ::= DIRECT_NAME
+ -- STATEMENT_IDENTIFIER ::= DIRECT_NAME
-- The IDENTIFIER of a STATEMENT_IDENTIFIER shall be an identifier
-- (not an OPERATOR_SYMBOL)
-- --
-- B o d y --
-- --
--- $Revision: 1.81 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
-- --
if Token = Tok_New then
if not Pf_Flags.Gins then
- Error_Msg_SC ("generic instantation not allowed here!");
+ Error_Msg_SC ("generic instantiation not allowed here!");
end if;
Scan; -- past NEW
end if;
if Token = Tok_In then
- Error_Msg_SC ("IN must preceed OUT in parameter mode");
+ Error_Msg_SC ("IN must precede OUT in parameter mode");
Scan; -- past IN
Set_In_Present (Node, True);
end if;
-- --
-- B o d y --
-- --
--- $Revision$
+-- $Revision: 1.2 $
-- --
-- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
-- --
-- Used if an error occurs while scanning a parenthesized list of items
-- separated by semicolons. The scan pointer is advanced to the next
-- semicolon or right parenthesis at the outer parenthesis level, or
- -- to the next is or RETURN keyword occurence, whichever comes first.
+ -- to the next is or RETURN keyword occurrence, whichever comes first.
procedure Resync_Cunit;
-- Synchronize to next token which could be the start of a compilation
-- --
-- B o d y --
-- --
--- $Revision: 1.36 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1999-2001 Free Software Foundation, Inc. --
-- --
-----------------------
Unit_Casing : Casing_Type;
- -- Indentifier casing for current unit
+ -- Identifier casing for current unit
procedure Spaces (N : Natural);
-- Output given number of spaces
-- --
-- S p e c --
-- --
--- $Revision: 1.3 $ --
+-- $Revision: 1.1 $ --
-- --
-- Copyright (C) 1992,1993,1994,1995,1996 Free Software Foundation, Inc. --
-- --
package System.Fat_Flt is
pragma Pure (Fat_Flt);
- -- Note the only entity from this package that is acccessed by Rtsfind
+ -- Note the only entity from this package that is accessed by Rtsfind
-- is the name of the package instantiation. Entities within this package
-- (i.e. the individual floating-point attribute routines) are accessed
-- by name using selected notation.
-- --
-- S p e c --
-- --
--- $Revision: 1.3 $ --
+-- $Revision: 1.1 $ --
-- --
-- Copyright (C) 1992,1993,1994,1995,1996 Free Software Foundation, Inc. --
-- --
package System.Fat_LFlt is
pragma Pure (Fat_LFlt);
- -- Note the only entity from this package that is acccessed by Rtsfind
+ -- Note the only entity from this package that is accessed by Rtsfind
-- is the name of the package instantiation. Entities within this package
-- (i.e. the individual floating-point attribute routines) are accessed
-- by name using selected notation.
-- --
-- S p e c --
-- --
--- $Revision: 1.3 $ --
+-- $Revision: 1.1 $ --
-- --
-- Copyright (C) 1992,1993,1994,1995,1996 Free Software Foundation, Inc. --
-- --
package System.Fat_LLF is
pragma Pure (Fat_LLF);
- -- Note the only entity from this package that is acccessed by Rtsfind
+ -- Note the only entity from this package that is accessed by Rtsfind
-- is the name of the package instantiation. Entities within this package
-- (i.e. the individual floating-point attribute routines) are accessed
-- by name using selected notation.
-- --
-- S p e c --
-- --
--- $Revision: 1.3 $ --
+-- $Revision: 1.1 $ --
-- --
-- Copyright (C) 1992,1993,1994,1995,1996 Free Software Foundation, Inc. --
-- --
package System.Fat_SFlt is
pragma Pure (Fat_SFlt);
- -- Note the only entity from this package that is acccessed by Rtsfind
+ -- Note the only entity from this package that is accessed by Rtsfind
-- is the name of the package instantiation. Entities within this package
-- (i.e. the individual floating-point attribute routines) are accessed
-- by name using selected notation.
-- --
-- B o d y --
-- --
--- $Revision: 1.48 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
-- --
Object.My_Address - Object'Address;
procedure Ptr_Adjust (Ptr : in out Finalizable_Ptr);
- -- Substract the offset to the pointer
+ -- Subtract the offset to the pointer
procedure Reverse_Adjust (P : Finalizable_Ptr);
- -- Ajust the components in the reverse order in which they are stored
+ -- Adjust the components in the reverse order in which they are stored
-- on the finalization list. (Adjust and Finalization are not done in
-- the same order)
P : Finalizable_Ptr := L;
Q : Finalizable_Ptr;
- type Fake_Exception_Occurence is record
+ type Fake_Exception_Occurrence is record
Id : Exception_Id;
end record;
- type Ptr is access all Fake_Exception_Occurence;
+ type Ptr is access all Fake_Exception_Occurrence;
-- Let's get the current exception before starting to finalize in
-- order to check if we are in the abort case if an exception is
-- --
-- S p e c --
-- --
--- $Revision: 1.31 $ --
+-- $Revision: 1.1 $ --
-- --
-- Copyright (C) 1992-1998 Free Software Foundation, Inc. --
-- --
-- Initialize the field My_Address to the Object'Address
procedure Adjust (Object : in out Record_Controller);
- -- Adjust the components and their finalization pointers by substracting
+ -- Adjust the components and their finalization pointers by subtracting
-- by the offset of the target and the source addresses of the assignment
-- Inherit Finalize from Limited_Record_Controller
-- --
-- B o d y --
-- --
--- $Revision: 1.36 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1991-2001 Free Software Foundation, Inc. --
-- --
-- Abort_Task_Interrupt is one of the Interrupt unmasked
-- in all tasks. We mask the Interrupt in this particular task
- -- so that "sigwait" is possible to catch an explicitely sent
+ -- so that "sigwait" is possible to catch an explicitly sent
-- Abort_Task_Interrupt from the Server_Tasks.
-- This sigwaiting is needed so that we make sure a Server_Task is
-- Abort_Task_Interrupt is one of the Interrupt unmasked
-- in all tasks. We mask the Interrupt in this particular task
- -- so that "sigwait" is possible to catch an explicitely sent
+ -- so that "sigwait" is possible to catch an explicitly sent
-- Abort_Task_Interrupt from the Interrupt_Manager.
-- There are two Interrupt interrupts that this task catch through
-- --
-- S p e c --
-- --
--- $Revision: 1.21 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1992-1999 Free Software Foundation, Inc. --
-- --
procedure SS_Info;
-- Debugging procedure used to print out secondary Stack allocation
-- information. This procedure is generic in order to avoid a direct
- -- dependance on a particular IO package.
+ -- dependence on a particular IO package.
private
-- --
-- S p e c --
-- --
--- $Revision: 1.5 $ --
+-- $Revision: 1.1 $ --
-- --
-- Copyright (C) 1998-2001 Free Software Foundation, Inc. --
-- --
-- --
------------------------------------------------------------------------------
--- This package manages the shared/persistant storage required for
+-- This package manages the shared/persistent storage required for
-- full implementation of variables in Shared_Passive packages, more
-- precisely variables whose enclosing dynamic scope is a shared
-- passive package. This implementation is specific to GNAT and GLADE
-- --
-- B o d y --
-- --
--- $Revision$
+-- $Revision: 1.2 $
-- --
-- Copyright (C) 1995-2001 Free Software Foundation, Inc. --
-- --
-- Referenced directly from generated code using external symbols so it
-- must always be present in a build, even if no unit has a direct with
-- of this unit. Also referenced from exception handling routines.
--- This is needed for programs that don't use exceptions explicitely but
+-- This is needed for programs that don't use exceptions explicitly but
-- direct calls to Ada.Exceptions are generated by gigi (for example,
-- by calling __gnat_raise_constraint_error directly).
-- --
-- S p e c --
-- --
--- $Revision: 1.43 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
-- --
package System.Standard_Library is
pragma Suppress (All_Checks);
- -- Suppress explicitely all the checks to work around the Solaris linker
+ -- Suppress explicitly all the checks to work around the Solaris linker
-- bug when using gnatmake -f -a (but without -gnatp). This is not needed
-- with Solaris 2.6, so eventually can be removed ???
-- --
-- S p e c --
-- --
--- $Revision: 1.5 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1992-1999, Free Software Foundation, Inc. --
-- --
-- are those of the task to create. This parameter should be passed as
-- the single argument to State.
-- Elaborated is a pointer to a Boolean that must be set to true on exit
- -- if the task could be sucessfully elaborated.
+ -- if the task could be successfully elaborated.
-- Chain is a linked list of task that needs to be created. On exit,
-- Created_Task.Activation_Link will be Chain.T_ID, and Chain.T_ID
-- will be Created_Task (e.g the created task will be linked at the front
-- --
-- B o d y --
-- --
--- $Revision$
+-- $Revision: 1.2 $
-- --
-- Copyright (C) 1997-2001 Free Software Foundation, Inc. --
-- --
Width : Integer;
Buffer : Buffer_Ptr);
-- Put TCB pointer T, (coded in hexadecimal) into Buffer
- -- right-justififed in Width characters.
+ -- right-justified in Width characters.
procedure Put
(N : Integer_Address;
-- --
-- B o d y --
-- --
--- $Revision: 1.138 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1991-2001 Florida State University --
-- --
Abort_Dependents (Self_ID);
- -- We need to explicitely wait for the task to be
+ -- We need to explicitly wait for the task to be
-- terminated here because on true concurrent system, we
-- may end this procedure before the tasks are really
-- terminated.
-- --
-- S p e c --
-- --
--- $Revision: 1.33 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1992-1999, Free Software Foundation, Inc. --
-- --
-- are those of the task to create. This parameter should be passed as
-- the single argument to State.
-- Elaborated is a pointer to a Boolean that must be set to true on exit
- -- if the task could be sucessfully elaborated.
+ -- if the task could be successfully elaborated.
-- Chain is a linked list of task that needs to be created. On exit,
-- Created_Task.Activation_Link will be Chain.T_ID, and Chain.T_ID
-- will be Created_Task (e.g the created task will be linked at the front
-- --
-- S p e c --
-- --
--- $Revision: 1.13 $ --
+-- $Revision: 1.1 $ --
-- --
-- Copyright (C) 1997-1998 Free Software Foundation, Inc. --
-- --
-- These routines return a decimal C string image of their argument.
-- They are provided for implicit use by the debugger, in response to
-- the special encoding used for Vax floating-point types (see Exp_Dbug
- -- for details). They supercede the above Debug_Output_D/F/G routines
+ -- for details). They supersede the above Debug_Output_D/F/G routines
-- which didn't work properly with GDBTK.
procedure pd (Arg : D);
-- --
-- S p e c --
-- --
--- $Revision$
+-- $Revision: 1.3 $
-- --
-- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
-- --
Tok_Operator_Symbol, -- op symbol Name, Literal, Lit_Or_Name, Desig
- Tok_Identifier, -- identifer Name, Lit_Or_Name, Desig
+ Tok_Identifier, -- identifier Name, Lit_Or_Name, Desig
Tok_Double_Asterisk, -- **
-- --
-- B o d y --
-- --
--- $Revision$
+-- $Revision: 1.2 $
-- --
-- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
-- --
Scan;
- -- Clear flags for reserved words used as indentifiers
+ -- Clear flags for reserved words used as identifiers
for J in Token_Type loop
Used_As_Identifier (J) := False;
-- --
-- S p e c --
-- --
--- $Revision: 1.101 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
-- --
-- it up without causing too much distortion to our basic model.
--
-- A switch (sede below) is set to indicate that we are in the initial
--- occurence of a default expression. The analyzer is then called on this
+-- occurrence of a default expression. The analyzer is then called on this
-- expression with the switch set true. Analysis and resolution proceed
-- almost as usual, except that Freeze_Expression will not freeze
-- non-static expressions if this switch is set, and the call to Expand at
-- --
-- B o d y --
-- --
--- $Revision: 1.1 $
+-- $Revision: 1.2 $
-- --
-- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
-- --
is
Nxt_Ind : Node_Id := Next_Index (Index);
Nxt_Ind_Constr : Node_Id := Next_Index (Index_Constr);
- -- Index is the current index corresponding to the expresion.
+ -- Index is the current index corresponding to the expression.
Resolution_OK : Boolean := True;
-- Set to False if resolution of the expression failed.
-- --
-- B o d y --
-- --
--- $Revision$
+-- $Revision: 1.7 $
-- --
-- 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$
+-- $Revision: 1.3 $
-- --
-- Copyright (C) 1996-2001 Free Software Foundation, Inc. --
-- --
procedure No_OP (C : Node_Id);
-- The no-operation routine. Does absolutely nothing. Can be used
- -- in the following generic for the parameter Proces_Empty_Choice.
+ -- in the following generic for the parameter Process_Empty_Choice.
generic
with function Get_Alternatives (N : Node_Id) return List_Id;
-- --
-- B o d y --
-- --
--- $Revision$
+-- $Revision: 1.2 $
-- --
-- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
-- --
if Nkind (Item) = N_With_Clause then
-- Skip analyzing with clause if no unit, nothing to do (this
- -- happens for a with that references a non-existant unit)
+ -- happens for a with that references a non-existent unit)
if Present (Library_Unit (Item)) then
Analyze (Item);
begin
Check_Stub_Level (N);
- -- First occurence of name may have been as an incomplete type.
+ -- First occurrence of name may have been as an incomplete type.
if Present (Nam) and then Ekind (Nam) = E_Incomplete_Type then
Nam := Full_View (Nam);
begin
Check_Stub_Level (N);
- -- First occurence of name may have been as an incomplete type.
+ -- First occurrence of name may have been as an incomplete type.
if Present (Nam) and then Ekind (Nam) = E_Incomplete_Type then
Nam := Full_View (Nam);
-- --
-- B o d y --
-- --
--- $Revision$
+-- $Revision: 1.14 $
-- --
-- Copyright (C) 1992-2001, Free Software Foundation, Inc. --
-- --
begin
-- If the instance and the generic body appear within the same
- -- unit, and the instance preceeds the generic, the freeze node for
+ -- unit, and the instance precedes the generic, the freeze node for
-- the instance must appear after that of the generic. If the generic
-- is nested within another instance I2, then current instance must
-- be frozen after I2. In both cases, the freeze nodes are those of
-- The inherited context is attached to the enclosing compilation
-- unit. This is either the main unit, or the declaration for the
- -- main unit (in case the instantation appears within the package
+ -- main unit (in case the instantiation appears within the package
-- declaration and the main unit is its body).
Current_Unit := Parent (Inst);
-- package itself. If the instance is a subprogram, all entities
-- in the corresponding package are renamings. If this entity is
-- a formal package, make its own formals private as well. The
- -- actual in this case is itself the renaming of an instantation.
+ -- actual in this case is itself the renaming of an instantiation.
-- If the entity is not a package renaming, it is the entity
-- created to validate formal package actuals: ignore.
-- --
-- B o d y --
-- --
--- $Revision$
+-- $Revision: 1.3 $
-- --
-- Copyright (C) 1992-2001, Free Software Foundation, Inc. --
-- --
-- For enumeration types, we must check each literal to see if the
-- representation is the same. Note that we do not permit enumeration
- -- reprsentation clauses for Character and Wide_Character, so these
+ -- representation clauses for Character and Wide_Character, so these
-- cases were already dealt with.
elsif Is_Enumeration_Type (T1) then
-- --
-- B o d y --
-- --
--- $Revision$
+-- $Revision: 1.10 $
-- --
-- Copyright (C) 1992-2001, Free Software Foundation, Inc. --
-- --
-- process an implicit derived full type for a type derived from a private
-- type (in that case the subprograms must only be derived for the private
-- view of the type).
- -- ??? These flags need a bit of re-examination and re-documentaion:
+ -- ??? These flags need a bit of re-examination and re-documentation:
-- ??? are they both necessary (both seem related to the recursion)?
procedure Build_Derived_Access_Type
-- procedures for the type where Discrim is a discriminant. Discriminals
-- are not used during semantic analysis, and are not fully defined
-- entities until expansion. Thus they are not given a scope until
- -- intialization procedures are built.
+ -- initialization procedures are built.
function Build_Discriminant_Constraints
(T : Entity_Id;
-- o The discriminants specified by a new KNOWN_DISCRIMINANT_PART, if
-- there is one;
- -- o Otherwise, each discriminant of the parent type (implicitely
+ -- o Otherwise, each discriminant of the parent type (implicitly
-- declared in the same order with the same specifications). In this
-- case, the discriminants are said to be "inherited", or if unknown in
-- the parent are also unknown in the derived type.
-- Then the above transformation turns this into
-- type Der_Base is new Base with null record;
- -- -- procedure P (X : Base) is implicitely inherited here
+ -- -- procedure P (X : Base) is implicitly inherited here
-- -- as procedure P (X : Der_Base).
-- subtype Der is Der_Base (2);
Set_Corresponding_Discriminant (New_C, Old_C);
Build_Discriminal (New_C);
- -- If we are explicitely inheriting a girder discriminant it will be
+ -- If we are explicitly inheriting a girder discriminant it will be
-- completely hidden.
elsif Girder_Discrim then
-- --
-- S p e c --
-- --
--- $Revision: 1.57 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
-- --
procedure Process_Full_View (N : Node_Id; Full_T, Priv_T : Entity_Id);
-- Process some semantic actions when the full view of a private type is
-- encountered and analyzed. The first action is to create the full views
- -- of the dependant private subtypes. The second action is to recopy the
+ -- of the dependent private subtypes. The second action is to recopy the
-- primitive operations of the private view (in the tagged case).
-- N is the N_Full_Type_Declaration node.
-- --
-- B o d y --
-- --
--- $Revision$
+-- $Revision: 1.3 $
-- --
-- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
-- --
procedure Non_Static_Choice_Error (Choice : Node_Id);
-- Error routine invoked by the generic instantiation below when
- -- the case statment has a non static choice.
+ -- the case statement has a non static choice.
procedure Process_Statements (Alternative : Node_Id);
-- Analyzes all the statements associated to a case alternative.
-- --
-- B o d y --
-- --
--- $Revision$
+-- $Revision: 1.2 $
-- --
-- Copyright (C) 1992-2001, Free Software Foundation, Inc. --
-- --
-- with the presence of two separate definitions for private types: the
-- first is the private type declaration, and the second is the full type
-- declaration. It is important that all references to the type point to
- -- the same defining occurence, namely the first one. To enforce the two
+ -- the same defining occurrence, namely the first one. To enforce the two
-- separate views of the entity, the corresponding information is swapped
-- between the two declarations. Outside of the package, the defining
- -- occurence only contains the private declaration information, while in
+ -- occurrence only contains the private declaration information, while in
-- the private part and the body of the package the defining occurrence
-- contains the full declaration. To simplify the swap, the defining
-- occurrence that currently holds the private declaration points to the
- -- full declaration. During semantic processing the defining occurence also
+ -- full declaration. During semantic processing the defining occurrence also
-- points to a list of private dependents, that is to say access types or
-- composite types whose designated types or component types are subtypes
-- or derived types of the private type in question. After the full decla-
Write_Eol;
end if;
- -- Set Body_Id. Note that this wil be reset to point to the
+ -- Set Body_Id. Note that this will be reset to point to the
-- generic copy later on in the generic case.
Body_Id := Defining_Entity (N);
-- --
-- B o d y --
-- --
--- $Revision$
+-- $Revision: 1.3 $
-- --
-- Copyright (C) 1992-2001, Free Software Foundation, Inc. --
-- --
-- a) The defining occurrence for a package holds a flag -In_Use- to
-- indicate that it is currently in the scope of a use clause. If a
- -- redundant use clause is encountered, then the corresponding occurence
+ -- redundant use clause is encountered, then the corresponding occurrence
-- of the package name is flagged -Redundant_Use-.
-- b) On exit from a scope, the use clauses in its declarative part are
-- with the presence of two separate definitions for private types: the
-- first is the private type declaration, and second is the full type
-- declaration. It is important that all references to the type point to
- -- the same defining occurence, namely the first one. To enforce the two
+ -- the same defining occurrence, namely the first one. To enforce the two
-- separate views of the entity, the corresponding information is swapped
-- between the two declarations. Outside of the package, the defining
- -- occurence only contains the private declaration information, while in
+ -- occurrence only contains the private declaration information, while in
-- the private part and the body of the package the defining occurrence
-- contains the full declaration. To simplify the swap, the defining
-- occurrence that currently holds the private declaration points to the
- -- full declaration. During semantic processing the defining occurence
+ -- full declaration. During semantic processing the defining occurrence
-- also points to a list of private dependents, that is to say access
-- types or composite types whose designated types or component types are
-- subtypes or derived types of the private type in question. After the
-- --
-- S p e c --
-- --
--- $Revision: 1.33 $ --
+-- $Revision: 1.1 $ --
-- --
-- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
-- --
-- of the scope suppress flags.
function Present_System_Aux (N : Node_Id := Empty) return Boolean;
- -- Return True if the auxiliary system file has been sucessfully loaded.
+ -- Return True if the auxiliary system file has been successfully loaded.
-- Otherwise attempt to load it, using the name supplied by a previous
-- Extend_System pragma, and report on the success of the load.
-- If N is present, it is a selected component whose prefix is System,
-- --
-- B o d y --
-- --
--- $Revision$
+-- $Revision: 1.2 $
-- --
-- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
-- --
else
-- Overloaded prefix in indexed or selected component,
- -- or call whose name is an expresion or another call.
+ -- or call whose name is an expression or another call.
Add_Entry (Etype (N), Etype (N));
end if;
-- --
-- S p e c --
-- --
--- $Revision: 1.1 $
+-- $Revision: 1.2 $
-- --
-- Copyright (C) 1992-2001, Free Software Foundation, Inc. --
-- --
function Is_Selector_Name (N : Node_Id) return Boolean;
-- Given an N_Identifier node N, determines if it is a Selector_Name.
-- As described in Sinfo, Selector_Names are special because they
- -- represent use of the N_Identifier node for a true identifer, when
+ -- represent use of the N_Identifier node for a true identifier, when
-- normally such nodes represent a direct name.
function Is_Statement (N : Node_Id) return Boolean;
Report : Boolean;
Success : out Boolean);
-- Reorders lists of actuals according to names of formals, value returned
- -- in Success indicates sucess of reordering. For more details, see body.
+ -- in Success indicates success of reordering. For more details, see body.
-- Errors are reported only if Report is set to True.
procedure Note_Possible_Modification (N : Node_Id);
-- --
-- S p e c --
-- --
--- $Revision$
+-- $Revision: 1.5 $
-- --
-- Copyright (C) 1992-2001, Free Software Foundation, Inc. --
-- --
-- In the following node definitions, all fields, both syntactic and
-- semantic, are documented. The one exception is in the case of entities
- -- (defining indentifiers, character literals and operator symbols),
+ -- (defining identifiers, character literals and operator symbols),
-- where the usage of the fields depends on the entity kind. Entity
-- fields are fully documented in the separate package Einfo.
-- 5.1 Statement Identifier --
-------------------------------
- -- STATEMENT_INDENTIFIER ::= DIRECT_NAME
+ -- STATEMENT_IDENTIFIER ::= DIRECT_NAME
-- The IDENTIFIER of a STATEMENT_IDENTIFIER shall be an identifier
-- (not an OPERATOR_SYMBOL)
-- --
-- B o d y --
-- --
--- $Revision: 1.205 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1992-2001, Free Software Foundation, Inc. --
-- --
-- called to ensure that the current node has a proper Sloc set.
procedure Write_Discr_Specs (N : Node_Id);
- -- Ouput discriminant specification for node, which is any of the type
+ -- Output discriminant specification for node, which is any of the type
-- declarations that can have discriminants.
procedure Write_Ekind (E : Entity_Id);
-- --
-- S p e c --
-- --
--- $Revision: 1.69 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1992-2000, Free Software Foundation, Inc. --
-- --
Defining_Identifier : Node_Id;
Label_Construct : Node_Id)
return Node_Id;
- -- Used to contruct an implicit label declaration node, including setting
+ -- Used to construct an implicit label declaration node, including setting
-- the proper Label_Construct field (since Label_Construct is a semantic
-- field, the normal call to Make_Implicit_Label_Declaration does not
-- set this field).
-- --
-- S p e c --
-- --
--- $Revision: 1.2 $
+-- $Revision: 1.3 $
-- --
-- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
-- --
No_List : constant List_Id := List_High_Bound;
-- Used to indicate absence of a list. Note that the value is zero, which
- -- is the same as Empty, which is helpful in intializing nodes where a
+ -- is the same as Empty, which is helpful in initializing nodes where a
-- value of zero can represent either an empty node or an empty list.
Error_List : constant List_Id := List_Low_Bound;
* *
* C Implementation File *
* *
- * $Revision$
+ * $Revision: 1.6 $
* *
* Copyright (C) 1992-2001, Free Software Foundation, Inc. *
* *
/* Reverse the list of XXXX_DECL nodes if desired. Note that the ..._DECL
nodes chained through the `names' field of current_binding_level are in
- reverse order except for PARM_DECL node, which are explicitely stored in
+ reverse order except for PARM_DECL node, which are explicitly stored in
the right order. */
current_binding_level->names
= decl_chain = (reverse) ? nreverse (current_binding_level->names)
-- --
-- B o d y --
-- --
--- $Revision$
+-- $Revision: 1.2 $
-- --
-- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
-- --
begin
Anchored_Mode := True;
- Match ("$Revision$", "$Rev" & "ision: " & Break (' ') * XEinforev);
+ Match ("$Revision: 1.2 $", "$Rev" & "ision: " & Break (' ') * XEinforev);
if Argument_Count > 0 then
Create (Ofile, Out_File, Argument (1));
while Match (Line, Get_FN) loop
- -- Non-inlined funcion
+ -- Non-inlined function
if not Present (Inlined, FN) then
Put_Line (Ofile, "");
OSDN Git Service
