diff options
Diffstat (limited to 'src/edif/edif-nodes.ads')
| -rw-r--r-- | src/edif/edif-nodes.ads | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/edif/edif-nodes.ads b/src/edif/edif-nodes.ads index 7dd61f2b1..f584ac8a5 100644 --- a/src/edif/edif-nodes.ads +++ b/src/edif/edif-nodes.ads @@ -61,7 +61,7 @@ package Edif.Nodes is Null_Node : constant Node := 0; - type Direction_Type is + type Dir_Type is ( Dir_Input, Dir_Output, @@ -394,8 +394,8 @@ package Edif.Nodes is procedure Set_View (N : Node; View : Node); -- Field: State1 (uc) - function Get_Direction (N : Node) return Direction_Type; - procedure Set_Direction (N : Node; Dir : Direction_Type); + function Get_Direction (N : Node) return Dir_Type; + procedure Set_Direction (N : Node; Dir : Dir_Type); -- Field: Flag1 function Get_Boolean (N : Node) return Boolean; |