13.8 Machine Code Insertions
1
Syntax
2
3
Name Resolution Rules
4
Legality Rules
5
5.a
Ramification: This includes types declared
in children of System.Machine_Code.
6
6.a
Ramification: Note that this is not a
note; without this rule, it would be possible to write machine code in
compilation units which depend on System.Machine_Code only indirectly.
Static Semantics
7
The contents
of the library package System.Machine_Code (if provided) are implementation
defined. The meaning of
code_statements
is implementation defined. [Typically, each
qualified_expression
represents a machine instruction or assembly directive.]
7.a
Discussion: For example, an instruction
might be a record with an Op_Code component and other components for
the operands.
7.b
Implementation defined: The contents
of the visible part of package System.Machine_Code, and the meaning of
code_statements.
Implementation Permissions
8
An implementation may place restrictions on
code_statements.
An implementation is not required to provide package System.Machine_Code.
9
19 An implementation may provide implementation-defined
pragmas specifying register conventions and calling conventions.
10/2
10.a
Discussion: The idea is that the author
of a machine code subprogram knows the calling conventions, and refers
to parameters and results accordingly. The implementation should document
where to put the result of a machine code function, for example, “Scalar
results are returned in register 0.”
11
Examples
12
Example of a code
statement:
13/3
{
AI05-0229-1}
M : Mask;
procedure Set_Mask
with Inline;
pragma Inline(Set_Mask);
14
procedure Set_Mask is
use System.Machine_Code; -- assume “with System.Machine_Code;” appears somewhere above
begin
SI_Format'(Code => SSM, B => M'Base_Reg, D => M'Disp);
-- Base_Reg and Disp are implementation-defined attributes
end Set_Mask;
Extensions to Ada 83
14.a
Machine code functions are
allowed in Ada 95; in Ada 83, only procedures were allowed.
Wording Changes from Ada 83
14.b
Ada 2005 and 2012 Editions sponsored in part by Ada-Europe