* Minor code reorganization

OpenAADL · Nov 11, 2019 · aa33f66 · aa33f66
1 parent 121766c
commit aa33f66
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/backends/ocarina-backends-utils.adb b/src/backends/ocarina-backends-utils.adb
@@ -75,6 +75,8 @@ package body Ocarina.Backends.Utils is
    use Ocarina.Instances.Queries;
    use Ocarina.Backends.Helper;
 
+   type Browsing_Kind is (By_Source, By_Destination);
+
    --  The entered directories stack
 
    package Directories_Stack is new GNAT.Table (Name_Id, Int, 1, 5, 10);

diff --git a/src/backends/ocarina-backends-utils.ads b/src/backends/ocarina-backends-utils.ads
@@ -33,8 +33,6 @@ with Ocarina.Backends.Properties; use Ocarina.Backends.Properties;
 
 package Ocarina.Backends.Utils is
 
-   type Browsing_Kind is (By_Source, By_Destination, Default);
-
    -----------------
    -- AST visitor --
    -----------------
-Original file line number
+Diff line change
@@ Expand Up @@
     package Ocarina.Backends.Utils is
-       type Browsing_Kind is (By_Source, By_Destination, Default);
        -----------------
        -- AST visitor --
        -----------------
@@ Expand Down @@