parent
e8fa3dcdd5
commit
7c02f27b32
|
@ -796,9 +796,9 @@ package body Exp_Pakd is
|
||||||
end if;
|
end if;
|
||||||
end Convert_To_PAT_Type;
|
end Convert_To_PAT_Type;
|
||||||
|
|
||||||
------------------------------
|
-----------------------------------
|
||||||
-- Create_Packed_Array_Impl_Type --
|
-- Create_Packed_Array_Impl_Type --
|
||||||
------------------------------
|
-----------------------------------
|
||||||
|
|
||||||
procedure Create_Packed_Array_Impl_Type (Typ : Entity_Id) is
|
procedure Create_Packed_Array_Impl_Type (Typ : Entity_Id) is
|
||||||
Loc : constant Source_Ptr := Sloc (Typ);
|
Loc : constant Source_Ptr := Sloc (Typ);
|
||||||
|
@ -1469,6 +1469,10 @@ package body Exp_Pakd is
|
||||||
-- out-of-range value by design. Compile this value without checks,
|
-- out-of-range value by design. Compile this value without checks,
|
||||||
-- because a call to the array init_proc must not raise an exception.
|
-- because a call to the array init_proc must not raise an exception.
|
||||||
|
|
||||||
|
-- Condition is not consistent with description above, Within_Init_Proc
|
||||||
|
-- is True also when we are building the IP for a record or protected
|
||||||
|
-- type that has a packed array component???
|
||||||
|
|
||||||
if Within_Init_Proc
|
if Within_Init_Proc
|
||||||
and then Initialize_Scalars
|
and then Initialize_Scalars
|
||||||
then
|
then
|
||||||
|
|
|
@ -6,7 +6,7 @@
|
||||||
-- --
|
-- --
|
||||||
-- B o d y --
|
-- B o d y --
|
||||||
-- --
|
-- --
|
||||||
-- Copyright (C) 1999-2012, Free Software Foundation, Inc. --
|
-- Copyright (C) 1999-2014, Free Software Foundation, Inc. --
|
||||||
-- --
|
-- --
|
||||||
-- GNAT is free software; you can redistribute it and/or modify it under --
|
-- 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- --
|
-- terms of the GNU General Public License as published by the Free Soft- --
|
||||||
|
@ -295,7 +295,9 @@ package body GNAT.Traceback.Symbolic is
|
||||||
end if;
|
end if;
|
||||||
end Symbolic_Traceback;
|
end Symbolic_Traceback;
|
||||||
|
|
||||||
function Symbolic_Traceback (E : Exception_Occurrence) return String is
|
function Symbolic_Traceback
|
||||||
|
(E : Ada.Exceptions.Exception_Occurrence) return String
|
||||||
|
is
|
||||||
begin
|
begin
|
||||||
return Symbolic_Traceback (Tracebacks (E));
|
return Symbolic_Traceback (Tracebacks (E));
|
||||||
end Symbolic_Traceback;
|
end Symbolic_Traceback;
|
||||||
|
|
|
@ -6,7 +6,7 @@
|
||||||
-- --
|
-- --
|
||||||
-- B o d y --
|
-- B o d y --
|
||||||
-- --
|
-- --
|
||||||
-- Copyright (C) 2005-2010, Free Software Foundation, Inc. --
|
-- Copyright (C) 2005-2014, Free Software Foundation, Inc. --
|
||||||
-- --
|
-- --
|
||||||
-- GNAT is free software; you can redistribute it and/or modify it under --
|
-- 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- --
|
-- terms of the GNU General Public License as published by the Free Soft- --
|
||||||
|
@ -337,7 +337,9 @@ package body GNAT.Traceback.Symbolic is
|
||||||
return Res (1 .. Len);
|
return Res (1 .. Len);
|
||||||
end Symbolic_Traceback;
|
end Symbolic_Traceback;
|
||||||
|
|
||||||
function Symbolic_Traceback (E : Exception_Occurrence) return String is
|
function Symbolic_Traceback
|
||||||
|
(E : Ada.Exceptions.Exception_Occurrence) return String
|
||||||
|
is
|
||||||
begin
|
begin
|
||||||
return Symbolic_Traceback (Tracebacks (E));
|
return Symbolic_Traceback (Tracebacks (E));
|
||||||
end Symbolic_Traceback;
|
end Symbolic_Traceback;
|
||||||
|
|
|
@ -6,7 +6,7 @@
|
||||||
-- --
|
-- --
|
||||||
-- B o d y --
|
-- B o d y --
|
||||||
-- --
|
-- --
|
||||||
-- Copyright (C) 1999-2013, Free Software Foundation, Inc. --
|
-- Copyright (C) 1999-2014, Free Software Foundation, Inc. --
|
||||||
-- --
|
-- --
|
||||||
-- GNARL is free software; you can redistribute it and/or modify it under --
|
-- GNARL 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- --
|
-- terms of the GNU General Public License as published by the Free Soft- --
|
||||||
|
@ -59,7 +59,7 @@ package body System.Stack_Checking.Operations is
|
||||||
--
|
--
|
||||||
-- This order is important because if at any time a write to the stack
|
-- This order is important because if at any time a write to the stack
|
||||||
-- cache is pending, that write should be followed by a Poll to prevent
|
-- cache is pending, that write should be followed by a Poll to prevent
|
||||||
-- loosing signals.
|
-- losing signals.
|
||||||
--
|
--
|
||||||
-- Note: This function must be compiled with Polling turned off
|
-- Note: This function must be compiled with Polling turned off
|
||||||
--
|
--
|
||||||
|
|
Loading…
Reference in New Issue