URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Go to most recent revision |
Only display areas with differences |
Details |
Blame |
View Log
Rev 304 |
Rev 338 |
-- { dg-do compile }
|
-- { dg-do compile }
|
-- { dg-options "-gnatws" }
|
-- { dg-options "-gnatws" }
|
|
|
package body Discr8 is
|
package body Discr8 is
|
|
|
procedure Make (C : out Local_T) is
|
procedure Make (C : out Local_T) is
|
Tmp : Local_T (Tag_One);
|
Tmp : Local_T (Tag_One);
|
begin
|
begin
|
C := Tmp;
|
C := Tmp;
|
end;
|
end;
|
|
|
package Iteration is
|
package Iteration is
|
|
|
type Message_T is
|
type Message_T is
|
record
|
record
|
S : Local_T;
|
S : Local_T;
|
end record;
|
end record;
|
|
|
type Iterator_T is
|
type Iterator_T is
|
record
|
record
|
S : Local_T;
|
S : Local_T;
|
end record;
|
end record;
|
|
|
type Access_Iterator_T is access Iterator_T;
|
type Access_Iterator_T is access Iterator_T;
|
|
|
end Iteration;
|
end Iteration;
|
|
|
package body Iteration is
|
package body Iteration is
|
|
|
procedure Construct (Iterator : in out Access_Iterator_T;
|
procedure Construct (Iterator : in out Access_Iterator_T;
|
Message : Message_T) is
|
Message : Message_T) is
|
begin
|
begin
|
Iterator.S := Message.S;
|
Iterator.S := Message.S;
|
end;
|
end;
|
|
|
end Iteration;
|
end Iteration;
|
|
|
end Discr8;
|
end Discr8;
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.