Contents   Index   Search   Previous   Next
 4.8 Allocators
1
   The evaluation of an 
allocator
creates an object and yields an access value that designates the object.
 
Syntax
2
allocator
::= 
   new subtype_indication | 
new qualified_expression 
Name Resolution Rules
3/1
     The expected type for an
allocator shall be a single access-to-object
type with designated type 
D such that either 
D covers the
type determined by the 
subtype_mark
of the 
subtype_indication or 
qualified_expression,
or the expected type is anonymous and the determined type is 
D'Class.
 
Legality Rules
4
   An 
initialized allocator
is an 
allocator with a 
qualified_expression.
An 
uninitialized allocator is one with a 
subtype_indication.
In the 
subtype_indication of an
uninitialized allocator, a 
constraint
is permitted only if the 
subtype_mark
denotes an unconstrained composite subtype; if there is no 
constraint,
then the 
subtype_mark shall denote
a definite subtype. 
 
5
   If the type of the allocator
is an access-to-constant type, the allocator
shall be an initialized allocator. If the designated type is limited,
the allocator shall be an uninitialized
allocator. 
Static Semantics
6
   If the designated type of the type of the 
allocator
is elementary, then the subtype of the created object is the designated
subtype. If the designated type is composite, then the created object
is always constrained; if the designated subtype is constrained, then
it provides the constraint of the created object; otherwise, the object
is constrained by its initial value (even if the designated subtype is
unconstrained with defaults). 
 
Dynamic Semantics
7
   For the evaluation of an 
allocator,
the elaboration of the 
subtype_indication
or the evaluation of the 
qualified_expression
is performed first. 
For the evaluation
of an initialized allocator, an object of the designated type is created
and the value of the 
qualified_expression
is converted to the designated subtype and assigned to the object. 
 
8
   For the evaluation of an uninitialized
allocator: 
 
9
- If
the designated type is elementary, an object of the designated subtype
is created and any implicit initial value is assigned;
 
10/1
- If the designated
type is composite, an object of the designated type is created with tag,
if any, determined by the subtype_mark
of the subtype_indication; any per-object
constraints on subcomponents are elaborated (see 3.8)
and any implicit initial values for the subcomponents of the object are
obtained as determined by the subtype_indication
and assigned to the corresponding subcomponents. A
check is made that the value of the object belongs to the designated
subtype. Constraint_Error is raised if this check
fails. This check and the initialization of the object are performed
in an arbitrary order. 
 
11
    If the created object contains any tasks, they
are activated (see 
9.2). Finally, an access
value that designates the created object is returned. 
 
12
24  Allocators cannot create
objects of an abstract type. See 3.9.3. 
13
25  If any part of the created
object is controlled, the initialization includes calls on corresponding
Initialize or Adjust procedures. See 7.6. 
14
26  As explained in 13.11,
``Storage Management'', the storage for an
object allocated by an allocator
comes from a storage pool (possibly user defined). The
exception Storage_Error is raised by an allocator
if there is not enough storage. Instances of Unchecked_Deallocation may
be used to explicitly reclaim storage. 
15
27  Implementations are
permitted, but not required, to provide garbage collection (see 13.11.3).
 
Examples
16
    Examples of
allocators: 
17
new Cell'(0, null, null)                          -- initialized explicitly, see 3.10.1
new Cell'(Value => 0, Succ => null, Pred => null) -- initialized explicitly
new Cell                                          -- not initialized 
18
new Matrix(1 .. 10, 1 .. 20)                      -- the bounds only are given
new Matrix'(1 .. 10 => (1 .. 20 => 0.0))          -- initialized explicitly
19
new Buffer(100)                                   -- the discriminant only is given
new Buffer'(Size => 80, Pos => 0, Value => (1 .. 80 => 'A')) -- initialized explicitly
20
Expr_Ptr'(new Literal)                  -- allocator for access-to-class-wide type, see 3.9.1
Expr_Ptr'(new Literal'(Expression with 3.5))      -- initialized explicitly 
Contents   Index   Search   Previous   Next   Legal