URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 304 |
Rev 384 |
-- { dg-do compile }
|
-- { dg-do compile }
|
|
|
procedure Varsize_Temp (Nbytes : Natural) is
|
procedure Varsize_Temp (Nbytes : Natural) is
|
|
|
type Message_T (Length : Natural) is record
|
type Message_T (Length : Natural) is record
|
case Length is
|
case Length is
|
when 0 => null;
|
when 0 => null;
|
when others => Id : Natural;
|
when others => Id : Natural;
|
end case;
|
end case;
|
end record;
|
end record;
|
|
|
type Local_Message_T is new Message_T (Nbytes);
|
type Local_Message_T is new Message_T (Nbytes);
|
|
|
function One_message return Local_Message_T is
|
function One_message return Local_Message_T is
|
M : Local_Message_T;
|
M : Local_Message_T;
|
begin
|
begin
|
if M.Length > 0 then
|
if M.Length > 0 then
|
M.Id := 1;
|
M.Id := 1;
|
end if;
|
end if;
|
return M;
|
return M;
|
end;
|
end;
|
|
|
procedure Process (X : Local_Message_T) is begin null; end;
|
procedure Process (X : Local_Message_T) is begin null; end;
|
|
|
begin
|
begin
|
Process (One_Message);
|
Process (One_Message);
|
end;
|
end;
|
|
|
|
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.