Another one:
with Ada.Task_Identification; use Ada.Task_Identification;
with Unchecked_Conversion;
package body a is
pragma Warnings (Off);
function To_Tid is new Unchecked_Conversion
(System.Address, Ada.Task_Identification.Task_Id);
function To_Task_Id
(Id : System.Address) return Ada.Task_Identification.Task_Id
is
begin
return To_Tid (Id);
end To_Task_Id;
end a;
with System;
with Ada.Task_Identification;
package a is
function To_Task_Id
(Id : System.Address)
return Ada.Task_Identification.Task_Id;
end a;
--
Summary: ada produces mis-match (non compatible) types in
MODIFY_EXPR
Product: gcc
Version: 4.1.0
Status: UNCONFIRMED
Severity: normal
Priority: P2
Component: ada
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: pinskia at gcc dot gnu dot org
CC: bosch at gcc dot gnu dot org,gcc-bugs at gcc dot gnu dot
org
OtherBugsDependingO 22368
nThis:
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=22383
