treepr.adb: Use new subtype N_Membership_Test
2006-10-31 Robert Dewar <dewar@adacore.com>
Ed Schonberg <schonberg@adacore.com>
* treepr.adb: Use new subtype N_Membership_Test
* checks.ads, checks.adb: Add definition for Validity_Check
(Range_Or_Validity_Checks_Suppressed): New function
(Ensure_Valid): Test Validity_Check suppressed
(Insert_Valid_Check): Test Validity_Check suppressed
(Insert_Valid_Check): Preserve Do_Range_Check flag
(Validity_Check_Range): New procedure
(Expr_Known_Valid): Result of membership test is always valid
(Selected_Range_Checks): Range checks cannot be applied to discriminants
by themselves. Disabling those checks must also be done for task types,
where discriminants may be used for the bounds of entry families.
(Apply_Address_Clause_Check): Remove side-effects if address expression
is non-static and is not the name of a declared constant.
(Null_Exclusion_Static_Checks): Extend to handle Function_Specification.
Code cleanup and new error messages.
(Enable_Range_Check): Test for some cases of suppressed checks
(Generate_Index_Checks): Suppress index checks if index checks are
suppressed for array object or array type.
(Apply_Selected_Length_Checks): Give warning for compile-time detected
length check failure, even if checks are off.
(Ensure_Valid): Do not generate a check on an indexed component whose
prefix is a packed boolean array.
* checks.adb: (Alignment_Checks_Suppressed): New function
(Apply_Address_Clause_Check): New procedure, this is a completely
rewritten replacement for Apply_Alignment_Check
(Get_E_Length/Get_E_First_Or_Last): Add missing barrier to ensure that
we request a discriminal value only in case of discriminants.
(Apply_Discriminant_Check): For Ada_05, only call Get_Actual_Subtype for
assignments where the target subtype is unconstrained and the target
object is a parameter or dereference (other aliased cases are known
to be unconstrained).
From-SVN: r118248
This commit is contained in:
Robert Dewar
Arnaud Charlet
parent
ff9625b0fa
commit
c064e06602
File diff suppressed because it is too large
Load Diff
|
|
@ -6,7 +6,7 @@
|
|||
-- --
|
||||
-- S p e c --
|
||||
-- --
|
||||
-- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
|
||||
-- Copyright (C) 1992-2006, Free Software Foundation, Inc. --
|
||||
-- --
|
||||
-- GNAT is free software; you can redistribute it and/or modify it under --
|
||||
-- terms of the GNU General Public License as published by the Free Soft- --
|
||||
|
|
@ -47,6 +47,7 @@ package Checks is
|
|||
|
||||
function Access_Checks_Suppressed (E : Entity_Id) return Boolean;
|
||||
function Accessibility_Checks_Suppressed (E : Entity_Id) return Boolean;
|
||||
function Alignment_Checks_Suppressed (E : Entity_Id) return Boolean;
|
||||
function Discriminant_Checks_Suppressed (E : Entity_Id) return Boolean;
|
||||
function Division_Checks_Suppressed (E : Entity_Id) return Boolean;
|
||||
function Elaboration_Checks_Suppressed (E : Entity_Id) return Boolean;
|
||||
|
|
@ -56,13 +57,13 @@ package Checks is
|
|||
function Range_Checks_Suppressed (E : Entity_Id) return Boolean;
|
||||
function Storage_Checks_Suppressed (E : Entity_Id) return Boolean;
|
||||
function Tag_Checks_Suppressed (E : Entity_Id) return Boolean;
|
||||
-- These functions check to see if the named check is suppressed,
|
||||
-- either by an active scope suppress setting, or because the check
|
||||
-- has been specifically suppressed for the given entity. If no entity
|
||||
-- is relevant for the current check, then Empty is used as an argument.
|
||||
-- Note: the reason we insist on specifying Empty is to force the
|
||||
-- caller to think about whether there is any relevant entity that
|
||||
-- should be checked.
|
||||
function Validity_Checks_Suppressed (E : Entity_Id) return Boolean;
|
||||
-- These functions check to see if the named check is suppressed, either
|
||||
-- by an active scope suppress setting, or because the check has been
|
||||
-- specifically suppressed for the given entity. If no entity is relevant
|
||||
-- for the current check, then Empty is used as an argument. Note: the
|
||||
-- reason we insist on specifying Empty is to force the caller to think
|
||||
-- about whether there is any relevant entity that should be checked.
|
||||
|
||||
-- General note on following checks. These checks are always active if
|
||||
-- Expander_Active and not Inside_A_Generic. They are inactive and have
|
||||
|
|
@ -80,12 +81,14 @@ package Checks is
|
|||
-- the object denoted by the access parameter is not deeper than the
|
||||
-- level of the type Typ. Program_Error is raised if the check fails.
|
||||
|
||||
procedure Apply_Alignment_Check (E : Entity_Id; N : Node_Id);
|
||||
-- E is the entity for an object. If there is an address clause for
|
||||
-- this entity, and checks are enabled, then this procedure generates
|
||||
-- a check that the specified address has an alignment consistent with
|
||||
-- the alignment of the object, raising PE if this is not the case. The
|
||||
-- resulting check (if one is generated) is inserted before node N.
|
||||
procedure Apply_Address_Clause_Check (E : Entity_Id; N : Node_Id);
|
||||
-- E is the entity for an object which has an address clause. If checks
|
||||
-- are enabled, then this procedure generates a check that the specified
|
||||
-- address has an alignment consistent with the alignment of the object,
|
||||
-- raising PE if this is not the case. The resulting check (if one is
|
||||
-- generated) is inserted before node N. check is also made for the case of
|
||||
-- a clear overlay situation that the size of the overlaying object is not
|
||||
-- larger than the overlaid object.
|
||||
|
||||
procedure Apply_Array_Size_Check (N : Node_Id; Typ : Entity_Id);
|
||||
-- N is the node for an object declaration that declares an object of
|
||||
|
|
@ -625,6 +628,10 @@ package Checks is
|
|||
-- conditionally (on the right side of And Then/Or Else. This call
|
||||
-- removes only embedded checks (Do_Range_Check, Do_Overflow_Check).
|
||||
|
||||
procedure Validity_Check_Range (N : Node_Id);
|
||||
-- If N is an N_Range node, then Ensure_Valid is called on its bounds,
|
||||
-- if validity checking of operands is enabled.
|
||||
|
||||
private
|
||||
|
||||
type Check_Result is array (Positive range 1 .. 2) of Node_Id;
|
||||
|
|
|
|||
|
|
@ -6,7 +6,7 @@
|
|||
-- --
|
||||
-- B o d y --
|
||||
-- --
|
||||
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
|
||||
-- Copyright (C) 1992-2006, Free Software Foundation, Inc. --
|
||||
-- --
|
||||
-- GNAT is free software; you can redistribute it and/or modify it under --
|
||||
-- terms of the GNU General Public License as published by the Free Soft- --
|
||||
|
|
@ -886,9 +886,8 @@ package body Treepr is
|
|||
|
||||
if Nkind (N) in N_Op
|
||||
or else Nkind (N) = N_And_Then
|
||||
or else Nkind (N) = N_In
|
||||
or else Nkind (N) = N_Not_In
|
||||
or else Nkind (N) = N_Or_Else
|
||||
or else Nkind (N) in N_Membership_Test
|
||||
then
|
||||
-- Print Left_Opnd if present
|
||||
|
||||
|
|
|
|||
Loading…
Reference in New Issue